Hallo zusammen
Ich würde mich um Untersützung freuen bei meinem aktuellen Problem:
habe ein makro aufgesetzt (das scheint mir aber verkehrt zu laufen, oder besser gesagt gar nicht)
möchte wie im bild ersichtlich via Klick auf die rote schaltfläche eine zeile über jener Zeile wo die 3 drin steht einfügen
Ich bekomms aber leider partout nicht hin.
Hier noch mein Code bis anhin (das next am schluss ist da, weil ich das ganze prozedere später in einer anderen spalte auch noch machen will):
Sub Rechteck1_BeiKlick()
'
' Rechteck1_BeiKlick Makro
' Makro am 10.09.2010 von Cartel aufgezeichnet
'
'
Sheets("Tabelle1").Select
ActiveSheet.Unprotect
Dim wksA As Worksheet
Dim lngLetzteZeile As Long
Dim lngZeile As Long
Set wksA = ActiveSheet
lngLetzteZeile = wksA.Cells(wksA.Rows.Count, 2).End(xlUp).Row
For lngZeile = 12 To 1 Step -1
If wksA.Cells(lngZeile, 2).Value = 3 Then
wksA.Rows.Select
Selection.Insert Shift:=xlUp
End If
Next
ActiveSheet.Protect
Ich würde mich um Untersützung freuen bei meinem aktuellen Problem:
habe ein makro aufgesetzt (das scheint mir aber verkehrt zu laufen, oder besser gesagt gar nicht)
möchte wie im bild ersichtlich via Klick auf die rote schaltfläche eine zeile über jener Zeile wo die 3 drin steht einfügen
Ich bekomms aber leider partout nicht hin.
Hier noch mein Code bis anhin (das next am schluss ist da, weil ich das ganze prozedere später in einer anderen spalte auch noch machen will):
Sub Rechteck1_BeiKlick()
'
' Rechteck1_BeiKlick Makro
' Makro am 10.09.2010 von Cartel aufgezeichnet
'
'
Sheets("Tabelle1").Select
ActiveSheet.Unprotect
Dim wksA As Worksheet
Dim lngLetzteZeile As Long
Dim lngZeile As Long
Set wksA = ActiveSheet
lngLetzteZeile = wksA.Cells(wksA.Rows.Count, 2).End(xlUp).Row
For lngZeile = 12 To 1 Step -1
If wksA.Cells(lngZeile, 2).Value = 3 Then
wksA.Rows.Select
Selection.Insert Shift:=xlUp
End If
Next
ActiveSheet.Protect