Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1572to1576
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
1572to1576
1572to1576
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bilddateinamen anhand einer Liste nicht anzeigen

Bilddateinamen anhand einer Liste nicht anzeigen
07.08.2017 19:54:57
Alex
Hallo,
ich habe eine Combobox die mit Dateinamen gefüllt wird.
Userbild
Dim sDatei As String
sDatei = Dir(csPATH & "\*.jpg")
csPATH = ein.Range("AE3").Value & ("Bilder\")
Do While sDatei ""
uf1.ComboBox17.AddItem sDatei
sDatei = Dir
Loop
Anhand einer Liste mit Dateinamen die auf einem Tabellenblatt stehen, sollen dann diese Dateien NICHT in der Combobox erscheinen.
Userbild
Kann mir einer helfen wie ich das anstelle. Vielen Dank.

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bilddateinamen anhand einer Liste nicht anzeigen
08.08.2017 07:09:42
fcs
Hallo Alex,
hier eine Möglihkeit. 
    Dim sDatei As String
Dim rngNot As Range, SpaNot As Long, rngFind As Range
'Zellbereich mit den nicht aufzulistenden Dateinamen festlegen
With ActiveWorkbook.Worksheets("Tabelle1") 'Name Blatt ggf. anpassen
SpaNot = Range("AT1").Column
Set rngNot = .Range(.Cells(2, SpaNot), .Cells(.Rows.Count, SpaNot).End(xlUp))
End With
sDatei = Dir(csPATH & "\*.jpg")
csPATH = ein.Range("AE3").Value & ("Bilder\")
Do While sDatei  ""
Set rngFind = rngNot.Find(What:=sDatei, LookIn:=xlValues, lookat:=xlWhole, MatchCase:= _
False)
If rngFind Is Nothing Then
uf1.ComboBox17.AddItem sDatei
End If
sDatei = Dir
Loop

Blattname und Zeilennummer der 1. Zelle des Bereichs musst du noch anpassen.
Gruß
Franz
Anzeige
AW: Bilddateinamen anhand einer Liste nicht anzeigen
08.08.2017 13:33:59
Alex
Hallo,
vielen Dank für den Tip. Ich habe Blattname und Zeilennummer der 1. Zelle des Bereichs angepasst. Allerdings bleibt meine Combobox jetzt immer leer!!!?
Dim sDatei As String
Dim rngNot As Range, SpaNot As Long, rngFind As Range
'Zellbereich mit den nicht aufzulistenden Dateinamen festlegen
With ActiveWorkbook.Worksheets("AWF") 'Name Blatt ggf. anpassen
SpaNot = Range("AT2").Column
Set rngNot = .Range(.Cells(2, SpaNot), .Cells(.Rows.Count, SpaNot).End(xlUp))
End With
sDatei = Dir(csPATH & "\*.jpg")
csPATH = ein.Range("AE3").Value & ("Bilder\")
Do While sDatei ""
Set rngFind = rngNot.Find(What:=sDatei, LookIn:=xlValues, lookat:=xlWhole, MatchCase:= _
False)
If rngFind Is Nothing Then
uf1.ComboBox17.AddItem sDatei
End If
sDatei = Dir
Loop
Anzeige
AW: Bilddateinamen anhand einer Liste nicht anzeigen
08.08.2017 15:58:13
fcs
Hallo Alex,
da gibt es bei mir genau so ?
Wähle imVBA-Editor unter Ansicht "Lokal Fenster".
Für dann das Makro im Schrittmodus aus .
Dann kannst du im Lokalfenster die Werte der Variablen beobachten.
Wenn keine Dateien in der Combobox gelistet werden, dann findet enweder Dir keine Dateien, oder alle Dateien im Verzeichnis sind in deiner "nicht-Anzeigen"-Liste.
Gruß
Franz
AW: Bilddateinamen anhand einer Liste nicht anzeigen
12.08.2017 19:09:30
Alex
Sorry für die späte Rückmeldung. hat geklappt. Ich hatte einen Schreibfehler.
Danke für die Hilfe.

303 Forumthreads zu ähnlichen Themen

per Makro passwortgeschützes PDF erstellen
Frank

Hallo!
Ich hoffe mal wieder aud fachkundige Hilfe. Bei meinem aktuellen Projekt müssen aus Excel heraus täglich viele passwortgeschützte PDF-Doumente erstellt werden. Das Passwort ist immer gleich. Es geht lediglich darum die Dateien vor unautorisiertem Zugriff zu schützen, falls jemand das...
15.08.2008 09:20:00
Thread-ID: 1002042
3 Beiträge
Anzeige
Inhalt einer Zelle im Windows Infobereich anzeigen
Thomas

Hallo,
kann ich den Inhalt einer Zelle im Windows Infobereich anzeigen lassen?
Ich habe eine VBA-Anwendung, die mir den Verarbeitungsstatus in einer Zelle anzeigt.
Weil die Verarbeitung sehr lange dauert möchte ich zwischendurch mit anderen Anwendungen arbeiten und unten rechts nebe...
27.08.2008 17:50:23
Thread-ID: 1005163
3 Beiträge
Formel immer nur in bestimmter Zelle
Katrin

Hallo Zusammen!
Folgendes Problem würde ich gerne lösen, weiß aber nicht wie :)
Ich habe in Spalte A in jeder Zeile Uhrzeiten stehen:
00:15:00
00:30:00
00:45:00
01:00:00
01:15:00
01:30:00
01:45:00
02:00:00
02:15:00
02:30:00
02:45:00
...
02.09.2008 10:30:00
Thread-ID: 1006672
3 Beiträge
Anzeige
Kommenare beim Klick in die leere Zelle anzeigen?
Selma

Hallo Leute,
ich möchte in Zellen der Spalte E und Spalte F die Kommmentare als errechnete Werte beim Klick in die Zelle anzeigen, wenn diese Zelle leer sind. Sind die Zelle gefüllt, dann soll der Kommentar nicht angezeigt werden.
Die Voraussetzung ist, dass in Zelle der Spalte D die Za...
11.10.2008 12:17:00
Thread-ID: 1015730
8 Beiträge
Makro nur in bestimmten Zellen
TomTom

Hi,
der folgende Code soll in der Spalte Q das Datum umformatieren. Nun habe ich aber auch in der Spalte Q auch leere Zellen drin und der Code schreibt dann in die leeren Zellen immer 01.01.1900 rein, obwohl sie eigentlich leer bleiben sollen.
Wie kann man den Code ändern, dass leere Ze...
13.11.2008 08:56:51
Thread-ID: 1024041
5 Beiträge
zählenwenn nur auf Teil einer Zelle basierend?
Sascha

Hallöchen,
folgendes Problem,
ich habe eine Artikelerfolgsauflistung (Alpha-Numerisch gefüllte Zellen) über den Bereich Tabelle3!A2-G99.
Über eine Lagerbestandsliste in Tabelle1!B2-B99, die ich per copy/paste täglich aktualisieren kann zählt mir das Programm automatisch die Menge, i...
13.11.2008 12:08:25
Thread-ID: 1024134
10 Beiträge
Zahl 1 bis 7 nur in Zelle eintragen dürfen
Korl

Hallo,
ich möchte in einem Zellbereich z.B. "B7:BI103" in den jeweiligen Zellen nur die Zahlen von "1 bis"7 eintragen dürfen und sofort den Cursor in der jeweiligen Zeile um eine Zelle nach rechts setzen lassen ohne "Enter" tippen zu müssen.
Den Bereich könnte ich mit Gültigkeitskriteri...
17.11.2008 19:55:00
Thread-ID: 1025380
8 Beiträge
Makro: PDF-Drucken automatischer Dateiname
Stewie

Hallo,
ich habe ein Makro erstellt, mit welchem ich meine Tabellenblatt mittels PDF-Maker "drucken" kann.
Funktioniert soweit auch ganz gut, nur muss ich den Dateinamen noch von Hand eingeben.
Ich möchte gerne, dass mir der Text von 2 Zellen in meiner Tabelle als Dateiname benutzt w...
18.11.2008 11:14:00
Thread-ID: 1025556
3 Beiträge
Anzeige

Links zu Excel-Dialogen

ComboBox

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
2
3
2
2
5
7
4
9
7
2
2
2
2
1
5
3
5
4
3
1
8
3
13
3
2