Löschen&Durchstreichen durch VBA (Zelle)

Hallo zusammen,
gleich noch ein Problem, bei dem ich mich leider geschlagen geben muss... Trotz einem ähnlichen Beitrag von Marcus:"lösche bestimmte Zellen", komm ich nicht auf die Lösung für mein Problem...
Und zwar habe ich eine Tabelle, bei der über eine UserForm Einträge (Zeilen) gelöscht werden könne.
Ich bräuchte jedoch die Funktion, dass wenn man über die UserForm und einem extra Button der über der Tabelle ist, Zeilen "löschen" will, vordefinierte Werte in der Markierten Zeile gelöscht werden, andere dagegen nur durchgestrichen werden.
Heißt konkret, dass die Zeile selbst also bestehen bleibt, die Werte in den ZELLEN der Spalten B bis O sollen durchgestrichen werden und die Werte in den ZELLEN der Spalten S-V, X-AA und AC-AF sollen gelöscht werden.
Ich hoffe es ist nicht zu kompliziert erläutert und jemand kann mir hier weiterhelfen...
Grüße
Tobi

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub CommandButton2_Click() Dim lZeile As Long If ListBox1.ListIndex = -1 Then Exit Sub lZeile = 4 'Start in Zeile 4, Zeile 1 sind ja die Überschriften Do While Trim(CStr(Tabelle1.Cells(lZeile, 2).Value)) "" If ListBox1.Text = Trim(CStr(Tabelle1.Cells(lZeile, 2).Value)) Then Tabelle1.Rows(CStr(lZeile & ":" & lZeile)).Delete Call UserForm_Initialize If ListBox1.ListCount > 0 Then ListBox1.ListIndex = 0 Exit Do End If lZeile = lZeile + 1 Loop End Sub

Hallo Piet,
das ist eine Eigenschaft die für mich ja jetzt ganz nützlich ist :D Ne, aber mal ganz im Ernst! Vielen Dank für deine Hilfe :)
Hier eine Beispiel Datei: https://www.herber.de/bbs/user/157292.xlsm. Sie ist von den Funktionen her ganz ganz ähnlich wie die "organale". Die Originale ist etwas übersichtlicher...
Ich habe die Spalten in Orange markiert, welche durchgestrichen werden sollen und die Spalten die gelöscht werden sollen in grün.
Dein Nachtrag wäre prima. Also wenn man auch über die ListBox Einträge nach dieser Logik "löschen" könnte. Aber auch, wenn man in der Tabelle selbst Zeilen markiert und dann auf den Button oben auf "Löschen" klickt.
Wie ich es schon versuch habe war wie folgt:


Private Sub CommandButton2_Click()
Dim lZeile As Long
If ListBox1.ListIndex = -1 Then Exit Sub
lZeile = 4 'Start in Zeile 4, Zeile 1 sind ja die Überschriften
Do While Trim(CStr(Tabelle1.Cells(lZeile, 2).Value))  ""
If ListBox1.Text = Trim(CStr(Tabelle1.Cells(lZeile, 2).Value)) Then
rw = ActiveCell.Row 'Aktive Zeile ermitteln
Tabelle1.Cells(rw, 2).Resirwe(1, 16).Font.Strikethrough = True
Tabelle1.Cells(rw, 19).Resirwe(1, 4) = Empty
Tabelle1.Cells(rw, 24).Resirwe(1, 4) = Empty
Tabelle1.Cells(rw, 29).Resirwe(1, 4) = Empty
Call UserForm_Initialize
If ListBox1.ListCount > 0 Then ListBox1.ListIndex = 0
Exit Do
End If
lZeile = lZeile + 1
Loop
End Sub

aber das hat leider nicht funktioniert...
Vielleicht weißt du, was da falsch läuft...
Viele Grüße
Piet

Beliebteste Forumthreads (12 Monate)

Löschen&Durchstreichen durch VBA (Zelle)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Löschen&Durchstreichen durch VBA (Zelle)

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread