Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1280to1284
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
Inhaltsverzeichnis

ZellenInhalt löschen wen anderen Zelleninhalt leer

ZellenInhalt löschen wen anderen Zelleninhalt leer
19.10.2012 19:31:00
Arthur
Hallo zusammen
Ich möchte ein Makro, das bewirkt, wenn in A1 nichts steht, dass G1 und H1 gelöscht wird. Dann wenn in A2 etwas steht, G2 und H2 beibelassen werden. Wenn A3 nichts steht, Inhalte von G3 und H3 gelöscht werden.
Im Internet habe ich dies gefunden, so was ändlichen aber halt nicht die Zeile löschen...
Sub Zelle löschen()
Dim i As Long
Application.ScreenUpdating = False
For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If Cells(i, 5) = "" Then Rows(i).Delete
Next i
Application.ScreenUpdating = True
End Sub
Vielen Dank für eure Hilfe!
Arthur

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

Betreff
Datum
Anwender
Anzeige
AW: ZellenInhalt löschen wen anderen Zelleninhalt leer
19.10.2012 19:57:16
firmus
hi Arthur,
das sollte das tun:
immer wenn in Spalte A kein Wert enthalten ist, dann soll in Spalte G + H der Wert gelöscht werden.
Die Zellen selbst sollen nicht entfernt werden. OK?
Sub Zelle_loeschen()
Dim i As Long
Application.ScreenUpdating = False
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, 1) = "" Then
Cells(i, 7).Value = ""  'Gnn loeschen
Cells(i, 8).Value = ""  'Hnn loeschen
End If
Next i
Application.ScreenUpdating = True
End Sub
Gruß
firmus

AW: ZellenInhalt löschen wen anderen Zelleninhalt leer
19.10.2012 20:09:47
Arthur
aaah, super!!! Ich habe es gerade getestet, so habe ich es gemeint.
Danke vielmals!!
Gruss
Arthur
Anzeige

326 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige