Hallo liebe Profis,
dies ist mein erster Eintrag in diesem Forum. Seht es mir bitte nach, wenn ich Form- oder sonstige Fehler in der Fragestellung begehe
Zu meinem Problem:
Ich habe zur täglichen Abfrage von mehreren Kennzahlen eine Userform erstellt/angepasst, die von mehreren Managern benutzt wird und diese dann die Daten in eine Exceltabelle einfügt. Für Zahlen und Texte, die jeden Tag eingepflegt werden müssen klappt das auch bisher ganz gut. Nun kommen aber 2 Fragen dazu, deren Antworten nur am Montag bzw. am Dienstag in der Tabelle auftauchen sollen. Dazu gibt es denke ich mal 2 Möglichkeiten. Entweder tauchen diese Fragen bzw. die Eingabefelder nur am Montag bzw. Dienstag auf, oder die Antworten werden nur am Mo oder Di übernommen. Da meine Head of aber von der Tagesabhängigkeit der Fragen wissen sollten, habe ich mich an der 2. Möglichkeit versucht. Mein bisheriger Versuch funktioniert nur nicht wirklich und trägt die Daten nicht (richtig) ein. Der betreffende Codeteil sieht so aus (Q6 wird täglich gefragt und funktioniert so richtig, Q1 und Q2 jedoch nicht; im Anhang ein paar Bilder wie es in etwa aussieht):
Ich hoffe ich habe alle nötigen Informationen gegeben und mir kann jemand helfen. Ist die Auswahl über Case Weekday sinnvoll oder wäre eine if then Abfrage zur 3. Zeile sinnvoller und wenn ja, wie könnte man das umsetzen?
Zur Information: Ich habe Grundkenntnisse in VBA aus einer Vorlesung im Ingenieursstudium und habe einen Großteil des Codes erhalten und nur an vielen Stellen unseren Bedürfnissen angepasst soweit ich mich in die Programmierung hineindenken konnte.
Viele Grüße
Alex
dies ist mein erster Eintrag in diesem Forum. Seht es mir bitte nach, wenn ich Form- oder sonstige Fehler in der Fragestellung begehe
Zu meinem Problem:
Ich habe zur täglichen Abfrage von mehreren Kennzahlen eine Userform erstellt/angepasst, die von mehreren Managern benutzt wird und diese dann die Daten in eine Exceltabelle einfügt. Für Zahlen und Texte, die jeden Tag eingepflegt werden müssen klappt das auch bisher ganz gut. Nun kommen aber 2 Fragen dazu, deren Antworten nur am Montag bzw. am Dienstag in der Tabelle auftauchen sollen. Dazu gibt es denke ich mal 2 Möglichkeiten. Entweder tauchen diese Fragen bzw. die Eingabefelder nur am Montag bzw. Dienstag auf, oder die Antworten werden nur am Mo oder Di übernommen. Da meine Head of aber von der Tagesabhängigkeit der Fragen wissen sollten, habe ich mich an der 2. Möglichkeit versucht. Mein bisheriger Versuch funktioniert nur nicht wirklich und trägt die Daten nicht (richtig) ein. Der betreffende Codeteil sieht so aus (Q6 wird täglich gefragt und funktioniert so richtig, Q1 und Q2 jedoch nicht; im Anhang ein paar Bilder wie es in etwa aussieht):
Quellcode
- 'schreibe aktuelle Q Daten
- 'Q1
- Select Case Weekday(Date)
- Case 2
- suche = Range("d6" & Weekday(Date))
- Set Blatt = ActiveSheet '--Name anpassen
- Set Zelle = Blatt.Columns(4).Find(What:=suche, LookIn:=xlValues, lookat:=xlWhole)
- If Not Zelle Is Nothing Then
- a = Application.Match(CLng(Date), Blatt.Rows(2), 0)
- If IsNumeric(a) Then
- Blatt.Cells(Zelle.Row, a) = TextBox27.Value
- End If
- End If
- End Select
- 'Q2
- Select Case Weekday(Date)
- Case 3
- suche = Range("d7" & Weekday(Date))
- Set Blatt = ActiveSheet '--Name anpassen
- Set Zelle = Blatt.Columns(4).Find(What:=suche, LookIn:=xlValues, lookat:=xlWhole)
- If Not Zelle Is Nothing Then
- a = Application.Match(CLng(Date), Blatt.Rows(2), 0)
- If IsNumeric(a) Then
- Blatt.Cells(Zelle.Row, a) = TextBox4.Value
- End If
- End If
- End Select
- 'Q6
- suche = Range("d11")
- Set Blatt = ActiveSheet '--Name anpassen
- Set Zelle = Blatt.Columns(4).Find(What:=suche, LookIn:=xlValues, lookat:=xlWhole)
- If Not Zelle Is Nothing Then
- a = Application.Match(CLng(Date), Blatt.Rows(2), 0)
- If IsNumeric(a) Then
- Blatt.Cells(Zelle.Row, a) = TextBox5.Value
- End If
- End If
Ich hoffe ich habe alle nötigen Informationen gegeben und mir kann jemand helfen. Ist die Auswahl über Case Weekday sinnvoll oder wäre eine if then Abfrage zur 3. Zeile sinnvoller und wenn ja, wie könnte man das umsetzen?
Zur Information: Ich habe Grundkenntnisse in VBA aus einer Vorlesung im Ingenieursstudium und habe einen Großteil des Codes erhalten und nur an vielen Stellen unseren Bedürfnissen angepasst soweit ich mich in die Programmierung hineindenken konnte.
Viele Grüße
Alex
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „ADIXSrontgorrth“ ()