Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Nur ausgewälte Zellen löschen

Nur ausgewälte Zellen löschen
20.03.2020 10:51:20
Jö_Ma
Hallo Leute nun habe ich noch eine Frag.
Ich in folgendem Quellecode nur einzelene Spalten löschen und nicht alle Zellen.
If .Cells(i, 1) = ComboBox_name.Value Then
.Rows(i).ClearContents

nach clearcontents fehlt doch etwas.
danke vorab
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Nur ausgewälte Zellen löschen
20.03.2020 11:35:21
MCO
Hallo JoMä!
Da fehlt nix hinter clearcontents.
Der Kontext ist "bereich.löschen", also für die Spalte

columns("A").clearcontents
, oder

columns("A:C").clearcontents
oder

columns(1).clearcontents
(hier kenn ich keine mehrfachselection) oder

Range("a1:I5").ClearContents
Damit solltest du hoffentlich weiterkommen...
Gruß, MCO
Anzeige
AW: Nur ausgewälte Zellen löschen
20.03.2020 11:38:27
KlausFz
Hallo "Jö",
lass mal die Punkte vor Cells und Rows weg!
Gruß!
Klaus
AW: Nur ausgewälte Zellen löschen
20.03.2020 11:41:24
Werner
Hallo,
ich denke du meinst so was:
With Worksheets("Tabelle1")
If .Cells(i, "A") = ComboBox_name.Value Then
Union(.Cells(i, "A"), .Cells(i, "D"), .Cells(i, "H"), .Cells(i, "S")).ClearContents
End If
End With
Gruß Werner
Anzeige
AW: Nur ausgewälte Zellen löschen
20.03.2020 11:41:36
fcs
Hallo JoMa,
du musst dann die Inhalte in den Zellen der entsprechenden Spalten einzeln löschen.
LG
Franz
Dim spa As Long
If .Cells(i, 1) = ComboBox_name.Value Then
For spa = 1 To 20 '20 entsprechend letzter SPalte anpassen
Select Case spa
Case 4 To 7, 12, 14, 18 To 20 '1 = A, 2 = B usw.
.Cells(i, spa).ClearContents
End Select
Next
End If

Anzeige
AW: Nur ausgewälte Zellen löschen
25.03.2020 08:28:19
Jö_Ma
Hallo Franz,
leider klappt das nicht so ganz. Vielleicht kannst du mir da nochmals helfen. Ich habe bestimmt nur irgend etwas vergessen.
Private Sub CommandButton4_Click()
Dim passwd As String
passwd = InputBox("Bitte Passwort eingeben.")
If passwd  "küche" Then
MsgBox ("Passwort ist falsch!")
Exit Sub
End If
Dim i As Integer
Dim spa As Long
Worksheets("Übersicht").Activate
If Cells(i, 1) = ComboBox_name.Value Then
For spa = 1 To 69 '20 entsprechend letzter SPalte
Select Case spa
Case 1 To 2
Cells(i, spa).ClearContents
End Select
Next
End If
Das ist der gesamte Code. Ee kommt immer der Gelbe Pfeil auf der Zeile (If Cells(i,1) = ComboBox_name. Value Then
Lg
Jörg
Anzeige
AW: Nur ausgewälte Zellen löschen
25.03.2020 09:54:54
Werner
Hallo,
warum hier und dann auch noch ein neuer Beitrag dazu?
Siehe im neuen Beitrag.
Gruß Werner
AW: Nur ausgewälte Zellen löschen
25.03.2020 10:02:14
Jö_Ma
Sorry Werner :-)
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige