ich habe eine Tabelle mit Artikelbezeichnung und möchte nun ein Makro erstellen, dass einen bestimmten einmalig vorkommenden Wert (Text) findet und die ersten 3 Spalten bis zur Zeile über eben diesem Wert kopiert. Wie mach ich das?
Gruß
Christina
Sub test()
Dim Artikelnummer As String
Dim Gefunden As Range
Artikelnummer = "G"
Set Gefunden = Worksheets("Tabelle1").Range("A:A").Find(Artikelnummer)
If Gefunden Is Nothing Then
MsgBox "Artikelnummer " & Artikelnummer & " nicht gefunden"
Else
If Gefunden.Row > 1 Then
Range(Cells(1, 1), Cells(Gefunden.Row - 1, 3)).Select
Selection.Copy Destination:=Worksheets("Tabelle2").Range("A1")
Else
MsgBox "Keine Zeilen oberhalb von " & Artikelnummer
End If
End If
End Sub