Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Pfad verkürzt anzeigen
zurück: Bezeichnungen von Comboboxen mit Variablen versehen? weiter: Probleme mit Programmierung!!! Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Bitte Status wählen ! Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Hagen
Gast


Verfasst am:
24. Okt 2005, 22:39
Rufname:

Pfad verkürzt anzeigen - Pfad verkürzt anzeigen

Nach oben
       

Hallo,

lesse mit folgendem Code eine Inidatei aus.
datei = FreeFile
dateiname = ThisWorkbook.Path & ("\Counter.ini")
On Error GoTo Fehler
Open dateiname For Input As datei
Do
zähler = zähler + 1
Input #datei, temp
If Val(temp) = 999 Then Exit Do
ComboBox1.AddItem temp
Loop
Close datei
Exit Sub

Fehler:
MsgBox "Fehlernummer :" & Err.Number & " " & Err.Description & " [Counter.ini]"
CB1.Enabled = False
Cmdladen.Enabled = False
Label2.Visible = True

In der Listbox werden dann die Einträge so angezeigt.
X:\Team\Projekt\Heizung\M2305.xls
Nun möchte ich mit der Funktion MID() den Text so verkürzen das nur der Dateiname angezeigt wird "M2305.xls"
Habe es so probiert Mid(ComboBox1.Value, 1, 55) erziele aber damit nicht
das richtige Ergebnis.
Weiß jemand einen Tip?
Das Problem liegt darin das der Pfad nich immer gleich lang ist.

Danke
Hagen
funny_peculiar
Anfänger im Ablaufmodell von Excel VBA


Verfasst am:
25. Okt 2005, 07:22
Rufname:


AW: Pfad verkürzt anzeigen - AW: Pfad verkürzt anzeigen

Nach oben
       

Hallo, Hagen,

wenn Du eine Version ab Excel2000 nutzt, kannst Du per InStrRev das erste Auftreten eines \ direkt feststellen, bei Excel97 erfolgt dies durch das zeichenweise auslesen per Right. Den dort erhaltenen Wert dann weiter nutzen...

Die Mid-Anweisung erwartet die Parameter in folgender Form: Mid(string, start[, length]).

Ciao,
Holger
Hagen
Gast


Verfasst am:
25. Okt 2005, 10:45
Rufname:

Pfad abkürzen - Pfad abkürzen

Nach oben
       

Hallo,
danke für die Antwort.
Wie kann ich InStr benutzen?
Habe ein Buch da steht die Funktion zwar drin aber nicht wie man sie nutzt.


Danke
Hagen
funny_peculiar
Anfänger im Ablaufmodell von Excel VBA


Verfasst am:
25. Okt 2005, 11:12
Rufname:

AW: Pfad verkürzt anzeigen - AW: Pfad verkürzt anzeigen

Nach oben
       

Hallo, Hagen,

nicht InStr (die liefert das erste Vorkommen eines Zeichens im Text und ist meines Wissens auch in Excel97 eingebaut). sondern die Umkehrung von rechts her, eben inStrRev:

Zitat:
Beschreibung

Gibt die Position eines Vorkommnisses einer Zeichenfolge in einer anderen Zeichenfolge vom Ende der Zeichenfolge gesehen an.

Syntax

InstrRev(stringcheck, stringmatch [, start[, compare]])

Die Syntax der InstrRev-Funktion besteht aus folgenden benannten Argumenten:
stringcheck Erforderlich. Der zu durchsuchende Zeichenfolgenausdruck.
stringmatch Erforderlich. Zeichenfolgenausdruck, nach dem gesucht wird.
start Optional. Numerischer Ausdruck, der die Anfangsposition für jede Suche festlegt. Wird er ausgelassen, wird –1 verwendet, d. h. die Suche beginnt an der letzten Zeichenposition. Wenn starten Null enthält, kommt es zu einem Fehler.
compare Optional. Numerischer Wert, der die Art des Vergleichs angibt, der beim Beurteilen von untergeordneten Zeichenfolgen verwendet werden soll. Wird er ausgelassen, wird ein binärer Vergleich ausgeführt. Werte finden Sie im Abschnitt Einstellungen.

Ciao,
Holger
Gast



Verfasst am:
25. Okt 2005, 11:52
Rufname:

AW: Pfad verkürzt anzeigen - AW: Pfad verkürzt anzeigen

Nach oben
       

Hallo,

habe jetzt folgendes getestet.

Private Sub ComboBox1_Change()
'*********************************************************************
'* *
'* Nach der Auswahl Datei öffnen. *
'* *
'*********************************************************************
Dim sText As String, iPos As Long, sAusgabe As String
ComboBox1.ControlTipText = ComboBox1.Value
' iPos = InStr(1, ComboBox1.Value, "")
' lblaktuell.Caption = iPos 'Mid(iPos, 1, 55)

'Start test

sText = ComboBox1.Value
iPos = InStr(1, sText, "") ' um auch allen \ zu finden dann mit vbTextCompare
Do While iPos > 0
sAusgabe = sAusgabe & "," & iPos
iPos = InStr(iPos + 1, sText, "\")
zahl = iPos + iPos
Loop

lblaktuell.Caption = Mid(sAusgabe, 1, 55)
End Sub

Ich erhalte jetzt das ergebnis an welcher position die "\" sind aber nicht den Dateinamen nach dem letzten \.
Normal sollte doch lblaktuell.caption = Name der Datei stehen oder?

Gruss
Hagen
funny_peculiar
Anfänger im Ablaufmodell von Excel VBA


Verfasst am:
25. Okt 2005, 12:17
Rufname:

AW: Pfad verkürzt anzeigen - AW: Pfad verkürzt anzeigen

Nach oben
       

Hallo, Hagen,

Code:
iPos = InStr(1, sText, "\") ' um auch alle \ zu finden dann mit vbTextCompare
Do While iPos > 0
    sText = Mid(sText, iPos + 1, Len(sText))
    iPos = InStr(1, sText, "\")
Loop
Debug.Print sText

Ciao,
Holger
Hagen
Gast


Verfasst am:
25. Okt 2005, 13:58
Rufname:


Pfad verkürzt anzeigen - Pfad verkürzt anzeigen

Nach oben
       

Hallo,

vielen dank für die Hilfe. Smile
Hier der Code wie er jetzt geht.

Private Sub ComboBox1_Change()
'*********************************************************************
'* *
'* Nach der Auswahl Datei öffnen. *
'* *
'*********************************************************************
Dim sText As String, iPos As Long, sAusgabe As String

sText = ComboBox1.Value
iPos = InStr(1, sText, "") ' um auch allen \ zu finden dann mit vbTextCompare

Do While iPos > 0
sText = Mid(sText, iPos + 1, Len(sText))
iPos = InStr(1, sText, "\")
Loop
lblaktuell.Caption = sText
ComboBox1.ControlTipText = sText
'MsgBox sText
End Sub

Gruss
Hagen
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Nächster Wert anzeigen 14 Rex 10557 27. Feb 2014, 12:39
Albusfons Nächster Wert anzeigen
Keine neuen Beiträge Excel Formeln: Nur zellen mit einer bestimmten farbe anzeigen 1 Gast 2214 10. Jan 2014, 11:41
anonymer alkoholiker Nur zellen mit einer bestimmten farbe anzeigen
Keine neuen Beiträge Excel Formeln: Nur zellen einer bestimmten farbe anzeigen 4 Dave 2619 08. Nov 2011, 18:39
Luc/ius Nur zellen einer bestimmten farbe anzeigen
Keine neuen Beiträge Excel Formeln: Automatisch die Pfadangabe anzeigen lassen. (E97) 6 vip009 4522 04. Apr 2006, 16:09
metro2001 Automatisch die Pfadangabe anzeigen lassen. (E97)
Keine neuen Beiträge Excel Formeln: Schnittpunkt 2er Geraden im Exceldiagramm wertmäßig anzeigen 5 Gast 22345 17. Dez 2005, 12:30
ae Schnittpunkt 2er Geraden im Exceldiagramm wertmäßig anzeigen
Keine neuen Beiträge Excel Formeln: Wenn Bedingung1 erfüllt dann Max aus zweiter Spalte anzeigen 5 capone82m 1386 28. Nov 2005, 09:33
derHenni Wenn Bedingung1 erfüllt dann Max aus zweiter Spalte anzeigen
Keine neuen Beiträge Excel Formeln: den höchsten und den niedrigsten Wert anzeigen 2 joefaser 1219 19. Nov 2005, 11:24
joefaser den höchsten und den niedrigsten Wert anzeigen
Keine neuen Beiträge Excel Formeln: sverweis nur anzeigen, wenn in anderer Zelle ein Wert steht. 3 Holzmichel 1402 03. Jul 2005, 11:13
Holzmichel sverweis nur anzeigen, wenn in anderer Zelle ein Wert steht.
Keine neuen Beiträge Excel Formeln: Pfad bei Verknüpfungen ändert sich 3 MartinJungwirth 1399 30. Jun 2005, 16:51
Charlie Pfad bei Verknüpfungen ändert sich
Keine neuen Beiträge Excel Formeln: Dateiname + Pfad drucken ? 3 dieter schoenberger 3251 27. Jun 2005, 20:30
ae Dateiname + Pfad drucken ?
Keine neuen Beiträge Excel Formeln: Name der Arbeitsmappe in einer Zelle anzeigen? 1 wolle1969 1699 23. Jun 2005, 14:32
Arnim Name der Arbeitsmappe in einer Zelle anzeigen?
Keine neuen Beiträge Excel Formeln: Wert nicht als 0 anzeigen,aber trotzdem damit rechnen können 4 Bleppomueller 1319 20. Jun 2005, 14:29
Gast Wert nicht als 0 anzeigen,aber trotzdem damit rechnen können
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Frontpage Forum