VBA Wertabfrage & Outputbox
11.11.2004 17:03:36
AL
mit untenstehendem VBA lasse ich eine zeile durch copy & paste einfügen.
Jetzt möchte ich zusätzlich einbauen, dass wenn in der zu kopierenden zeile ein wert x in a1 steht, keine zeile eingefügt werden kann & ein infotext erscheint. offensichtlich bin ich aber zu blöd dafür - könnt ihr mir viell. helfen?
vielen dank im voraus!!
lg, AL
zlnr = InputBox("Text XY")
Rows(zlnr & ":" & zlnr).Select
Selection.Insert Shift:=xlDown
Range(zlnr + 1 & ":" & zlnr + 1).Select
Selection.AutoFill Destination:=Range(zlnr & ":" & zlnr + 1), Type:=xlFillSeries
Range("a" & zlnr).Select