Makro löschen
27.07.2020 11:02:18
Walter
ich habe mal dieses Makro von einem Freund erhalten.
Dieses Makro befindet sich in einer UF, soweit funktioniert alles.
Wenn ich aber die Zeile löschen möchte, löscht das Makro
die GANZE Zeile
Es soll aber nur der Name in der Zelle, der Spalte i gelöscht werden.
Private Sub CommandButton4_Click()
With Worksheets("Feiertage")
.Unprotect (getStrPasswort)
If FundZeile 0 Then
If MsgBox("Wollen Sie den/die """ & TextBox1.Value & """ wirklich löschen?", _
vbYesNo + vbQuestion, " Löschabfrage, nur zur Sicherheit.") = vbYes Then
.Unprotect (getStrPasswort)
.Rows(FundZeile).Delete Shift:=xlUp
.Columns("i:i").EntireColumn.AutoFit
With ListBox1
Call Array_fuellen_I
.Clear
.Column = aTmp
End With
' Unload UserForm1
End If
End If
End With
TextBox1.Value = ""
CommandButton1.Enabled = True ' den Übernehmen-Button entsperren
CommandButton3.Enabled = False ' den Ändern-Button sperren
CommandButton4.Enabled = False ' den Lösch-Button sperren
Me.Label9.Caption = ActiveSheet.Range("i2").Value
TextBox1.SetFocus
UserForm_Initialize
End Sub
walter