Suche Bezug
29.11.2004 10:04:25
Euft
ich habe ein Problem. Ich habe zwei verschiedene Dateien. In einer ist ein Datenblatt, in der anderen eine Zeile, die zu befüllen ist. Mein Ziel ist es, dass ein Makro nach der Eingabe in das Feld A1 der Datei "test1", die Spalte A der Datei "test" nach diesem Wert durchsucht.
Ein Beispiel:
Ich gebe in die Zelle A1 von "test1" 5 ein.
Mein Makro öffnet die Datei "test".
Nun soll es die Spalte A von "test" nach 5 durchsuchen.
Wenn es 5 gefunden hat, soll es die ganze Zeile, die dahinter steht nach "test1" kopieren.
Soweit bin ich schon:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
Dim V_Zeile, V_Zeile2, V_TMPDatum, V_counter, test, V_Start
V_Zeile2 = 1
If Range("A1") <> "" Then
Workbooks.Open ("C:\Pfad\test.xls")
End If
While Workbooks("C:\Pfad\test.xls").Tabelle1.Range("A" & V_Zeile2) <> ""
If Workbooks("C:\Pfad\test.xls").Range("A" & V_Zeile2) = Range("A1") Then
V_counter = V_counter + 1
V_Zeile2 = 1000
End If
V_Zeile2 = V_Zeile2 + 1
Wend
End Sub
Anscheinend ist der Bezug in der While-Schleife falsch
"Workbooks("C:\Pfad\test.xls").Tabelle1.Range("A" & V_Zeile2)"
Danke schön im Vorraus.
Mit freundlichen Grüßen
Euft
Anzeige