Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1340to1344
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Per Combobox werte aus Zeile löschen
06.12.2013 15:40:26
Andreas
Hallo Excelprofis,
Habe im Netz folgenden Code gefunden, mit dem ich nach Auswahl in Combobox2 den Inhalt der Zellen der Spalten 1 bis 3 der gleichen Zeile löschen kann. Jetzt soll aber auch noch der Inhalt der Zellen in den Spalten 5 bis 200 gelöscht werden.
Und kann man vieleicht noch eine Abfrage ob wirklich gelöscht werden soll einfügen?

With Worksheets("Tabelle2")
a = ComboBox2.ListIndex + 3
Range(Cells(a, 1), Cells(a, 3)).ClearContents
End With
Danke fürs lesen und die Hilfe!
mfg, Andreas

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Per Combobox werte aus Zeile löschen
06.12.2013 16:03:14
hary
Moin Andreas
With Worksheets("Tabelle2")
a = ComboBox2.ListIndex + 3
If MsgBox("Möchten sie wirklich löschen?", vbYesNo, "Nachgefragt") = vbYes Then
Union(.Range(.Cells(a, 1), .Cells(a, 3)), .Range(.Cells(a, 5), .Cells(a, 200))). _
ClearContents
End If
End With

oder
With Worksheets("Tabelle2")
a = ComboBox2.ListIndex + 3
If MsgBox("Möchten sie wirklich löschen?", vbYesNo, "Nachgefragt") = vbYes Then
.Cells(a, 1).Resize(1, 3).ClearContents
.Cells(a, 5).Resize(1, 195).ClearContents
End If
End With

gruss hary

Anzeige
AW: Per Combobox werte aus Zeile löschen
06.12.2013 16:21:40
Andreas
Hallo hary,
vielen Dank für die Hilfe, klappt super.
Ein schönes Wochenende!
mfg, Andreas

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige