Pfadangabe

Bild

Betrifft: Pfadangabe von: Rene
Geschrieben am: 10.03.2005 18:18:31

Moin zusammen,

Könnte mir jemand sagen wie ich dieses:

Pfad = "C:\DQM\Messung\RCA\RG 48\S49\DQM mit Display\"
Pfad1 = "C:\DQM\Messung\RCA\RG 48\S54\DQM mit Display\"
Pfad2 = "C:\DQM\Messung\RCA\RG 48\E2\DQM mit Display\"
Pfad3 = "C:\DQM\Messung\RCA\RG 48\abgefahrener Bogen\DQM mit Display\S49\"
Pfad4 = "C:\DQM\Messung\RCA\RG 48\abgefahrener Bogen\DQM mit Display\S54\"
Pfad5 = "C:\DQM\Messung\RCA\RG 48\abgefahrener Bogen\DQM mit Display\E2\"
Pfad6 = "C:\DQM\Messung\RCA\RG 48\Spur\DQM mit Display\S49\"
Pfad7 = "C:\DQM\Messung\RCA\RG 48\Spur\DQM mit Display\S54\"
Pfad8 = "C:\DQM\Messung\RCA\RG 48\Spur\DQM mit Display\E2\"
Pfad9 = "C:\DQM\Messung\RCA\RG 48\S49\DQM ohne Display\"
Pfad10 = "C:\DQM\Messung\RCA\RG 48\S54\DQM ohne Display\"
Pfad11 = "C:\DQM\Messung\RCA\RG 48\E2\DQM ohne Display\"
Pfad12 = "C:\DQM\Messung\RCA\RG 48\abgefahrener Bogen\DQM ohne Display\S49\"
Pfad13 = "C:\DQM\Messung\RCA\RG 48\abgefahrener Bogen\DQM ohne Display\S54\"
Pfad14 = "C:\DQM\Messung\RCA\RG 48\abgefahrener Bogen\DQM ohne Display\E2\"
Pfad15 = "C:\DQM\Messung\RCA\RG 48\Spur\DQM ohne Display\S49\"
Pfad16 = "C:\DQM\Messung\RCA\RG 48\Spur\DQM ohne Display\S54\"
Pfad17 = "C:\DQM\Messung\RCA\RG 48\Spur\DQM ohne Display\E2\"

Pfad18 = "C:\DQM\Messung\RCA\SPML 16\S49\DQM mit Display\"
Pfad19 = "C:\DQM\Messung\RCA\SPML 16\S54\DQM mit Display\"
Pfad20 = "C:\DQM\Messung\RCA\SPML 16\E2\DQM mit Display\"
Pfad21 = "C:\DQM\Messung\RCA\SPML 16\abgefahrener Bogen\DQM mit Display\S49\"
Pfad22 = "C:\DQM\Messung\RCA\SPML 16\abgefahrener Bogen\DQM mit Display\S54\"
Pfad23 = "C:\DQM\Messung\RCA\SPML 16\abgefahrener Bogen\DQM mit Display\E2\"
Pfad24 = "C:\DQM\Messung\RCA\SPML 16\Spur\DQM mit Display\S49\"
Pfad25 = "C:\DQM\Messung\RCA\SPML 16\Spur\DQM mit Display\S54\"
Pfad26 = "C:\DQM\Messung\RCA\SPML 16\Spur\DQM mit Display\E2\"
Pfad27 = "C:\DQM\Messung\RCA\SPML 16\S49\DQM ohne Display\"
Pfad28 = "C:\DQM\Messung\RCA\SPML 16\S54\DQM ohne Display\"
Pfad29 = "C:\DQM\Messung\RCA\SPML 16\E2\DQM ohne Display\"
Pfad30 = "C:\DQM\Messung\RCA\SPML 16\abgefahrener Bogen\DQM ohne Display\S49\"
Pfad31 = "C:\DQM\Messung\RCA\SPML 16\abgefahrener Bogen\DQM ohne Display\S54\"
Pfad32 = "C:\DQM\Messung\RCA\SPML 16\abgefahrener Bogen\DQM ohne Display\E2\"
Pfad33 = "C:\DQM\Messung\RCA\SPML 16\Spur\DQM ohne Display\S49\"
Pfad34 = "C:\DQM\Messung\RCA\SPML 16\Spur\DQM ohne Display\S54\"
Pfad35 = "C:\DQM\Messung\RCA\SPML 16\Spur\DQM ohne Display\E2\"
.....

Pfad127 = "C:\DQM\Messung\RCA\RGM\S49\DQM mit Display\"
Pfad128 = "C:\DQM\Messung\RCA\RGM\S54\DQM mit Display\"
Pfad129 = "C:\DQM\Messung\RCA\RGM\E2\DQM mit Display\"
Pfad130 = "C:\DQM\Messung\RCA\RGM\abgefahrener Bogen\DQM mit Display\S49\"
Pfad131 = "C:\DQM\Messung\RCA\RGM\abgefahrener Bogen\DQM mit Display\S54\"
Pfad132 = "C:\DQM\Messung\RCA\RGM\abgefahrener Bogen\DQM mit Display\E2\"
Pfad133 = "C:\DQM\Messung\RCA\RGM\Spur\DQM mit Display\S49\"
Pfad134 = "C:\DQM\Messung\RCA\RGM\Spur\DQM mit Display\S54\"
Pfad135 = "C:\DQM\Messung\RCA\RGM\Spur\DQM mit Display\E2\"
Pfad136 = "C:\DQM\Messung\RCA\RGM\S49\DQM ohne Display\"
Pfad137 = "C:\DQM\Messung\RCA\RGM\S54\DQM ohne Display\"
Pfad138 = "C:\DQM\Messung\RCA\RGM\E2\DQM ohne Display\"
Pfad139 = "C:\DQM\Messung\RCA\RGM\abgefahrener Bogen\DQM ohne Display\S49\"
Pfad140 = "C:\DQM\Messung\RCA\RGM\abgefahrener Bogen\DQM ohne Display\S54\"
Pfad141 = "C:\DQM\Messung\RCA\RGM\abgefahrener Bogen\DQM ohne Display\E2\"
Pfad142 = "C:\DQM\Messung\RCA\RGM\Spur\DQM ohne Display\S49\"
Pfad143 = "C:\DQM\Messung\RCA\RGM\Spur\DQM ohne Display\S54\"
Pfad144 = "C:\DQM\Messung\RCA\RGM\Spur\DQM ohne Display\E2\"

kürzer schreiben kann denn die Pfad angabe würde bis Pfad144 Die Angaben bleiben immer gleich bis auf den 4 Unterordner der ändert sich immer. Es wäre sonst eine riesen schreiberei.

Dim Pfad As String, Pfad1 As String, Pfad2 As String, Pfad3 As String, Pfad4 As String, Pfad5 As String
Dim Pfad6 As String, Pfad7 As String, Pfad8 As String ....... Pfad144 as String

würde sonst ja auch so viel sein


Danke Rene

Bild


Betrifft: AW: Pfadangabe von: Bert
Geschrieben am: 10.03.2005 18:28:21

Pack den konatanten Teil in eine Konstante:

Const P as string = "C:\DQM\Messung\RCA\"

Pfad = P & "\RG 48\S49\DQM mit Display\"
usw.

Bert


Bild


Betrifft: AW: Pfadangabe von: Rene
Geschrieben am: 10.03.2005 19:12:43

Moin Bert,

Danke für deine Antwort werde es testen. Melde mich dann.

Gruß Rene


Bild


Betrifft: AW: Pfadangabe von: Rene
Geschrieben am: 10.03.2005 19:44:49

Moin Bert,

Kann es sein das ich dann trotzdem noch 144 Pfadangaben habe? Komme da leider nicht so richtig mit klar zum teil. Habe probiert nur den 4. Ordner als Konstante zu schreiben (
Const A as String = "RG 48") aber das geht nicht bei mir,sagt dann immer kann den Pfad nicht finden. Wenn mann den 4. Ordner als Konstante nehmen könnte dann brauch ich die Pfadangabe nur 18 mal machen und dann nur die Konstante anpassen gibt es da eine Möglichkeit?

Gruß Rene


Bild


Betrifft: AW: Pfadangabe von: Björn B.
Geschrieben am: 10.03.2005 21:43:17

Hallo Rene,

hilft dir das?


Sub Pfad()
Dim Pfad(144) As String
Dim vierte_Stelle(8) As String
Dim Pfad_Ende(18) As String
Pfad_Beginn = "C:\DQM\Messung\RCA\"
vierte_Stelle(1) = "RG48\"
vierte_Stelle(2) = "SPML16\"
vierte_Stelle(3) = "Dummy1\" 'Dummy1 durch den korrekten Verzeichnisnamen ersetzen!
vierte_Stelle(4) = "Dummy2\" 'Dummy2 durch den korrekten Verzeichnisnamen ersetzen!
vierte_Stelle(5) = "Dummy3\" 'Dummy3 durch den korrekten Verzeichnisnamen ersetzen!
vierte_Stelle(6) = "Dummy4\" 'Dummy4 durch den korrekten Verzeichnisnamen ersetzen!
vierte_Stelle(7) = "Dummy5\" 'Dummy5 durch den korrekten Verzeichnisnamen ersetzen!
vierte_Stelle(8) = "RGM\"
Pfad_Ende(1) = "S49\DQM mit Display\"
Pfad_Ende(2) = "S54\DQM mit Display\"
Pfad_Ende(3) = "E2\DQM mit Display\"
Pfad_Ende(4) = "abgefahrener Bogen\DQM mit Display\S49"
Pfad_Ende(5) = "abgefahrener Bogen\DQM mit Display\S54"
Pfad_Ende(6) = "abgefahrener Bogen\DQM mit Display\E2"
Pfad_Ende(7) = "Spur\DQM mit Display\S49"
Pfad_Ende(8) = "Spur\DQM mit Display\S54"
Pfad_Ende(9) = "Spur\DQM mit Display\E2"
Pfad_Ende(10) = "S49\DQM ohne Display\"
Pfad_Ende(11) = "S54\DQM ohne Display\"
Pfad_Ende(12) = "E2\DQM ohne Display\"
Pfad_Ende(13) = "abgefahrener Bogen\DQM ohne Display\S49"
Pfad_Ende(14) = "abgefahrener Bogen\DQM ohne Display\S54"
Pfad_Ende(15) = "abgefahrener Bogen\DQM ohne Display\E2"
Pfad_Ende(16) = "Spur\DQM ohne Display\S49"
Pfad_Ende(17) = "Spur\DQM ohne Display\S54"
Pfad_Ende(18) = "Spur\DQM ohne Display\E2"
For i = 1 To 144 Step 18
    For j = 0 To 17
        Pfad(i + j) = Pfad_Beginn & vierte_Stelle(Fix((i + j - 1) / 18) + 1) & Pfad_Ende(j + 1)
        Cells(i + j, 1) = Pfad(i + j) ' Schreibt die Pfade in Spalte A
    Next j
Next i
End Sub



Gruß
Björn


- Ohne Rückmeldungen, vergeht die Lust am Antworten -


Bild


Betrifft: AW: Pfadangabe von: Rene
Geschrieben am: 10.03.2005 22:34:27

Moin Björn,

Danke dir für deine Mühe aber leider nützt mir das nichts habe jetzt mit angefangen und erst mal alle 144 Pfade deklariert und schreibe nun die ganze SAche um. wenn es fertig ist frag ich noch mal ob es dafür etwas kürzeres gibt.

Danke noch mal
Rene


Bild


Betrifft: AW: Pfadangabe von: Björn B.
Geschrieben am: 11.03.2005 20:20:54

Hallo Rene,

gern geschehen, aber was fehlt denn, damit es dir was nützt?
Versuch doch mal das Problem zu beschreiben, nur dann kann ich auch helfen.

Gruß
Björn


- Ohne Rückmeldungen, vergeht die Lust am Antworten -


 Bild

Beiträge aus den Excel-Beispielen zum Thema "text aus textbox übernehmen"