Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
972to976
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
972to976
972to976
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

leeren berercih prüfen

leeren berercih prüfen
26.04.2008 19: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
Anzeige
AW: leeren berercih prüfen
26.04.2008 20: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 21:16:56
michi
super ich danke dir!

ohne VBA geht es so ...
26.04.2008 21: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

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige