Inhalt in gleicher Spalte/anderes Blatt entfernen

Private Sub cmbLoeschen_Click()
'markierte Namen löschen
Dim lngSpalte As Long
If MsgBox("Markierte Namen jetzt löschen?", vbQuestion + vbOKCancel, _
"N A M E N   L Ö S C H E N") = vbCancel Then Exit Sub
Dim intItem As Integer
With Me.ListBox1
For intItem = 0 To .ListCount - 1
If .Selected(intItem) Then
lngSpalte = .List(intItem, 1)
With Worksheets("Gesamtübersicht")
.Range(.Cells(1, lngSpalte), .Cells(4, lngSpalte)).ClearContents
.Range(.Cells(17, lngSpalte), .Cells(424, lngSpalte)).ClearContents
.Range(.Cells(8, lngSpalte), .Cells(483, lngSpalte)).ClearComments
End With
End If
Next intItem
End With
Call prcAuswahllisteFuellen
Unload Me
End Sub

Private Sub UserForm_Initialize()
Call prcAuswahllisteFuellen
End Sub

Private Sub prcAuswahllisteFuellen()
Dim lngSpalte As Long, strName As String
Me.ListBox1.Clear
With Worksheets("Gesamtübersicht")
For lngSpalte = 6 To 55
strName = .Cells(1, lngSpalte)
If strName  "" Then
With Me.ListBox1
.AddItem strName
.List(.ListCount - 1, 1) = lngSpalte
End With
End If
Next lngSpalte
End With
End Sub

Private Sub cmbAbbrechen_Click()
Unload Me
End Sub