Gefundene Werte aus Nachbarzelle in Tabelle2 kop.
05.02.2013 17:03:17
Burghard
ich möchte mittels eines Makros gefundene Werte in einer Nachbarzelle anhand eines Input-Wertes in die Tabelle2 untereinander in die Spalte A kopieren. Mein Makro überschreibt den gefundenen Wert aber immer in Tabelle2 Zelle A1. Ich möchte dort in der Spalte A aber alle gefundenen Werte untereinander haben.
Mein (fehlerhaftes) Makro:
Sub Nachbarzelle_Wert_kopieren()
Application.ScreenUpdating = False
Dim finden, zelle As Range
Dim Wert As String
Set finden = Range("AA2:AA5000")
Wert = InputBox("Wonach suchen?")
For Each zelle In finden
If zelle.Text = Wert Then
zelle.Offset(0, -6).Copy
Sheets("Tabelle2").Cells(1, 1).PasteSpecial xlPasteValues
End If
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
Gruß Burghard