Moin Leute,
ich möchte über ein Array mehrere Tabellenblätter ansprechen. Jedoch zeigt es mir bei der Ausführung einen Fehler an.
Ich gebe ein Datum über ein Inputbox. Dieser soll über ein Array in einer definierten Spalte nach dem Datum schauen und ggfs die Zeile kopieren.
Beim Array zeigt er mir einen Fehler an.
Hoffe ich konnte den Sachverhalt korrekt vermitteln.
Danke im Voraus!
Der Code:
Sub NEU()
Dim rng As Range
Dim DeinWert As Variant
Dim first As String
Dim mySheet As Variant
DeinWert = InputBox(prompt:="Geben Sie ein Datum:", Default:=Format("dd.mm.yyyy"))
ActiveWorkbook.Worksheets("Insgesamt").Range("A9:K100").Clear
For Each mySheet In Array("Tabelle1", "Tabelle2")
If DeinWert = "" Then Exit Sub
DeinWert = CDate(DeinWert)
Set rng = mySheet.Range("G:G").Find(DeinWert) 'Hier bekomme ich die Fehlermeldung
If rng Is Nothing Then
Else
first = rng.Address
rng.EntireRow.Copy
Worksheets("Insgesamt").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteAll
End If
If DeinWert = "" Then Exit Sub
DeinWert = CDate(DeinWert)
Next
End Sub
|