Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1824to1828
1824to1828
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Array auf Inhalt prüfen

Forumthread: Array auf Inhalt prüfen

Array auf Inhalt prüfen
23.04.2021 17:08:04
NW
Hallo Leute,
ich verzweifele an den Arrays in VBA :-(
Ich habe ein temporäres Array, was ich nach jedem Durchgang löschen möchte und jedesmal frage, ob es voll oder leer ist.
Dafür habe ich hier im Forum die IsEmpty-Methode gefunden.
Die gibt mir aber auch nach Löschen des Arrays voll aus, obwohl der array leer ist.
Könnt ihr mir bitte helfen ? Danke

Sub test()
Dim Sig() As String
ReDim Sig(1 To 10)
If IsEmpty(Sig) Then
test = "leer"
Else
test = "voll"
End If
Erase Sig
If IsEmpty(Sig) Then
test = "leer"
Else
test = "voll"
End If
End Sub
Anzeige

17
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Array auf Inhalt prüfen
23.04.2021 17:10:10
Hajo_Zi
mit
ReDim Sig(1 To 10)
wird es doch beim nächsten Start gelöscht.
GrußformelHomepage
Anzeige
AW: Array auf Inhalt prüfen
23.04.2021 17:12:13
NW
Ich verstehe nicht genau, was du meinst ?!
Die zweite If-Abfrage sollte "leer" ergeben, aber sie ergibt "voll", obwohl der Array leer ist durch Erase
AW: Array auf Inhalt prüfen
23.04.2021 17:20:02
Nepumuk
Hallo,
teste mal:

If Trim$(Join$(Sig)) = vbNullString Then
MsgBox "leer"
Else
MsgBox "voll"
End If
Gruß
Nepumuk
Anzeige
AW: Array auf Inhalt prüfen
23.04.2021 17:29:19
NW
Funktioniert leider auch nicht. Jetzt spuckt er mir die ganze Zeit leer aus :-(
Sobald da Werte in dem String stehen, bringt er einen Fehler "Typen unverträglich"
AW: Array auf Inhalt prüfen
23.04.2021 17:32:58
Nepumuk
Hallo,
kann ich nicht nachvollziehen:

Sub test()
Dim Sig() As String
ReDim Sig(1 To 10)
Sig(5) = "123"
If Join$(Sig, vbNullString) = vbNullString Then
MsgBox "leer"
Else
MsgBox "voll"
End If
End Sub
Gruß
Nepumuk
Anzeige
AW: Array auf Inhalt prüfen
23.04.2021 17:28:43
Nepumuk
Hallo,
noch einfacher:

If Join$(Sig, vbNullString) = vbNullString Then
Gruß
Nepumuk
AW: Array auf Inhalt prüfen
23.04.2021 17:36:35
onur
Ein Array ist nicht mehr leer, wen du es dimensioniert hast, aber die Elemente schon. Versuch es so:

If IsEmpty(Sig(UBound(Sig))) Then test = "leer"

Anzeige
AW: Array auf Inhalt prüfen
23.04.2021 17:51:18
NW
Danke, aber da habe ich das gleiche Problem, wie beim Nepumuk - Typen unverträglich
Versteh ich selbst nicht. Es ist ein normales array mit string werten drin, mehr nicht
AW: Array auf Inhalt prüfen
23.04.2021 17:57:44
onur
Zum Leeren darfst du auch nicht Erase nehmen, sondern nur (z.B):
Redim Sig(1 to 10)
AW: Array auf Inhalt prüfen
23.04.2021 18:03:51
NW
Interessanter Punkt - gleich ausprobiert, aber funktioniert auch nicht.
Ich lass mir die Werte immer im Überwachungsfenster anzeigen :-)
Zuerst hat Sig 4 Elemente mit Strings drin
Nach Erase hat es nix mehr
IsEmpty gibt trotzdem False zurück
Wenn ich ReDim nehme mit Sig(0) hat es immernoch ein Element drin, was leer ist
IsEmpty ist trotzdem False
Das kann doch überhaupt nicht sein .......
Ich zweifele langsam an einem Verstand
Anzeige
AW: Array auf Inhalt prüfen
23.04.2021 18:07:39
onur
Das Problem ist, das du das Array als String deklarierst - Nimm Variant.
Bei String haben alle Elemente automatisch den Wert "", was NICHT leer bedeutet.
AW: Array auf Inhalt prüfen
23.04.2021 18:18:22
NW
Danke für den Tipp, aber das hatte ich bereits getestet, da ich in einem anderen Thread gelesen habe, dass Variant nie leer sind.
Deswegen habe ich es auf String geändert
Anzeige
AW: Array auf Inhalt prüfen
23.04.2021 18:27:57
NW
Ist wohl ein bekanntes Problem und ich hab schon etliche Threads gesehen, aber keins sagt, wie ich es löse :-(
http://www.office-loesung.de/ftopic429612_0_0_asc.php
Anzeige
AW: Array auf Inhalt prüfen
23.04.2021 18:45:49
onur
Hast du dir denn meine Datei nicht angeguckt ?
AW: Array auf Inhalt prüfen
23.04.2021 18:50:33
Daniel
Hi
IsEmpty wird nur dann wahr, wenn du es auf eine reine Variantvariable anwendest, die noch nie dimensioniert oder der noch nie ein Wert zugewiesen wurde.
das funktioniert also nur für die allererste Prüfung nach dem Dim X.
vielleicht gehts ja so, dass du die Variable, um sie zu leeren einfach mit ReDim X(0) dimensionierst.
dann kannst du im Ubound(x) = 0 ermitteln, ob sie leer ist oder ob du Werte zugeweisen hast.
oder du lässt parallel eine boolsche Variable mitlaufen, die du auf True setzt, wenn du Werte ins Array schreibst und auf False, wenn du das Array leerst.
Dann fragst du diese Variable ab.
Gruß Daniel
Anzeige
AW: Array auf Inhalt prüfen
23.04.2021 19:08:27
NW
Danke für den Tipp.
Das funktioniert tatsächlich.
Vielen Dank- Endlich eine Lösung - ich war schon am verzweifeln :P
;

Forumthreads zu verwandten Themen

Zelle auf bestimmten Inhalt prüfen
Mandy

Hallo,
ich habe in meinem Excel Sheet sowas wie ein Kopf, wo der User Pflichtfelder ausfüllen MUSS.
Leider ist das Format so blöd, dass gleich 5 Abfragen in einer Zelle gemacht werden.
Die 5 Angaben sind also durch einen Zeilenumbruch innerhalb der Zelle dargestellt, sieht ungefähr...
14.09.2009 10:06:22
Thread-ID: 1102539
7 Beiträge
Zelle auf verschiedene Inhalte überprüfen
massimo17

Hallo,
ich möchte gerne eine Zelle auf verschiedene Inhalte überprüfen.
Bisher kann ich nur nach einem Suchen mit folgender Formel:
=WENN(ISTZAHL(SUCHEN("E10";W2));"1";"0")
Also Zelle"W2" nach dem Wert E10 durchsuchen; ich möchte aber dass die Zelle nach E10 oder E11 oder E12 od...
03.12.2009 20:55:44
Thread-ID: 1121687
7 Beiträge
Zellen auf Inhalt prüfen
neonac

Hallo,
ich bekomme eine Prüfung von B2 bis M2 nicht hin, ich möchte A2 rot färben wenn in diesen Zellen irgend etwas steht. Über bedingte Format. mit Formel färbt er immer nur B2 :-(
Danke und Grüße Neo
12.11.2010 00:35:47
Thread-ID: 1186432
4 Beiträge
Zelle auf Inhalt prüfen
Karsten

Hallo,
ich möchte A1 auf Inhalt prüfen. Mein Befehl läßt momentan jeden Inhalt als "Vor" gelten.
Kann bitte jemand korriegieren?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target("A1") = "Vor" Then
....
end if
Danke
Gruß
Karsten
14.12.2011 10:37:49
Thread-ID: 1242047
3 Beiträge
Anzeige
VBA Prüfen ob leer
flacus

Hallo,
ich brauche mal wieder Hilfe. Ich habe ein Makro, womit ich einen Seriendruck starte. Das klappt alles ganz gut, jedoch sollte er nicht drucken, wenn es leere Zeilen gibt. In meiner Beispiel Datei ist es das Modul 3, was nicht gedruckt werden soll.
Es soll also geprüft werden, ob...
25.10.2013 11:57:11
Thread-ID: 1335853
3 Beiträge
Zelle auf Inhalt prüfen
Jani
Hallo zusammen,
Userform VBA Excel
Ich bin auf der Suche nach einem Code für folgendes Vorhaben.
Es soll in einer bestimmenten Zelle geprüft werden ob da etwas drin steht. wenn etwas drin steht (egal was) dann soll ein ... ausgeführt werden.
Die Zelle muss mit Tabellenblatt angespro...
25.07.2014 20:24:59
Thread-ID: 1372388
3 Beiträge
VBA: Überprüfen ob Zellen leer sind
Hans Egonschmidt
Hallo,
ich habe da eine etwas knifflige Aufgabe und komme nicht so recht weiter:
Ich soll im Zellbereich A1:A20 überprüfen ob die Zellen leer sind und in einer Messagebox dann ausgeben, wie viele Schleifendurchläufe und wieviele leere Zellen es gibt.
Bin bis jetzt so angefangen:
Op...
10.11.2014 17:36:15
Thread-ID: 1391509
5 Beiträge
Zellen auf Inhalt prüfen
Isolde

Hallo VBA-Experten!
Ich bin auf der Suche nach einem Makro, das folgendes kann:
Das Makro soll zunächst in Spalte C die letzte Zeile erkennen. Danach sollen Spalte I8-S8 bis jeweils zu dieser letzten Zeile ausgelesen werden. Das Makro soll erkennen, ob der Zellbereich leere Zellen enthä...
12.07.2015 20:14:04
Thread-ID: 1435944
14 Beiträge
Zellen auf Inhalt prüfen
Pelic

Option Explicit Dim strDatei As String Dim istDa As Boolean Dim Zeilenzahl As Integer Dim intZeile As Integer Dim a As Integer Dim b As Integer Dim wks As Worksheet Dim arr Dim zielmappe As String Dim quellmappe As String Dim ZM As Workbook Dim zelle As Variant Public Sub Start() Call öffnen...
27.07.2016 12:02:19
Thread-ID: 1506466
19 Beiträge
Anzeige
Zellen auf Textinhalt prüfen
reiner

Hallo Leute,
in Spalte „A“ steht in mehreren nacheinanderfolgenden Zeilen der Text „1 Kontoauszug“ oder „2 Kontoauszug“ oder „3 Kontoauszug“ oder… „* Kontoauszug“.
Nun will ich mittels If-Abfrage in Verbindung mit einer Schleife alle Zellen in Spalte „A“ bis zur letzten vorhandenen Zeil...
15.03.2018 21:44:28
Thread-ID: 1614440
5 Beiträge
Zelle auf Inhalt prüfen auf ganzem Blatt
Manfred

Hallo miteinander,
ich benötige ein VBA-Script, welches auf einem Worksheet in der Zelle A1 prüft ob diese einen Wert enthält. Wenn Nein soll das aktuelle Datum eingetragen werden und in B1 dann ein X. Sollte in A1 schon ein Wert vorhanden sein, soll das Skript in A2 springen und hier prüfe...
12.10.2018 11:46:44
Thread-ID: 1650925
4 Beiträge
VBA: Zellen auf Bedingung überprüfen & anpassen
Jo

Hallo liebes Forum,
ich habe erst vor kurzem damit begonnen, VBAs zu schreiben.
Nun stecke ich bei folgendem Problem fest und komme einfach nicht weiter:
In Spalte C meiner Tabelle stehen untereinander Artikelnummern, die immer folgendermaßen aufgebaut sind (Z = Zahl):
ZZ.ZZZ-ZZ...
28.07.2019 19:32:08
Thread-ID: 1704691
6 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Array auf Inhalt prüfen in VBA

Schritt-für-Schritt-Anleitung

Um zu prüfen, ob ein Array in VBA leer ist oder ob ein Wert darin vorhanden ist, kannst du die folgenden Schritte befolgen:

  1. Deklaration des Arrays:

    Dim Sig() As Variant

  2. Dimensionierung des Arrays:

    ReDim Sig(1 To 10)

  3. Prüfen, ob das Array leer ist: Um zu überprüfen, ob das Array leer ist, dimensioniere es erneut:

    ReDim Sig(0)
If UBound(Sig) = 0 Then
   MsgBox "Array ist leer"
End If

  4. Werte ins Array einfügen:

    Sig(1) = "Wert1"

  5. Wiederholt prüfen, ob der Wert vorhanden ist:

    If Not IsEmpty(Sig(1)) Then
   MsgBox "Wert ist im Array vorhanden"
End If

Häufige Fehler und Lösungen

  • Fehler: Typen unverträglich
    Dieser Fehler tritt auf, wenn du versuchst, einen nicht kompatiblen Datentyp in das Array einzufügen. Stelle sicher, dass die Datentypen übereinstimmen.

  • Problem: IsEmpty gibt False zurück
    Wenn du ein Array mit Strings deklarierst, wird der Inhalt als leer betrachtet, auch wenn die Elemente den Wert "" haben. Verwende Variant, um dieses Problem zu umgehen.

Alternative Methoden

Hier sind einige alternative Ansätze, um zu prüfen, ob ein Array leer ist oder ob ein Wert darin vorhanden ist:

  1. Join-Funktion verwenden:

    If Join(Sig, vbNullString) = vbNullString Then
   MsgBox "Array ist leer"
End If

  2. UBound-Funktion verwenden:

    If UBound(Sig) < 1 Then
   MsgBox "Array ist leer"
End If

  3. Prüfen auf spezifische Werte:

    Dim i As Integer
Dim WertVorhanden As Boolean
WertVorhanden = False
For i = LBound(Sig) To UBound(Sig)
   If Sig(i) = "Wert1" Then
       WertVorhanden = True
       Exit For
   End If
Next i
If WertVorhanden Then
   MsgBox "Wert ist vorhanden"
End If

Praktische Beispiele

  1. Überprüfen, ob ein Array leer ist:

    Sub CheckArray()
   Dim Sig() As Variant
   ReDim Sig(1 To 10)
   If UBound(Sig) >= 1 Then
       MsgBox "Array hat Elemente"
   Else
       MsgBox "Array ist leer"
   End If
End Sub

  2. Wert im Array prüfen:

    Sub CheckValueInArray()
   Dim Sig() As Variant
   ReDim Sig(1 To 10)
   Sig(1) = "Test"
   If Not IsEmpty(Sig(1)) Then
       MsgBox "Wert im Array vorhanden"
   End If
End Sub

Tipps für Profis

  • Verwende Variant für die Deklaration von Arrays, wenn du mit unterschiedlichen Datentypen arbeitest.
  • Nutze die UBound und LBound Funktionen, um dynamisch die Grenzen deines Arrays zu bestimmen.
  • Halte deine Code-Struktur klar und vermeide unnötige Erase-Befehle, wenn du das Array einfach neu dimensionieren kannst.

FAQ: Häufige Fragen

1. Wie kann ich überprüfen, ob ein Wert in einem Array vorhanden ist?
Du kannst eine Schleife verwenden, um jedes Element im Array zu überprüfen. Alternativ kannst du die Join-Methode verwenden, um den Inhalt des Arrays zu einem String zu verbinden und diesen auf den gesuchten Wert zu durchsuchen.

2. Warum zeigt IsEmpty immer "False", auch wenn ich das Array gelöscht habe?
IsEmpty funktioniert nur bei Variablen, die noch nie dimensioniert oder initialisiert wurden. Bei Arrays, die bereits dimensioniert sind, wird IsEmpty nicht wie erwartet arbeiten. Verwende stattdessen UBound zur Überprüfung der Größe des Arrays.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige