Leere Zeilen
17.10.2007 21:35:00
Roger
ich habe folgendes Problem:
Ich habe ein Bereich A1:B10 bei dem ein Makro prüfen soll ob der Bereich leer ist.
Diese Makro habe ich hin gekriegt.
Sub Daten()
Dim a As Long
Dim b As Long
a = Application.WorksheetFunction.CountA([A1:A10])
b = Application.WorksheetFunction.CountA([B1:B10])
If a = 0 And b = 0 Then
MsgBox "Keine Daten !!"
Exit Sub
End If
End Sub
Nun soll ein weiteres Makro prüfen ob es in dem Bereich A1:B10 irgend eine gemeinsame Zeile gibt, bei der in beiden Spalten (A+B) einen Wert enthalten ist.
Wenn ja sind Daten vorhanden wenn nein nicht.
Ich habe diverses probiert aber ich komme einfach nicht weiter ;O(
Sub Daten()
Dim AZeile As Long
Dim BZeile As Long
For AZeile = 1 To 10
If Range("a" & AZeile) "" And Range("b" & AZeile) = "" Then
MsgBox "Keine Daten !!"
Exit Sub
End If
Next AZeile
MsgBox ("Weiter")
End Sub
Der Fehler an diesem Makro ist, dass es von oben nach unten arbeitet. Wird in der Zeile 4 in der Spalte A ein Wert gefunden und in der Spalte B keinen wird das Makro beendet, obwohl vielleicht weiter unten noch in beiden Spalten auf der gleiche höhe noch etwas steht und die Bedingung für weiter erfüllt wäre!
Kann mir jemand helfen?
Würde mich freuen.
Gruss Roger