Zelle löschen

Forumthread: Zelle löschen
3 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Zelle löschen

Zelle löschen

07.07.2003 13:45:25

Ulf

Hallo Excel Gemeinde
habe folgendes Problem. Besteht die Möglichkeit das beim öffnen einer Datei ein Makro einen bestimmten Bereich absucht dabei soll es feststellen ob in dem Bereich in Spalte A ein Wert oder Text steht, wenn nicht soll er die gesamte Zeile löschen. Aber nur die Zeile in der die Zelle A leer ist. Die Datei hat 5 Tabellenblätter.
danke für die Hilfe
Ulf

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zelle löschen

07.07.2003 14:54:00

Hubert Z.
AW: Zelle löschen

07.07.2003 14:52:11

xxx
Danke für eure Hilfe

08.07.2003 12:48:27

Ulf

AW: Zelle löschen

07.07.2003 14:54:00

Hubert Z.

Hallo Ulf,
ich weiß nicht wie weit Du mit VBA bewandert bist, aber hier sind ein paar Befehle:
Für alle Tabellenblätter, z.b.
for each wks in thisworkbook.worksheets
Alles was beim Öffnen des Workbooks passieren soll:
private sub workbook_open-Ereignis
Mehr findest Du in der Recherche.

AW: Zelle löschen

07.07.2003 14:52:11

xxx

Hallo,
in DieseArbeitsmappe:


Private Sub Workbook_Open()
Dim Zeile1 As Long, Spalte As Byte, Blatt As Worksheet
Application.ScreenUpdating = False
For Each Blatt In ActiveWorkbook.Sheets
Zeile1 = 1
Spalte = 1
Do
If Cells(Zeile1, Spalte).End(xlDown).Row = 65536 Then GoTo next_Blatt
If IsEmpty(Cells(Zeile1 + 1, Spalte)) Then
Rows(Zeile1 + 1).Delete
End If
Zeile1 = Zeile1 + 1
Loop
next_Blatt:
Next Blatt
Application.ScreenUpdating = True
End Sub

Es werden in allen Blättern alle Zeilen gelöscht, die in A leer sind.
Gruß aus'm Pott
Udo

Danke für eure Hilfe

08.07.2003 12:48:27

Ulf

Danke

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!