leeren berercih prüfen

Forumthread: leeren berercih prüfen
3 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: leeren berercih prüfen

26.04.2008 21:54:33

michi

hallo,
ich möchte, dass ein bestimmter bereich auf volle zellen überprüft wird.
so gehts nicht, verdeutlich aber vielleicht was ich meine:


Sub test()
Dim a As String
a = ActiveCell.Range("A1:z1").Select
If a = "" Then
MsgBox "leer"
Else
MsgBox "mind. eine volle Zelle"
End If
End Sub

Danke für Eure hilfe.
grüße
michi

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: leeren berercih prüfen

26.04.2008 22:26:22

Jürgen
AW: leeren berercih prüfen

26.04.2008 23:16:56

michi
ohne VBA geht es so ...

26.04.2008 23:06:04

Matthias

AW: leeren berercih prüfen

26.04.2008 22:26:22

Jürgen

So müsste es funktionieren:


Sub test()
Dim Bereich As Range, intA As Integer
Set Bereich = ActiveSheet.Range(Cells(1, 1), Cells(5, 5))
For Each zelle In Bereich
If zelle  "" Then
intA = intA + 1
End If
Next zelle
If intA > 0 Then
MsgBox "Mindestens eine volle Zelle"
End If
End Sub

AW: leeren berercih prüfen

26.04.2008 23:16:56

michi

super ich danke dir!

ohne VBA geht es so ...

26.04.2008 23:06:04

Matthias

Hallo
probier mal Folgendes:
Markiere Deinen Bereich z.B. A1:Z1 (Dein Beispiel)
Drücke F5 - Inhalte
wähle nun Konstanten oder auch Leerzellen
vergib dem nun markierten Bereich eine Hintergrundfarbe z.B. Gelb
und Dir wird gezeigt welche Zellen Leer bzw. gefüllt sind.
Ansonsten mit VBA nutze If IsEmpty(Zelle) ...
in dieser Art:


Option Explicit
Sub test()
Dim C As Variant
For Each C In Worksheets("Tabelle1").Range("A1:Z1")
If IsEmpty(C) Then C.Interior.ColorIndex = 5
Next
End Sub

Userbild