Hey ihr lieben VBAler,
folgendes Problem: Ich habe ein Tabellenblatt in dem in einer Spalte die Buchstaben M bzw. für M alternativ auch die 90 und A bzw. für A alternativ die 60 stehen. Die A's haben noch eine weitere Zahl zugeordnet, siehe so:
M 90
A 60; 120
A 60
M 90
A 60; 100
A 60
Jedem M soll nun der Wert von dem A darunter z.B. "120" zugeordnet und dahinter in eine leere Zeile kopiert werden und das für das ganze Tabellenblatt und alle M's:
M 90; ; 120
A 60; 120
Mein Code lautet wie folgt: (Das Problem ist, es passiert NICHTS)
'Sub Suchen()
'Dim M As String
'Dim i As Integer
'Dim j As Integer
'For i = 1 To ActiveSheet.Cells.SpecialCells(xlLastCell).Column
' For j = 1 To ActiveSheet.Cells.SpecialCells(xlLastCell).Row
' If Cells(j, i).Value = M Then
' Selection.Offset(1, 7).Select
' Selection.Copy
' Selection.Offset(-1, 8).Select
' ActiveSheet.Paste
' End If
' Next
'Next
'End Sub
Kann wer helfen??
Liebe Grüße Sarah
|