Hallo Sarah,
probiere es doch mal hiermit:
Sub Suchen()
Dim M As Variant
Dim i, j, ZeilenTab3 As Integer
ZeilenTab3 = ActiveWorkbook.Sheets("Tabelle3").Cells(Rows.Count, 1).End(xlUp).Row ' Zählen der beschriebenen Zeilen in Spalte A
M = "M" 'String-Variable mit Buchstabe "M" vorbelegen
i = 1
'Schleifen zum Durchsuchen der Spalte A
For j = 1 To ZeilenTab3
M = Cells(j, i).Value 'Variant-Variable mit Buchstabe aktuellem Zelleninhalt vorbelegen
'Abfrage, ob Variable M den Wert "90" oder "M" enthält
If M = 90 Or M = "M" Then
Cells(j, i + 2).Value = Cells(j + 1, i + 1).Value 'Inhalt der nachfolgenden Zeile, Spalte B in die aktuelle Zeile,Spalte C kopieren
End If
Next
End Sub
Ich bin jetzt davon ausgegangen, dass du in Spalte A deine A's bzw. 60 und M's bzw. 90 hast.
In Spalte B hast du hinter den A's, die auf ein M folgen eine Zahl stehen
Und in Spalte C willst du in der Reihe der M's diese Zahlen einfügen.
Viel Spaß damit.
Gruß
Andreas
|