Hallo liebe Forumgemeinde,

Hab mir diesen code zusammengeschustert und dazu 2 Fragen:
1.: im Bereich H3:NI3 stehen meine Spalten zahlen 1-366
der code funktioniert nur wenn ich Zahlen von 1-99 eingebe, ab 100 bringt er Laufzeitfehler 91
was mach ich falsch?

2. ich würde gerne statt nach der Zahl zu suchen, nach einem datum suchen!
datum, von 01.01.2024 steht in H6:NI6
aber das bekomm ich leider nicht hin.

Sub A4X()
Dim Anfang As Integer
Dim zeile2 As Long
Dim Tb1 As Worksheet, AC As Range
Dim Spalte1 As Long
Dim ZeileAngabe As Range
Anfang = InputBox("Spaltennummer eingeben")
Set ZeileAngabe = Sheets("Tabelle9").Range("H3:NI3").Find(what:=Anfang, LookIn:=xlValues, lookat:=xlWhole, _
SearchOrder:=xlByRows, SearchDirection:=xlNext)

Spalte1 = ZeileAngabe.Column
Set Tb1 = Worksheets("Tabelle1")
zeile2 = ActiveCell.Row
With Worksheets("Tabelle9")
For Each AC In .Range(Worksheets("Tabelle9").Cells(14, Spalte1), Worksheets("Tabelle9").Cells(14, 373))
If AC.Value > Empty Then
Tb1.Cells(zeile2, AC.Column) = AC.Value
End If
Next AC
End With

End Sub