Office: VBA Prüfung der Zelle oder Zellenbereich

mst1986 · 12. Januar 2011

Hallo

ich habe folgendes Problem :

ich möchte prüfen ob im aktiven sheet im bereich d2:k2 der Inhalt leer ist, wenn ja soll er abbrechen und zur sprungmarke fehler springen und die schleife weiter fortführen.

Code:

If Range(4, 1) " " Then
On Error GoTo Fehler 'sprungmarke fehler
Else
End If

Anweisungen mit i

Fehler: ' Sprungmarke
Next i
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Könnt ihr dort helfen?

Habe wirklich überall gesucht und probiert...wäre echt nett wenn mir da jmd helfen könnte!

:)

Rudi4 · 14. Januar 2011

Hallo

Excel-Zellenbereich schnell auf Inhalt prüfen

Beschreibung
Hatten Sie auch schon das Problem, einfach zu überprüfen, ob ein Bereich in einem Excel-Arbeitsblatt Daten enthält?

Ist doch leicht: Einfach den Bereich mit einer For Each-Schleife durchlaufen und die Zellen überprüfen, in etwa so:

For Each Zelle In Selection
If IsEmpty(Zelle) = False Then
Msgbox "Daten vorhanden"
Exit For
End If
Next
Das Problem an dieser Variante: es funktioniert und ist verdammt schnell wie ne Wanderdüne. Bei der Überprüfung große Bereiche oder gar des gesamten Arbeitsblattes dauerts richtig lange.

Dass es aber auch anderes geht, zeigt uns Excel bei unzähligen Funktionen selbst. Mit folgendem Code können Sie ab sofort ebenfalls komplette Arbeitblätter in Null komma nix überprüfen.

diese Funktion prüft, ob der angegebene
' Zellenbereich' leer ist (TRUE) oder Zellen mit
' Inhalt/Formeln enthält (FALSE)
Function IsEmptyCells(CheckRange As Range) As Boolean
On Error Resume Next

Dim FoundCells As Range
Dim EmptyCells As Boolean

' wenn kein Zellenbereich übergeben wurde, Funktion abbrechen
If CheckRange Is Nothing Then
IsEmptyCells = False
Exit Function
End If

IsEmptyCells = False

' wenn nur eine Zelle markiert ist, liefert
' Selection.SpecialCells immer die erste gefundene Zelle
' aus dem gesamten Arbeitsblatt, deswegen, bei Ein-Zellen-
' Markierung den ZellWert selbst prüfen
If CheckRange.Cells.Count = 1 Then
' liefert TRUE, wenn die markierte Zelle leer ist
IsEmptyCells = IsEmpty(CheckRange.Value)
Else

' liefert sämtliche Zellen der Markierung, die einen
' konstanten Wert enthalten
Set FoundCells = CheckRange.SpecialCells(xlCellTypeConstants)

' gibt es in der Markierung keine Zellen mit konstanten
' Inhalt, dann prüfen, ob Formeln vorhanden sind
If Error "" Then
' Fehlerbehandlung zurücksetzen
On Error Resume Next
Set FoundCells = CheckRange.SpecialCells(xlCellTypeFormulas)

' liefert TRUE, wenn in der Markierung keine Zellen
' mit Formeln vorhanden sind
IsEmptyCells = (Error "")
End If
End If

End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

User · 14. Januar 2011

Hallo, mst1986,

dazu benötigt man keine Sprungstelle, sondern nur eine einfache Prüfung mit einer Tabellenfunktion (ANZAHLLEEREZELLEN), wenn dort keine Formeln hinterlegt sind, die nichts anzeigen:

Code:

If WorksheetFunction.CountBlank(Range("D2:K2")) < Range("D2:K2").Cells.Count Then
For I = 4 To 11
'tu irgendwas mit den Spalte
Next I
''meiner Meinung nach besser, auf die gefüllten Zellen zuzugreifen (hier: Festwerte)
''Select dient nur als Beispiel, da Du nicht ausgeführt hast, was getan werden soll
'Range("D2:K2").SpecialCells(xlCellTypeConstants, 23).Select
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß
CodeWarrior

mst1986 · 15. Januar 2011

Ich habe ein Datensatz mit unterschiedlichen Kundennummern:

ich möchte eine einzelne Auswertung für einen Kunden erstellen.

1. Datensatz (mit allen Kunden)
2. Filter nach Kundennummer XYZ
3. Daten von XYZ markieren und kopieren ( manuell: STRG + SHIFT + Rechts Links , STRG + C )
4. Daten von XYZ in einfügen
5. Datenblatt resfresh.all
6. Tabellenblatt auswertung kopieren als neue mappe
7. workbook "xyz" dort und hier noch was machen
8. speichern unter name und datum

Das Problem ist es gibt im Datensatz keine fortlaufende Nummerierung für die Kunden. Sie springen von 1234 zu 1236. Dh. das Kunden mit 1235 keine Datensätz im Filter haben und dass das Makro auch bei dem Vorgang refresht und meine filter im pivot entfallen und die nächste Auswertung ist dann eine falsche aufgrund der falschen pivottabellen, die nicht richtig eingestellt sind.

1. Lösungsweg:

Ich wollte eine Prüfung machen, wo er selbst sieht:

Habe ich gerade ein leeren Vorgang gemacht? JA, dann gehe zum nächsten Kunden. NEIN, mach so weiter.

Das wäre dan kurz bevor er REFRESHT

2. Lösungsweg:

Nehme nacheinander nur die Kundennummern, die im Filter stehen.

i as integer
y as integer
z as Array???
i = 1234
y= 1500

z= alle die im Autofilter in Spalte A stehen

Wenn i Element von z DANN

TUE DIES TUE DAS

Sonst
Next i
End Sub

Is bisschen schwer das einzubauen...mir fehlen irgendwie noch die richtigen "Vokabeln" :-)

User · 15. Januar 2011

Hallo, mst1986,

Du kannst doch per Bereich.SpecialCells(xlCellTypeVisible).Cells.Count die Anzahl der Datenzellen im gesamten Bereich einer Spalte für einen Kreditor überprüfen und nur weitermachen, wenn der Wert zumindest 1 oder mehr beträgt. Oder ist das jetzt die (An-)Frage nach einer Komplettlösung, denn der Autofilter wird meines Wissen zeilen- und nicht spaltenweise verwendet?

Gruß
CodeWarrior

mst1986 · 24. Januar 2011

Vielen Dankkkkkk! Hab es gelöst!

einfach mit if then else end if codiert.

keep it simple! =)

Office: VBA Prüfung der Zelle oder Zellenbereich

VBA Prüfung der Zelle oder Zellenbereich

VBA Prüfung der Zelle oder Zellenbereich

VBA Prüfung der Zelle oder Zellenbereich

VBA Prüfung der Zelle oder Zellenbereich - Similar Threads - VBA Prüfung Zelle

Datei in mehreren Ordnern suchen und wenn gefunden öffnen?! Macro / VBA

Textteile aus Zelle mit mehreren Absätzen

Aufrufen Datei aus SharePoint per VBA

VBA: Spalten auf anderen Worksheeds in der Mappe ausblenden.

VBA Zeilen kopieren mit Bedingung

VBA Prüfung ob Tabellenblatt vorhanden

Prüfung aus Access-VBA ob bestimmte Exceldatei geöffnet ist reagiert sonderbar.