Zellen einfügen
28.01.2004 09:03:30
Mich@
Bei dem Makro, das ich gerade schreibe, tritt folgendes Problem auf:
In Spalten A-E werden Werte eingefügt. In Spalte F ist die Referenz.
Wenn der Wert in der Spalte C mehr als 1 von dem in Spalte F abweicht, sollen Spalten A-E
- gelöscht werden, wenn der Wert kleiner ist (Dieser Teil des Makros funktioniert, daher ' vorangestellt)
- !!! um 1 Zeile nach unten verschoben werden, wenn der Wert größer ist !!!
Ein anschließendes Einfügen von i = i - 1 oder i = i + 1 brachte auch keine Lösung (daher jetzt auch mit ' )
Sub Zwischenablagencheck()
Dim i%, r
Dim xlRange As Excel.Range
For i = 1 To 46
r = ActiveSheet.Cells(i, 7).Value
'If ActiveSheet.Cells(i, 3).Value < (r - 1) Then
'Set xlRange = ActiveSheet.Range _
(ActiveSheet.Cells(i, 1), ActiveSheet.Cells(i, 6))
'xlRange.Select
'Selection.Delete Shift:=xlUp
'End If
If ActiveSheet.Cells(i, 3).Value > (r + 1) Then
Set xlRange = ActiveSheet.Range _
(ActiveSheet.Cells(i, 1), ActiveSheet.Cells(i, 6))
xlRange.Select
Selection.Insert Shift:=xlDown
'i = i + 1
End If
Next i
End Sub
Für schnelle Hilfe (und auch langsame) wäre ich sehr dankbar!
Gruß, Mich@