Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
340to344
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
340to344
340to344
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen gruppieren

Zeilen gruppieren
23.11.2003 12:48:31
Frank
Hallo,

ich habe eine Liste mit ca. 500 Zeilen. Es gehören immer 4 Zeilen zusammen. Z.B. 4,5,6,7; 8,9,10,11; usw.
Wenn nun die A Spalte in allen 4 Zeilen leer ist soll der 4er-Block gelöscht werden, wenn aber in einer oder mehreren Zeilen ein Wert in der A-Spalte steht soll der ganze 4er-Block bleiben. Hab ihr da eine Lösung.
Schon mal Danke
Gruß Frank

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

Betreff
Datum
Anwender
Anzeige
AW: Zeilen gruppieren
23.11.2003 13:45:03
Reinhard
Hallo Frank,
nimm das folgende (ungetestete) Makro.
"...soll der 4er Block gelöscht werden..." ist mir unklar.

Soll der Inhalt der 4 Zeilen gelöscht werden nimm das Makro wie es ist.
Sollen die 4 zeilen gelöscht werden, so ersetze:
If Wert = "" Then
Tab1.Range(Cells(Zeile, 1), Cells(Zeile + 3, 256)).ClearContents
Zeile = Zeile + 4
End If
durch:
If Wert = "" Then
Tab1.Range(Cells(Zeile, 1), Cells(Zeile + 3, 256)).EntireRow.Delete
Else
Zeile = Zeile + 4
End If
Gruß
Reinhard
Option Explicit
Sub Frank()
Dim Tab1 As Worksheet 'Name des tabellenblatts
Dim n As Byte 'Schleifenzähler
Dim Zeile As Long 'aktuelle Zeile in Schleife
Dim LetzteZeile As Long ' Letzte benutzte Zeile im Blatt
Dim Wert As String 'Gesamtstring aus 4erBlock
Set Tab1 = Worksheets("Tabelle1")
Zeile = 4 'Startzeile der 4er Blocks
LetzteZeile = Tab1.Cells(65536, 1).End(xlUp).Row
While Zeile <= LetzteZeile
Wert = ""
For n = 0 To 3
Wert = Wert + Tab1.Cells(Zeile + n, 1)
Next n
If Wert = "" Then
Tab1.Range(Cells(Zeile, 1), Cells(Zeile + 3, 256)).ClearContents
Zeile = Zeile + 4
End If
Wend
Set Tab1 = Nothing
End Sub

Anzeige
AW: Zeilen gruppieren
23.11.2003 13:56:01
Frank
Mit gelöscht meinte ich, das leere 4er-Blöcke auf dem Ausdruck nicht erscheinen. Die original Datei wird komplett in ein anderes Sheet kopiert und dort dann die leeren Blöcke gelöscht und anschließend ausgedruckt. So sollte es mal funtionieren. Danke für die Antwort, werd es mal versuchen.

MfG Frank
AW: Zeilen gruppieren
23.11.2003 14:13:17
Klaus Schubert
Hallo Frank,

versuch's mal hiermit (in der Konstanten ErsteZeile die Zeilennummer angeben, an dem der erste 4er-Block beginnt !):


Sub ZeilenLöschen()
Dim i As Integer, i2 As Integer, Anfangszeile As Integer, Leer As Boolean
Dim LetzteZeile As Integer
Const ErsteZeile = 1
LetzteZeile = ActiveSheet.Cells(Cells.Rows.Count, 1).End(xlUp).Row
For i = ErsteZeile To LetzteZeile Step 4
Anfangszeile = i
Leer = True
For i2 = i To i + 3
If Cells(i2, 1) <> "" Then
Leer = False
Exit For
End If
Next i2
If Leer = True Then
Range(Rows(Anfangszeile), Rows(Anfangszeile + 3)).Delete Shift:=xlUp
i2 = i2 - 4
End If
Next i
End Sub


Gruß Klaus
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige