Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
23.04.2024 17:00:22
Summe und Ausgabe
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1564to1568
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1564to1568
1564to1568
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

vba array Abfrage ob exist

vba array Abfrage ob exist
21.06.2017 11:25:26
yummi
Hallo Zusammen,
ich habe ein eindimensionales array
Public Myarr() as String
Da es 2 verschiedene Bedienmöglichkeiten für den User gibt, muss ich abfragen, ob das array schon mit Werten befüllt ist oder ob ich das noch machen muss.
Mit UBound geht es nicht, da das array noch nicht dimensioniert ist. IsArray liefert true, auch wenn es noch nicht dimensioniert ist.
Kennt noch jemand eine Möglichkeit abzufragen, ob das array schon dimensioniert ist?
Danke
yummi

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

Betreff
Datum
Anwender
Anzeige
AW: vba array Abfrage ob exist
21.06.2017 11:30:19
Zwenn
Hallo yummi,
Du deklarierst eine Variable vom Typ Boolean. Wenn eine der beiden Methoden, die das Array dimensionieren 'zuschlägt', setzt Du die Variable auf True. Da wo benötigt, fragst du sie vorher einfach ab.
Viele Grüße,
Zwenn
AW: vba array Abfrage ob exist
21.06.2017 11:46:09
yummi
Hallo Zwenn,
der "Umweg" ist zwar nicht schön, aber machbar. Mir ist gerade noch eine andere Möglichkeit eingefallen
On Error Resume Next
lResult = UBound(Myarr)
If CBool(Err.Number 0) Then
dann muss ich nur an eine Stelle ran.
Trotzdem Danke
yummi
AW: vba array Abfrage ob exist
21.06.2017 11:56:46
Zwenn
Ob das ein kleinerer Umweg ist, wage ich zu bezweifeln ;-) Lösungen gibt es aber bekanntlich immer mehrere :-)
Anzeige
AW: vba array Abfrage ob exist
21.06.2017 11:49:38
Daniel
Hi
deklariere die Variable zunächst ganz offen als unbestimmte Variant-Variable:
Public Myarr
und lege Dimension und Typ dann erst beim Befüllen mit ReDim fest.
dann kannst du mit IsEmpty(Myarr) ermitteln, ob die Variable schon werte hat:
If IsEmpty(Myarr) Then
'--- Variable ist leer
Else
'--- Variable hat Werte
End if
Gruß Daniel
AW: vba array Abfrage ob exist
21.06.2017 11:53:45
yummi
Hallo daniel,
IsEmpty hatte ich schon probiert, liefert mir auch bei nicht initialisierten False zurück
Gruß
yummi
AW: vba array Abfrage ob exist
21.06.2017 12:43:17
Daniel
Hi
teste mal genau.
vielleicht bestand noch eine Initialisierung aus einem alten Lauf.
"Globale" Variablen werden ja beim Makrostart nicht zurückgesetzt und behalten ihren Wert.
drücke mal vor dem Test den Button "Zurücksetzen", das löscht dann auch die globalen Variablen.
Gruß Daniel
Anzeige
AW: vba array Abfrage ob exist
21.06.2017 13:44:42
Nepumuk
Hallo yummi,
ein Beispiel:
Option Explicit

Private Declare Function SafeArrayGetDim Lib "oleaut32.dll" ( _
    ByRef psa() As Any) As Long

Public Myarr() As String

Public Sub Test1()
    Call Test2
    Redim Myarr(1 To 10)
    Call Test2
End Sub

Public Sub Test2()
    If SafeArrayGetDim(Myarr) = 0 Then
        Call MsgBox("nicht dimensioniert")
    Else
        Call MsgBox("dimensioniert")
    End If
End Sub

Gruß
Nepumuk
Anzeige
AW: vba array Abfrage ob exist
21.06.2017 15:29:45
yummi
Hallo Nepumuk,
schöne Lösung, gefällt mir gut. Gibt es irgendwo eine Auflistung welche derartige Funktionen es gibt?
Danke
yummi
AW: warum der Aufwand...
21.06.2017 16:08:50
Daniel
wenn man die erstdeklaration richtig macht (als Variant: Public Myarr), funktioniert die Abfrage mit If IsEmpty(Myarr) genauso gut.
Gruß Daniel
Anzeige
AW: warum der Aufwand...
21.06.2017 16:18:35
Nepumuk
Hallo Daniel,
wo siehst du den Aufwand? In der einen Deklarationszeile?
Dafür kann das Array als String deklariert werden was nicht nur wesentlich schneller ist und zudem erheblich weniger Speicher benötigt.
Gruß
Nepumuk
AW: warum der Aufwand...
21.06.2017 16:39:57
Daniel
Der Aufwand besteht darin, das Thema "API-Funktionen" zu erlernen und ggf für eventuelle Nachfolger und Vertreter entsprechend zu dokumentieren. (diese Funktionen sind halt nicht bestand der Online-Hilfe).
Die Deklaration als String kann beim Redim immer noch erfolgen.
Gruß Daniel
AW: warum der Aufwand...
21.06.2017 17:04:00
Nepumuk
Hallo Daniel,
dann wird es Zeit deinen Horizont zu erweiterst.
API's sind extra dafür da in Excel Programme zu ermöglichen die mit reinem VBA nicht, oder nur mit Krücken zu verwirklichen sind. Die gehören für mich zu einem modernen Programmierstiel unbedingt dazu. Ich gehe sogar soweit alles was geht mit API's zu machen denn die sind meistens um den Faktor 100 schneller als das entsprechende VBA-Äquivalent.
Zudem, auch wenn du den Variant als String-Array definierst ist es immer noch ein Variant von Untertype String.
Gruß
Nepumk
Anzeige
AW: warum der Aufwand...
21.06.2017 17:30:54
Daniel
ja, mag sein.
ich bevorzuge es aber, bevor man die Kreise des Horzionts weiter zieht, die weißen Flecken innerhalb des Horizonts zu füllen.
Gruß Daniel
...Zumal man sich dabei zusätzlich abhängig ...
21.06.2017 20:12:12
Luc:-?
…von Windows-Änderungen machen würde, Daniel (& Max);
das mag für Komplett-Projekte, für die auch Wartungsleistungen vereinbart wurden, angehen, kaum aber für kostenfreie Lösungen aus INet-Xl-Foren…
Gruß, Luc :-?
Besser informiert mit …
welche Abhängigkeit?
21.06.2017 20:22:06
Nepumuk
Hallo Luc,
in den letzten 20 Jahren hat sich bezüglich API's nichts geändert. Es sind nur ein paar Bibliotheken dazu gekommen. Da hat sich in VBA mehr getan.
Gruß
Nepumuk
Anzeige
Ah, so; ich meinte abundan mal gelesen zu ...
22.06.2017 00:28:26
Luc:-?
…haben, Max,
dass dieunddie Bibliothek jetzt anders heißt. Das hat mich bisher von API-Verwendung abgeschreckt. Und da ich das ja nicht berufsmäßig betreibe und mich noch dazu auf bestimmte, ebenfalls noch nicht vollends „erforschte“ vbXl-Gebiete spezialisiert habe, war mir das bisher zu „heiß“. Außerdem muss man dann ja auch immer wissen bzw erst herausfinden, welche Bibliothek wofür geeignet ist. Und das ist dann ja ein eigenes Kapitel, dass ich dank anderer bzw weiter­führender Interessen wohl kaum noch „aufzuschlagen“ die Zeit und Muße haben werde…
Morrn, Luc :-?

9 Forumthreads zu ähnlichen Themen

mit VBA Prüfen ob ein Wert in Spalte A existiert
marspoki

Hallo,
gibt es in VBA die Möglichkeit in VBA zu prüfen, ob in Spalte A10:A100 der Wert "x" exsistiert?
Vielleicht gib es auch eine Möglichkeit, rauszubekommen wie oft der Wert vorhanden ist?
Vielen Dank im Vorraus
Mars
18.03.2011 10:54:48
Thread-ID: 1206302
4 Beiträge
Anzeige
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
Prüfen ob Bereich leer ist, Objekt erforderlich
watzi3

Hallo,
Ich muss in meinen Modul wissen, ob ein gewisser Bereich (Range Bereich) leer ist.
Natürlich kann ich den einfachen, leichten Anfängerweg wählen, aber ich möchte was dazulernen, drum hab ich etwas gegoogelt und einen guten Code gefunden, jedoch bekomm ich da den Fehler Objekt e...
17.06.2015 22:18:20
Thread-ID: 1431558
4 Beiträge
Anzeige
Prüfen ob Verzeichnis leer ist
worm77

Hallo zusammen
Möchte im VBA prüfen, ob ein Input-Vezeichnis leer ist.
Habe über's Internet folgenden Code gefunden und angepasst:
With Application.FileSearch .NewSearch .LookIn = InputDrive & ":\" & InputDirectory & "\" .SearchSubFolders = False .Filename = "*" ' Alle...
20.08.2015 11:25:16
Thread-ID: 1443324
4 Beiträge
prüfen ob Datumsfeld leer ist
Thomas

Hallo Excelfreunde,
ich importiere Daten aus einer Access Datenbank.
Dies mache ich mit Late Binding.
Nun benötige ich aber folgende Filter Abfrage als Sql- String:
Filtere mir alle Daten die in der Spalte " Datum " leer sind und in der Spalte2 z.B. Zufall steht.
ich be...
17.10.2019 21:45:28
Thread-ID: 1718199
2 Beiträge
Überprüfen ob zugehörige Zelle leer ist
Benny

Hallo Zusammen,
ich habe ein Problem mit meiner angefügten Datei. Das erste Tabellenblatt hat eine vollständige Namensliste, wobei im zweiten Blatt nur einige der Namen enthalten sind und einige Daten zu bestimmten Aufgaben, die erledigt wurden. Ich möchte nun überprüfen, ob die Personen in...
16.09.2020 13:29:40
Thread-ID: 1782429
5 Beiträge
überprüfen ob ein 2D array leere elmente
khaled
also IB_CATEG_R ist const , und array aber es hat leere elemnte und ich möchte die leere elmente nicht darstellen
Dim i As Integer
Dim r_temp As Range
On Error GoTo UserForm_Initialize_Error
Set r_temp = ThisWorkbook.Names(IB_CATEG_R).RefersToRange
With gebäude.com_kateg
For...
06.01.2023 18:09:54
Thread-ID: 1914522
9 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
2
4
3
1
3
1
4
8