Pfade ändern und vervollständigen

Sub test() Dim sString As String Dim i As Integer Dim Blattname As String Blattname = InputBox("Liniennummer eingeben") With ActiveWorkbook.Sheets(Blattname).Select For i = 1 To Range("B65536").End(xlUp).Row 'alle Zellen prüfen If Cells(i, 2).Hyperlinks.Count > 0 Then 'wenn Link vorhanden sString = Cells(i, 2).Hyperlinks(1).Address Cells(i, 6) = Split(sString, "\") End If Next i End With End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub test() Dim sString As String Dim i As Integer Dim Blattname As String Dim sFile As String, sPath As String Blattname = InputBox("Liniennummer eingeben") With ActiveWorkbook.Sheets(1) For i = 1 To Range("B65536").End(xlUp).Row 'alle Zellen prüfen If Cells(i, 2).Hyperlinks.Count > 0 Then 'wenn Link vorhanden sString = Cells(i, 2).Hyperlinks(1).Address sPath = Left(sString, InStrRev(sString, "\")) sFile = Right(sString, Len(sString) - InStrRev(sString, "\")) .Cells(i, 6) = sPath .Cells(i, 7) = sFile .Cells(i, 8) = "G:\MFO2\10_QS9000\FORMULAR\" & sFile End If Next i End With End Sub

Sub Pfade_speichern() erstelle txt.Datei mit Namen "Pfade.txt" in (z.B.) "C:\Dokumente und Einstellungen\Stefan\ _ Desktop" Open "C:\Dokumente und Einstellungen\Stefan\Desktop\Pfade.txt" For Append As #1 For i = 1 To Range("B65536").End(xlUp).Row If Cells(i, 8).Value "" Then Write #1, Cells(i, 8).Value Next i Close #1 End Sub

Hallo Christian
Im prinzip hast du mich schon richtig verstanden. Die Pfade die ich (mit Hilfe deines Codes) auslese und nun in den Zellen H5 bis H20 in QI Liste stehen habe, sollen in einer Textdatei stehen, um die einzelnen Pfade dem Code je einer Checkbox zu übergeben.
Momentan habe ich eine Userform, in der ich Checkboxen anklicke , wenn ich dann den "Drucken" Button betätige werden die gewählten Dokumente aufgerufen und dann gedruckt. Der Pfad steht dort aber im Code für jede einzelne Datei. Den soll sich die Prozedur aber aus der Textdatei holen.
Hänge mal was an zum Verständnis.
If CheckBox7.Value = True Then
Workbooks.Open Filename:= _
"G:\MFO2\10_QS9000\FORMULAR\3644ftL714 P14Schlußprüfen.xls" ' Filename soll aus Textdatei kommen
Range("G3").Select
ActiveCell = team & Chr(10) & aktdate
Range("n3").Select
ActiveCell = team & Chr(10) & aktdate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.Close savechanges:=False
End If
Dieser einzelne Code liegt hinter dem "Drucken" Button und das für 9 Checkboxen.
Gruß, Stefan

Option Explicit Private Sub CommandButton1_Click() 'Liste einlesen Dim sString As String Dim i As Long, k As Long Dim Blattname As String Dim sFile As String, sArrFullName() As String Blattname = InputBox("Liniennummer eingeben") With ActiveWorkbook.Sheets(Blattname) For i = 1 To .Cells(Rows.Count, 2).End(xlUp).Row 'alle Zellen prüfen If .Cells(i, 2).Hyperlinks.Count > 0 Then 'wenn Link vorhanden sString = .Cells(i, 2).Hyperlinks(1).Address sFile = Right(sString, Len(sString) - InStrRev(sString, "\")) ReDim Preserve sArrFullName(k) sArrFullName(k) = "G:\MFO2\10_QS9000\FORMULAR\" & sFile k = k + 1 End If Next End With Me.ListBox1.List = sArrFullName End Sub Private Sub CommandButton2_Click() 'gewählte Eintrage Dim i As Long With Me.ListBox1 For i = 0 To .ListCount - 1 If .Selected(i) Then 'machwas - zB drucken (hier nur MsgBox als Demo) MsgBox .List(i) End If Next End With End Sub Private Sub UserForm_Initialize() Me.ListBox1.MultiSelect = 2 End Sub

Hallo Stefan,
natürlich kannst du die Daten auch zunächst in einem Text File speichern und später wieder abrufen.
Aber wenn sich die Quelle (QI-Liste.xls) ändert nutzt das wenig, da du dann nicht die aktuellen Daten hast.
Wenn du sowieso bei jedem Durchlauf die Quelle abfragst, ist das txt file unnötig. Dann schreibst du besser die Daten in ein Array (wie in meinem Bsp) und arbeitest anschließend mit den Einträgen des Arrays statt mit denen des txt files.
Auf die Erstellung von Checkboxes zur Laufzeit würde ich verzichten. Das geht natürlich, aber da muss man schon sehr sauber scripten. Deshalb mein Vorschlag, die Einträge des Arrays (oder des txt files) in einer Listbox aufzuführen. Da bist du von der Anzahl unabhängig.
btw: mit dem Code "Open "C:\Pfade.txt" For Append As #1" werden neue Einträge an ein vorhandenes File angehängt. Wenn du die Abfrage wiederholst hast du alle Einträge doppelt. Ist das so gewollt?
Tipp: Verwende stets "Option Explicit", das hilft ungemein bei der Fehlersuche.
Du kannst dies im VBA-Edtor über "Extras - Optionen - Reiter "Editor": Häkchen setzen bei "Variablendeklaration erforderlich" fest einstellen.
noch ein Tipp: immer sauber referenzieren - siehe zB. die Basics von Hans Herber.
Grüße
Christian
falls du weiterhin mit der Text Datei arbeiten willst, hier noch ein Bsp zum erzeugen und _ auslesen derselben:


Option Explicit
Sub WriteTxtFile()
'Bsp: text file schreiben (überschreibt vorhandene)
Dim intFile As Integer, i As Long
Const TXTFILE = "D:\1.txt"
intFile = FreeFile
With ThisWorkbook.Sheets("Tabelle1")
Open TXTFILE For Output As #intFile
For i = 1 To .Cells(Rows.Count, 2).End(xlUp).Row
If .Cells(i, 2)  "" Then
Print #intFile, .Cells(i, 2).Value
End If
Next
Close #intFile
End With
End Sub
Sub ReadTxtFile()
'Bsp: text file in array einlesen
Dim intFile As Integer
Dim strTxt As String, arrTxt
Const TXTFILE = "D:\1.txt"
intFile = FreeFile
Open TXTFILE For Binary Access Read As #intFile
strTxt = String(LOF(intFile), 0)
Get #intFile, , strTxt
Close #intFile
arrTxt = Split(strTxt, vbCrLf)
End Sub

Beliebteste Forumthreads (12 Monate)

Pfade ändern und vervollständigen

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Pfade ändern und vervollständigen

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread