Microsoft Excel

Herbers Excel/VBA-Archiv

Zellinhalte löschen

Betrifft: Zellinhalte löschen von: Jürgen
Geschrieben am: 08.08.2008 09:32:15

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

  

Betrifft: AW: Zellinhalte löschen von: Beverly
Geschrieben am: 08.08.2008 09:40:40

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




GrußformelBeverly's Excel - Inn


  

Betrifft: AW: Zellinhalte löschen - Korrektur von: Beverly
Geschrieben am: 08.08.2008 09:44:32

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



GrußformelBeverly's Excel - Inn


  

Betrifft: AW: Zellinhalte löschen - Korrektur von: Jürgen
Geschrieben am: 08.08.2008 10:10:10

Hallo Beverly,

Besten Dank, klappt einwandfrei !

Gruß Jürgen


 

Beiträge aus den Excel-Beispielen zum Thema "Zellinhalte löschen"