Nach Start Anpassung vornehmen...

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub CommandButton2_Click() Dim fn ChDrive "W:\" ChDir "W:\Test\BILDER" fn = Application.GetOpenFilename(FileFilter:="Alle Grafiken,*.jpg", Title:="Bitte Datei auswä _ hlen") If fn = False Then MsgBox "Benutzerabbruch" Exit Sub End If Range("A800") = fn End Sub

Sub PfadWahl() Dim fn ChDrive "W:\" ChDir "W:\Test\BILDER" fn = Application.GetOpenFilename(FileFilter:="Alle Grafiken,*.jpg", Title:="Bitte Datei auswä _ hlen") If fn = False Then MsgBox "Benutzerabbruch" Exit Sub End If Range("A800") = fn End Sub

Hi Uwe
mehrdeutiger Name deutet darauf hin, dass der Begriff
GetDirectory
mehrmals in deinem Code verwendet wurde.
als Function-Name (wie es sein soll)
und vllt als
Name einer Sub und/oder einer Variablen, oder du hast die Function GetDirectory mehrfach in deinen Code eingefügt.
Die Function darf nur einmal im Code vorkommen - und der Name darf eben auch nicht für andere Teile verwendet werden.
Verwende die Such-Funktion im VBE (STRG+F) und entferne alle doppelten Einträge von GetDirectory.
Aber insgesamt am Besten ist es, wenn du deine Datei mal uploadest - inklusive ALLER Erklärungen, dich ich benötige, um den Code SO anzupassen, dass ALLES so funzt, wie du es haben willst.
Denn ich verstehe so noch nicht den Zusammenhang zwischen den Button und den Images in deinem Userform.
Ciao
Thorsten
p.s. Wenn ein Upload deiner Originaldatei aus datenschutzrechtlichen Gründen nicht möglich ist, oder die Datei für den Upload zu groß ist, dann erstell eine Bsp-Datei mit zwar weniger und Bsp-Inhalten, aber genug Inhalten, dass dein Prob nachvollziehbar ist.
Ich befürchte, wenn wir so weiter machen, wie bisher, dann werden wir noch ewig an deiner Datei "rumbasteln".

Hi Thorsten,
also manchmal könnt ich mich selbst beißen.
Ich hatte das Modul zweimal eingebaut...deshalb der Fehler.
Also es läuft doch soweit prima!
Hab aber dann doch noch 2 Frage :-)
Wenn man die Pfadauswahl abbricht und dann dennoch den Button zur Bildauswahl drückt, geht er in den Debugmodus und sagt Pfad nicht gefunden und markiert......
Sub PfadWahl(ByVal cmdindex As Integer)
Dim fn
ChDrive Left(pstrPfad, 3)
-----ChDir pstrPfad-------wird als Fehler markiert
fn = Application.GetOpenFilename(FileFilter:="Alle Grafiken,*.jpg", Title:="Bitte Datei auswählen ")
If fn = False Then
MsgBox "Benutzerabbruch"
Exit Sub
End If
Select Case cmdindex
Case 1
Range("A800") = fn
Case 2
Range("A801") = fn
Case 3
Range("A802") = fn
'case...so lange weiter wie nötig
End Select
..........
hab das unterbunden in den die Userform geschlossen wird.
Private Sub UserForm_Activate()
On Error GoTo ErrHandling
Dim strMessage As String
strMessage = "Wählen Sie bitte einen Ordner aus:"
pstrPfad = GetDirectory(strMessage)
If pstrPfad = "" Then UserForm1.Hide
If pstrPfad = "" Then MsgBox "Ordner muß ausgewählt werden!!Fenster wurde geschlossen!!Versuchen Sie es erneut!!": Exit Sub
.............
ist die Lösung so gut, oder sollte man das anders machen?
2. Frage wäre...wie kann man die Images sofort aktualisieren, wenn man die Bildauswahl noch mal ändert ohne die UF zu schließen? Das was ich versucht habe ist leider alles gescheitert.
Gruß Uwe
P.S.: Datenschutzrechtlich ist bei mir nix (glaub ich) nur ist mein jetzt schon so lange gebasteltes Teil über 30 MB groß geworden und total verwirrend. Ich glaub Dir würden die Haare zu Berge stehen :-)

If pstrPfad = "" Then MsgBox "Ordner muß ausgewählt werden!!Fenster wurde geschlossen!!Versuchen Sie es erneut!!" U n l o a d UserForm1 'schreib Unload ohne Leerzeichen - dient hier nur der _ Verdeutlichung End If

If Sheets(1).Cells(39, 14) = "" Then Image1.Picture = Nothing Else Image1.Picture = LoadPicture(pstrPfad & "\" & Sheets(1).Cells(39, 14) & ".jpg") End If If Sheets(1).Cells(40, 14) = "" Then Image2.Picture = Nothing Else Image2.Picture = LoadPicture(pstrPfad & "\" & Sheets(1).Cells(40, 14) & ".jpg") End If If Sheets(1).Cells(41, 14) = "" Then Image3.Picture = Nothing Else Image3.Picture = LoadPicture(pstrPfad & "\" & Sheets(1).Cells(41, 14) & ".jpg") End If

Beliebteste Forumthreads (12 Monate)

Nach Start Anpassung vornehmen...

23
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Nach Start Anpassung vornehmen...

23 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

23
Beiträge zum Forumthread

Beiträge zu diesem Forumthread