ich hab folgende VBA die ich bereits durch den Support dieses Forums erhalten habe versucht anzupassen.
Ich wollte die Anweisung des VBA's in einem anderen Tab öffnen, also nicht in dem selben Blatt.
Die Daten kommen also von "Tabelle2", das Ergebnis in "Berechnung".
Sub test()
Sheets("Tabelle2").Select
Dim Zelle As Range
Dim ZelleAlt As Range
Dim Zeile As Long
With Range("A:T")
Set Zelle = Sheets("Berechnung").Select.Find(what:=Range("A1").Value, lookat:=xlWhole, LookIn:=xlValues)
If Not Zelle Is Nothing Then
Set ZelleAlt = Zelle.UsedRange.Columns(5).Resize(, 3).Offset(1, 0).Clear
Zeile = 2
Do
Zelle.Offset(1 - Zelle.Row, -1).Copy Cells(Zeile, 5)
Zelle.Offset(-1, -1).Resize(4, 3).Copy Cells(Zeile + 1, 5)
Zeile = Zeile + 6
Set Zelle = .FindNext(Zelle)
Loop Until Zelle.Address = ZelleAlt.Address
End If
End With
End Sub
Kann Jemand helfen, meine Lösung scheint nicht ganz zu funktionieren.Lg Azat