Zellen leeren

• Zellen leeren von Daniy vom 22.12.2006 10:07:39
• AW: Zellen leeren - von eres am 22.12.2006 10:14:35
• AW: Zellen leeren - von Arthur am 22.12.2006 10:16:52
• AW: Zellen leeren - von Erich G. am 22.12.2006 10:20:06
  • AW: Zellen leeren - von Daniy am 22.12.2006 11:46:06

Betrifft: Zellen leeren
von: Daniy

Geschrieben am: 22.12.2006 10:07:39
Kann man diese Formel auch kürzen? die ganze Reihe ist nicht möglich, da sich in "CZ" noch Daten befinden die nicht gelöscht werden dürfen. "z" ist die Zeile welche ein Kriterium erfüllt.
Sheets("Kunden").Cells(z, 2).Value = ""
Sheets("Kunden").Cells(z, 3).Value = ""
Sheets("Kunden").Cells(z, 4).Value = ""
Sheets("Kunden").Cells(z, 5).Value = ""
Sheets("Kunden").Cells(z, 6).Value = ""
Sheets("Kunden").Cells(z, 7).Value = ""
Sheets("Kunden").Cells(z, 8).Value = ""
Sheets("Kunden").Cells(z, 9).Value = ""
Sheets("Kunden").Cells(z, 10).Value = ""
Sheets("Kunden").Cells(z, 11).Value = ""
Sheets("Kunden").Cells(z, 12).Value = ""
Sheets("Kunden").Cells(z, 13).Value = ""
Sheets("Kunden").Cells(z, 14).Value = ""
Sheets("Kunden").Cells(z, 15).Value = ""
Sheets("Kunden").Cells(z, 16).Value = ""
Sheets("Kunden").Cells(z, 17).Value = ""
Sheets("Kunden").Cells(z, 18).Value = ""
Sheets("Kunden").Cells(z, 19).Value = ""
Sheets("Kunden").Cells(z, 20).Value = ""
Sheets("Kunden").Cells(z, 21).Value = ""
Sheets("Kunden").Cells(z, 22).Value = ""
Sheets("Kunden").Cells(z, 23).Value = ""

Betrifft: AW: Zellen leeren
von: eres
Geschrieben am: 22.12.2006 10:14:35
Wenn Du nicht VBA = gut angegeben hättest, würde ich vorschlagen:
Sheets("Kunden").Range(Cells(z,2),Cells(z,23)).clearcontents
Gruss
erwin

Betrifft: AW: Zellen leeren
von: Arthur
Geschrieben am: 22.12.2006 10:16:52
So sollte es klappen.
-Art

Sub abc()
Dim liIndex As Integer
With Sheets("Kunden")
For liIndex = 2 To 23
.Cells(z, liIndex).Value = ""
Next
End With
End Sub

Betrifft: AW: Zellen leeren
von: Erich G.

Geschrieben am: 22.12.2006 10:20:06
Hallo Daniy,
damit ginge es wohl auch besser:
http://www.kmbuss.de/Excel-CD/Pics/OH_Forumsbeitrag.gif
Weil bald Weihnachten ist:

With Sheets("Kunden")
.Range(.Cells(z, 2), .Cells(z, 23)) = ""
End With
'oder vielleicht:
With Sheets("Kunden")
.Range(.Cells(z, 2), .Cells(z, 23)).ClearContents
End With

Rückmeldung wäre nett! - Erich aus Kamp-Lintfort wünscht euch schöne Feiertage!

Betrifft: AW: Zellen leeren
von: Daniy
Geschrieben am: 22.12.2006 11:46:06
Danke schön an alle. Klappt jetzt wunderbar.
Schöne Weihnachten

Excel-Beispiele zum Thema "Zellen leeren"
Makros in Abhängigkeit vom Zellennamen aufrufen	Zellen auf Kommentar überprüfen
Spalten bedingt summieren und Zellen formatieren	Text aus Textbox in Zellen aufteilen
Zellen vergleichen und markieren	Zählen formatierter Zellen
Daten aus Textdatei gezielt in Zellen übernehmen	Zellen verbinden und trennen
Zellen bei Minuswerten schraffieren	Zeilen oberhalb der markierten Zellen einfügen