Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
19.04.2024 12:23:24
Wenn-Formel anpassen
19.04.2024 12:09:19
Unique (Application.WorksheetFunction.Unique)
19.04.2024 11:51:37
Nächsten identischen Treffer suchen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1232to1236
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
1232to1236
1232to1236
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Array, die ich weiß nicht Wievielte

Array, die ich weiß nicht Wievielte
Frank
Hallo liebe Leute, ich habe mal wieder eine Frage zu Array.
Mit folgendem Code lese ich die Laufwerke aus

ReDim LWArray(Asc("C") To Asc("Z"))
For i = Asc("C") To Asc("Z")
ChDrive Chr(i)
If Err = 0 Then LWArray(i) = LW & Chr(i)
Err = 0
Next

Nun kann dieses Array auch leere Felder enthalten.
Wie kann ich diese löschen?
Ich hatte schon mal daran gedacht per loop in ein zweiten Array zu schreiben
habe aber noch keien Lösungsansatz gefunden.
Bin für jede Hilfe dankbar
Gruß
Frank
AW: Array, die ich weiß nicht Wievielte
30.09.2011 12:14:19
Rudi
Hallo,

Sub DriveLetters()
Dim fs, d, oDrives As Object, arrDrives
Set oDrives = CreateObject("Scripting.dictionary")
Set fs = CreateObject("Scripting.FileSystemObject")
For Each d In fs.drives
oDrives(d.DriveLetter) = 0
Next
If oDrives.exists("A") Then oDrives.Remove ("A")
If oDrives.exists("B") Then oDrives.Remove ("B")
arrDrives = oDrives.keys
End Sub

Gruß
Rudi
AW: Array, die ich weiß nicht Wievielte
30.09.2011 12:26:57
Frank
Hallo Rudi,
danke erst mal für die Antwort.
Dein Code betrachtet alle Laufwerke.
Ich lese aber nur die Festpallten- bzw Netzwerklaufwerke aus.
Und komisch ist das ein Laufwerk "B" angezeigt wird obwohl nicht vorhanden
Gruß Frank
Anzeige
AW: Array, die ich weiß nicht Wievielte
30.09.2011 12:56:48
Rudi
Hallo,
dann eben so:

Sub DriveLetters()
Dim fs, d, oDrives As Object, arrDrives
Set oDrives = CreateObject("Scripting.dictionary")
Set fs = CreateObject("Scripting.FileSystemObject")
For Each d In fs.drives
Select Case d.drivetype
Case 2, 3: oDrives(d.DriveLetter) = 0
End Select
Next
arrDrives = oDrives.keys
End Sub

Gruß
Rudi
AW: Array, die ich weiß nicht Wievielte
30.09.2011 13:40:01
Frank
Hallo Rudi,
vielen Dank für deine Mühe.
Aber leider kann ich deinen Ansatz nicht nachvollziehen.
Ich habe es jetzt so gelöst.

For i = Asc("C") To Asc("Z")
ChDrive Chr(i)
If Err = 0 Then LFW(i) = LW & Chr(i)
Err = 0
Next
ReDim LWArray(1 To 23)
For i = Asc("C") To Asc("Z")
If LFW(i)  "" Then
LWArray(x) = LFW(i)
x = x + 1
ReDim Preserve LWArray(1 To x)
End If
Next

Ist wahrscheinlich nicht die eleganteste Lösung aber genügt meinen Zwecken.
Trotdem nochmal Danke Rudi
Gruß
Frank
Anzeige
AW: Array, die ich weiß nicht Wievielte
30.09.2011 13:56:18
Rudi
Hallo,
vielleicht verstehst du das. Ist näher an deinem Ansatz.

Sub xxx()
Dim strLW As String, LWArray, i As Integer
On Error Resume Next
For i = Asc("C") To Asc("Z")
ChDrive Chr(i)
If Err = 0 Then strLW = strLW & Chr(i) & ","
Err = 0
Next
strLW = Left(strLW, Len(strLW) - 1)
LWArray = Split(strLW, ",")
End Sub

Gruß
Rudi
AW: Array, die ich weiß nicht Wievielte
30.09.2011 13:48:19
Henrik
Interessante Lösung, danke!!!

Sub DriveLetters()
Dim fs, d, oDrives As Object, arrDrives
Set oDrives = CreateObject("Scripting.dictionary")
Set fs = CreateObject("Scripting.FileSystemObject")
For Each d In fs.drives
Select Case d.drivetype
Case 2, 3: oDrives(d.DriveLetter) = 0
End Select
Next
arrDrives = oDrives.keys
End Sub

Anzeige
wenigsten einer ...
30.09.2011 14:06:38
Rudi
Hallo,
dem's gefällt.
Ist vor allem schneller als try and error mit ChDrive.
Gruß
Rudi
AW: wenigsten einer ...
30.09.2011 14:09:02
Frank
...naja hat ja nicht's mit gefallen oder nicht gefallen zu tun.
Mit meinen, doch sehr beschränkten Kenntnissen, verstehe ich es nicht so ganz.
Aber ich gelobe Besserung
Frank
FSO : Nicht nur gefallen - sondern verstehen
30.09.2011 15:48:08
NoNet
Hallo Frank,
Rudis Methode per FileSystemObject (FSO) ist professioneller als Deine "Trial and Error"-Methode, da sie ein bereits im Betriebssystem vorhandenes Objekt (FSO) bzw. dessen Collection (also: Auflistung aller existierenden Objekt-Mitglieder - hier die Laufwerke) enthält.
Lies Dir mal folgenden Microsoft Technet-Artikel durch, dann sollte das Prinzip klarer werden :
http://www.microsoft.com/germany/technet/datenbank/articles/600360.mspx#EIF
Gruß, NoNet
PS @alle: Es sind nur noch 4 Wochen bis zu diesem Treffen :
Exceltreffen 28.-30.10.2011 in Chemnitz
Ein Treffen für alle Excel-Freunde und Besucher deutschsprachiger Excel-Foren.
Alle Infos - Programm - Anmeldung - Teilnehmerliste etc. gibt es auf
http://www.exceltreffen.de/index.php?page=211
Wir freuen uns auf euch...

Anzeige

241 Forumthreads zu ähnlichen Themen

Wie kann ich 3 Textboxen wert addieren
Kurt

Guten Abend,
wie kann ich 3 Werte der Textboxen addieren ?
Habe es so versucht:
Label69.Caption = TextBox13.Value + TextBox14.Value + TextBox15.Value
mfg Kurt
(nicht Orginal)
14.08.2008 20:54:00
Thread-ID: 1001982
4 Beiträge
Anzeige
Formelproblem "wenn(text - beinhaltet, dann....)
Andi

Hallo Experten,
Ich steh bei folgender Excelformel an.
=WENN(D13=....folgender text beinhaltet ist (AA).....;"True";"false")
Ich würde gerne überprüfen ob im Feld D13 der Text "AA" vorkommt (z.B. Artikel "AA01"), falls dies zutrifft bitte "True" schreiben, ansonsten "false".
Da...
04.12.2008 11:42:00
Thread-ID: 1030117
3 Beiträge
Wenn dann mit VBA und Makro starten
Thomas

Hallo guten Morgen liebe Helfer,
ich komme mit einer Wenn Dann Formel im VBA nicht klar. Wer kann mir bitte helfen.
WENN Zelle C1 = OK DANN starte Makro1 sonst MsgBox "Eingabe leider falsch"
Ich schaffe es einfach nicht das ich innerhalb der Abfrage ein Makro starten lasse möchte we...
31.01.2009 09:18:37
Thread-ID: 1045583
4 Beiträge
Anzeige
Username und Uhrzeit mit Wenn-Dann?
Mario

Hallo zusammen,
ich habe schon so Einiges in Richtung Usernamen ermitteln usw. gelesen, bin aber nicht in der Lage, die Codes auf mein Problem hin anzupassen. Deshalb erhoffe ich mir nun hier Hilfe.
Wir haben im Team eine "offene-Punkte-Liste.xls", in die entsprechende Daten eingetragen...
30.06.2009 18:10:03
Thread-ID: 1085453
4 Beiträge
Wenn-Formel mit und + oder
Anton

hallo,
ich brauche mal eure hilfe. ich möchte mit einer formel verschiedene ergebnisse miteinander vergleichen und dabei nur eine formel verwenden.
es soll geprüft werden ob A1+A2 = C1+C2+C3 und = E1 oder E2+E3
verständlich?
danke für eure hilfe im voraus
anton
04.08.2009 12:25:51
Thread-ID: 1093466
24 Beiträge
Wenn-Befehl mit und / oder
Elmar

Hallo Experten,
kann mir jemand helfen?
Ich habe die Formel, die auch soweit klappt....
=WENN(UND(A11="Mo";P11="Feiertag");0;WENN(UND(A11="Di";P11="Feiertag");0;WENN(UND(A11="Mi"; P11="Feiertag");0;WENN(UND(A11="Do";P11="Feiertag");0;WENN(UND(A11="Fr";P11="Feiertag");0; WENN(A11="...
06.10.2009 13:45:19
Thread-ID: 1107539
10 Beiträge
Summewenn mit UND-Kriterium
Roland

Moin Ihr Spezialisten,
hab mal wieder ein Problem und finde einfach die Lösung nicht.
Ich möchte die Summe über die Spalte B erhalten, wenn der Wert in Spalte A in einer Art "Range" liegt, zb zwischen 50000 und 60000.
Versucht habe ich =summewenn(A:A;und(>=50000; Da erhalte ich...
03.12.2009 16:22:36
Thread-ID: 1121620
12 Beiträge
Wenn Formel in Verbindung mit Index und Vergleich
Helmut

Hallo Excel-Anwender,
ich muß einen Kostenberechnungsbogen entwerfen, der bei bestimmten Eingaben über entsprechende Auswahlfelder Werte aus zwei anliegenden Arbeitsblättern auswirft. Einige Formel habe ich aus einem bereits bestehenden Arbeitsblatt entnommen, wie z.B. die Ausgabe für die H...
14.01.2010 22:04:03
Thread-ID: 1130062
2 Beiträge

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
8
2
3
2
3
23
9
11
1
5
10
10
3
6
6
4
3
5
3
3
9
3
1
5