Zeilen vergleichen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
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

Beiträge aus den Excel-Beispielen zum Thema "Zeilen vergleichen"