Herbers Excel-Forum - das Archiv

Zeilen vergleichen

Bild

Betrifft: Zeilen vergleichen
von: Sonja Krings

Geschrieben am: 12.04.2005 08:37:58
Morgen Zusammen,
ich möchte in Excel 2 aufeinander folgende Zeilen auf leeren Inhalt vergleichen. Wenn das Ergebnis "FALSCH" ist soll eine Zeile weiter gesprungen werden und diese dann mit der vorhergehenden Zeile wieder verglichen werden, bis 2 leere Zeilen aufeinander folgen. Danach soll die zuletzt überprüfte Zeilennummer ausgegeben werden.
Im Vorraus schonmal vielen Dank!!
Bild

Betrifft: AW: Zeilen vergleichen
von: Tobias Marx

Geschrieben am: 12.04.2005 08:55:00
Servus!
Ich mahcs jetzt einfach mal fuer die Spalte A, so, dass alles in einem Rutsch durchgegangen wird.
Sub zweileere()
endup = Range("A65536").End(xlUp).Row
zaehl = 0
For i = 1 to endup
If Range("A" & i ).Value = False Then
zaehl = zaehl + 1
If zaehl = 2 Then
MsgBox("Bei Zelle A" & i & "sind zwei leere Zellen!")
zaehl = 0
End If
Else
zaehl = 0
End If
Next i
End Sub

Gruss

Tobias
Bild

Betrifft: AW: Zeilen vergleichen
von: Harald Kapp

Geschrieben am: 12.04.2005 08:58:47
Hallo Sonja,
eine ziemlich unelegante Lösung könnte so aussehen:
Sub test()
Dim i As Long
Dim tmp1 As Variant, tmp2 As Variant
Const MAX = 10000 ' hier maximale Zeilenzahl eingeben
Const SPALTE = 1
tmp1 = Cells(1, SPALTE)
For i = 2 To MAX
If IsEmpty(Cells(i, SPALTE)) And IsEmpty(tmp1) Then
Exit For ' zwei aufeinander folgende leere Zellen gefunden
End If
tmp1 = Cells(i, SPALTE)
Next
If i < MAX Then
MsgBox "zuletzt geprüft: " & i
Else
MsgBox "Keine zwei aufeinander folgende leere Zellen gefunden"
End If
End Sub

Gruß Harald
Bild

Betrifft: AW: Zeilen vergleichen
von: WernerB.

Geschrieben am: 12.04.2005 08:58:58
Hallo Sonja,
wie gefällt Dir das?
Sub Sonja()
Dim laR As Long, i As Long
laR = ActiveSheet.UsedRange.Rows.Count _
+ ActiveSheet.UsedRange.Row - 1
Do Until Application.WorksheetFunction.CountBlank(Rows(laR)) < 256
laR = laR - 1
If laR = 0 Then
Exit Do
End If
Loop
For i = 2 To laR
If WorksheetFunction.CountA(Rows(i)) = 0 And _
WorksheetFunction.CountA(Rows(i - 1)) = 0 Then
MsgBox "Doppelte Leerzeile: " & i, vbInformation, _
"Dezenter Hinweis für " & Application.UserName & ":"
End If
Next i
End Sub

Viel Erfolg wünscht
WernerB.
P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !
Bild

Betrifft: AW: Vielen Dank funktioniert wunderbar
von: Sonja Krings
Geschrieben am: 12.04.2005 09:22:24
 Bild
Excel-Beispiele zum Thema "Zeilen vergleichen"
Zeilenhöhe in cm festlegen Summe gefilterter Zeilen
Zeilenumbruch Leere Zeilen löschen
Spalten/Zeilen aus- und einblenden Zeilenumbruch in Formel erzwingen
Zeilen und Spalten über ein Drehfeld ein- und ausblenden Alle Kopf-/Fußzeilen-Festlegungen löschen
Fußzeilen beim Öffnen eintragen Zellinhalte zeilenweise sortieren