Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1000to1004
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
Zellinhalte löschen
08.08.2008 09:32:00
Jürgen
Hallo Excel Profis,
ich suche eine VBA-Lösung für folgendes Problem:
In einem Tabellenbereich A3:K100 soll das Makro die Spalte I durchsuchen.
Wenn hier ein x steht soll dieses gelöscht werden und gleichzeitig die Inhalte
in den Zellen B, D, E, H links daneben.
Es sollen nur die Zellinhalte gelöscht werden!
Beispiel:
In Zelle I6 steht ein x. Dieses soll gelöscht werden und gleichzeitig auch der
Zellinhalt von B6, D6, E6, H6.
Ich hoffe, ich habe mich halbwegs verständlich ausgedrückt.
Gruß Jürgen

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellinhalte löschen
08.08.2008 09:40:00
Beverly
Hi Jürgen,

Sub loeschen_zellinhalte()
Dim inZeile As Integer
For inZeile = 3 To 100
If Cells(inZeile, 9) = "x" Then Union(Cells(inZeile, 2), Cells(inZeile, 4), Cells( _
inZeile, 8)).ClearContents
Next inZeile
End Sub




AW: Zellinhalte löschen - Korrektur
08.08.2008 09:44:32
Beverly
Hi Jürgen,
Spalte E und I fehlten noch

Sub loeschen_zellinhalte()
Dim inZeile As Integer
For inZeile = 3 To 100
If Cells(inZeile, 9) = "x" Then Union(Cells(inZeile, 2), Cells(inZeile, 4), Cells( _
inZeile, 5), Cells(inZeile, 8), Cells(inZeile, 9)).ClearContents
Next inZeile
End Sub




Anzeige
AW: Zellinhalte löschen - Korrektur
08.08.2008 10:10:10
Jürgen
Hallo Beverly,
Besten Dank, klappt einwandfrei !
Gruß Jürgen

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige