Croix-aigle
Mitglied
Hallo zusammen,
dieses mal wird es etwas schwieriger.
Und zwar möchte ich über die UserForm Textfeld TextBox das nächste Datum aus Veranstaltung angezeigt wird. Um so die nächste oder Übernächste Veranstaltung auszuwählen.
So sieht es aus, wenn ich es über die Optionsfeld Veranstaltung nächste oder über nächste Auswähle. Das geht über Sverweis.
Wie oben im Sverweis zu sehen, ist ab1 das Ergebnis mit dem Heutigen oder das nächste Datum anzuzeigen. ab2 zeigt das übernächste Datum erst an. spring von heute oder nächster Veranstaltung gleich aufs nächste Datum.
dieses mal wird es etwas schwieriger.
Und zwar möchte ich über die UserForm Textfeld TextBox das nächste Datum aus Veranstaltung angezeigt wird. Um so die nächste oder Übernächste Veranstaltung auszuwählen.
So sieht es aus, wenn ich es über die Optionsfeld Veranstaltung nächste oder über nächste Auswähle. Das geht über Sverweis.
Visual Basic:
Private Sub CommandButtonÜbernehmen_Click()
With Worksheets("Druck")
'Auswahl ab1 für Datum ab nächster Veranstaltung
'ab2 datum für die übernächsten Veranstaltung
If Me.ab1.Value Then
.Range("B4").Value = _
"=LARGE(Veranstaltung!C[-1],COUNTIF(Veranstaltung!C[-1],"">=""&TODAY()))"
.Range("E4").Value = _
"=LARGE(Veranstaltung!C[-4],COUNTIF(Veranstaltung!C[-4],"">=""&TODAY()))"
.Range("B8").Value = _
"=LARGE(Veranstaltung!C[-1],COUNTIF(Veranstaltung!C[-1],"">=""&TODAY())-1)"
.Range("E8").Value = _
"=LARGE(Veranstaltung!C[-4],COUNTIF(Veranstaltung!C[-4],"">=""&TODAY())-1)"
.Range("B12").Value = _
"=LARGE(Veranstaltung!C[-1],COUNTIF(Veranstaltung!C[-1],"">=""&TODAY())-2)"
.Range("E12").Value = _
"=LARGE(Veranstaltung!C[-4],COUNTIF(Veranstaltung!C[-4],"">=""&TODAY())-2)"
.Range("B16").Value = _
"=LARGE(Veranstaltung!C[-1],COUNTIF(Veranstaltung!C[-1],"">=""&TODAY())-3)"
.Range("E16").Value = _
"=LARGE(Veranstaltung!C[-4],COUNTIF(Veranstaltung!C[-4],"">=""&TODAY())-3)"
End If
If Me.ab2.Value Then
.Range("B4").Value = _
"=LARGE(Veranstaltung!C[-1],COUNTIF(Veranstaltung!C[-1],"">=""&TODAY())-1)"
.Range("E4").Value = _
"=LARGE(Veranstaltung!C[-4],COUNTIF(Veranstaltung!C[-4],"">=""&TODAY())-1)"
.Range("B8").Value = _
"=LARGE(Veranstaltung!C[-1],COUNTIF(Veranstaltung!C[-1],"">=""&TODAY())-2)"
.Range("E8").Value = _
"=LARGE(Veranstaltung!C[-4],COUNTIF(Veranstaltung!C[-4],"">=""&TODAY())-2)"
.Range("B12").Value = _
"=LARGE(Veranstaltung!C[-1],COUNTIF(Veranstaltung!C[-1],"">=""&TODAY())-3)"
.Range("E12").Value = _
"=LARGE(Veranstaltung!C[-4],COUNTIF(Veranstaltung!C[-4],"">=""&TODAY())-3)"
.Range("B16").Value = _
"=LARGE(Veranstaltung!C[-1],COUNTIF(Veranstaltung!C[-1],"">=""&TODAY())-4)"
.Range("E16").Value = _
"=LARGE(Veranstaltung!C[-4],COUNTIF(Veranstaltung!C[-4],"">=""&TODAY())-4)"
End If
'End Sub
End With
End Sub
Das ist das ganze in der UserForm sehen, suche ich den Befehl dafür, aktuell bin ich soweit:
Private Sub ab1_Click()
TextVer1.Text = "Hello World 1"
TextVer2.Text = (Veranstaltung!C[-1],COUNTIF(Veranstaltung!C[-1],"">=""&TODAY()))
TextVer3.Text =
TextVer4.Text =
End Sub
Private Sub ab2_Click()
TextVer1.Text = "ausgabe Veranschaltung Datum Spalte A"
TextVer2.Text = "ausgabe A = Uhrzeit aus Spalte B"
TextVer3.Text = "ausgabe A = Info aus Spalte C"
TextVer4.Text = "ausgabe A = Ort aus spalte D
End Sub
Wie oben im Sverweis zu sehen, ist ab1 das Ergebnis mit dem Heutigen oder das nächste Datum anzuzeigen. ab2 zeigt das übernächste Datum erst an. spring von heute oder nächster Veranstaltung gleich aufs nächste Datum.
Zuletzt bearbeitet von einem Moderator: