Hilfe bei Variablen suche (VBA)
13.08.2021 11:07:28
Jem
ich hoffe ihr könnt mir bei meinem Problem helfen.
Ich kenne mich nicht sehr gut mit VBA aus. Deswegen habe ich vielleicht auch total falsche Ansätze etc.
Zum Problem:
Ich versuche in einer Datei (link unten zu finden) aus einem Variablen Datum, was man z.B. per ComboBox o.ä. auswählen kann, einen Tag (Spalte) zu wählen und dann aus der jeweiligen Spalte auszulesen in welchen Reihen sich "1" befindet. Wenn eine "1" in der Row ist, dann möchte ich das aus der Spalte "E" der jeweilige Name in ein anderes Tabellenblatt ("Arbeit") eingetragen wird.
Bisher habe ich eine UserForm erstellt mit einer ComboBox zur Datumsauswahl und einen CommandButton zum Ausführen, welcher zum Datum springen soll. Das funktioniert auch nicht richtig. Bestimmt ist das Format falsch.
Ich wäre für jede Hilfe dankbar!
Bisheriger Code:
CommandButton:
Dim rng As Range
Set rng = Sheets("Hauptseite").Rows(10).Find(ComboBox1.Value, Lookat:=xlWhole)
If Not rng Is Nothing Then
Application.Goto rng, Scroll:=True
End If
End Sub
ComboBox1.Value = Format(ComboBox1, "dd.mm.yyyy")
ComboBox1.RowSource = "Daten!A2:A366"
Jetzt weiß ich nicht wie ich erstens diesen Code richtig zum laufen bekomme und zweitens noch die Prüfung mit "1" da reinbekomme und es dann noch auf das andere Tabellenblatt übertragen kann.
Vielen Dank!
Link zur Datei: https://www.herber.de/bbs/user/147602.xlsm