|
hallo leute,
gerade zweifle ich an mir. diese einfache schleife führt ständig zum error - ich komme nicht dahinter (offie 2010)
kann mir jemand einen tip geben?
danke
stan
Sub Format_Import_LV()
'
' Format_Import_LV Makro
'
'
Dim n As Variant
Dim m As Variant
n = 8
m = 100
Cells(1, 13).Value = "------"
zfschleife:
If Cells(n, 12).Value = "" Then
Rows(n).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
n = n + 1
End If
n = n + 1
If n > m Then GoTo zfende
Cells(1, 13).Value = n
GoTo zfschleife
zfende:
Cells(1, 13).Value = "OK"
End Sub
|