Thema Datum  Von Nutzer Rating
Antwort
05.02.2008 15:12:29 Ansem
NotSolved
05.02.2008 16:01:35 Holger
NotSolved
05.02.2008 16:13:56 Ansem
NotSolved
05.02.2008 20:53:20 Holger
NotSolved
Rot Aw:Aw:Aw:Aw:Suchfunktion
 06.02.2008 08:49:05 ansem
NotSolved

Ansicht des Beitrags:
Von:
ansem		 Datum:
06.02.2008 08:49:05		 Views:
1246		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Aw:Aw:Aw:Suchfunktion

danke holger ^^

Holger schrieb am 05.02.2008 20:53:20:

Hallo Ansem,
ich habe deinen Code hinsichtlich der Auswahl der Datei modifiziert. Es ist eine ListBox1 auf der UserForm erforderlich. Du musst den obersten Suchordner festlegen.

Private Sub UserForm_Initalize()
'Private Sub Erfassung_Initalize()
'TextBC.Text = ""
Verzeichniswahl_Click
If Ordner = "" Then End
End Sub

'Private Sub cmdOK_Click()
Private Sub ListBox1_Click()
'If Txt.BC.Text <> "" Then
Ordner = Ordner + "\" + ListBox1.Text
If LCase(Right(Ordner, 4)) <> ".xls" Then Exit Sub
Workbooks.Open (Ordner)
Worksheets("Sheet1").Range("A2:Q400").Select
Selection.Copy
ActiveWorkbook.Close
Worksheets("Bin Central").Activate
Count = 2
Do While Range("a" & Count).Value <> ""
Count = Count + 1
Loop
Range("a" & Count).Select
Selection.PasteSpecial
'End If
Unload UserForm
End Sub

Private Sub Verzeichniswahl_Click()
Text = "Bitte Verzeichnis wählen!"
Start = "Dein oberstes Verzeichnis zum Suchen" '*****Dein Verzeichnis!
Dim objShell As Object
Set objShell = CreateObject("Shell.Application").BrowseForFolder(0&, Text, &H200, Start)
If Not objShell Is Nothing Then Ordner = objShell.Self.Path Else Exit Sub
Set fso = CreateObject("Scripting.FileSystemObject")
Set fldr = fso.getfolder(Ordner)
Set fls = fldr.Files
b = fls.Count
ListBox1.Clear
a = 0
ReDim XlDatei(a)
If b > 0 Then
For Each d In fls
If LCase(Right(d, 4)) = ".xls" Then
ListBox1.AddItem d.Name
XlDatei(a) = d
a = a + 1
ReDim Preserve XlDatei(a)
End If
Next
End If
End Sub



Ansem schrieb am 05.02.2008 16:13:56:

Hallo Holger

Danke für deine Hilfe. Ich schicke dir mal einen kleinen Bereich aus meiner Programmierung.
------------------------------------------------------------------
Private Sub Erfassung_Initalize()
TextBC.Text = ""
End Sub

Private Sub cmdOK_Click()

If Txt.BC.Text <> "" Then
Workbooks.Open (TxtBC)
Worksheets("Sheet1").Range("A2:Q400").Select
Selection.Copy
ActiveWorkbook.Close
Worksheets("Bin Central").Activate
count = 2
Do While Range("a" & count).Value <> ""
count = count + 1
Loop
Range("a" & count).Select
Selection.PasteSpecial

End If

Unload Userform

End Sub
----------------------------------------------------------------
Kann ich statt dem Textfeld ein Commandbutton hinzufügen und per klick einen kleinen Explorer Öffnen bei der man die Übersicht über alle Ordner hat(Wie bei einem Explorer) und dann eine bestimmte Datei auswählen kann und deren Pfadname Automatisch eintragen lassen?

Geht so was überhaupt ? Kann man vba mit vbs zusammen kombinieren?
Ist das überhaupt möglich.

Danke nochmals für deine Hilfe Holger









Holger schrieb am 05.02.2008 16:01:35:

Hallo Ansem,
mit nachstehendem Code steht nach der Auswahl das gewählte Verzeichnis in der Variablen Ord. Ord ist leer, wenn nichts gewählt wurde:

Text = "Bitte Verzeichnis wählen!"
Start = "Dein oberstes Verzeichnis zum Suchen"
Dim objShell As Object
Set objShell = CreateObject("Shell.Application").BrowseForFolder(0&, Text, &H200, Start)
If Not objShell Is Nothing Then Ord = objShell.Self.Path Else Exit Sub

Wenn du auch die Dateien in diesem Ordner haben willst, kannst du Folgendes ergänzen, wenn du auf deiner UserForm eine ListBox1 einrichtest, in der die Dateien aufgelistet werden:

Set fso = CreateObject("Scripting.FileSystemObject")
Set fldr = fso.getfolder(Ordner)
Set fls = fldr.Files
b = fls.Count
ListBox1.Clear
a = 0
ReDim XlDatei(a)
If b > 0 Then
For Each d In fls
If LCase(Right(d, 3)) = "xls" Then
ListBox1.AddItem d.Name
XlDatei(a) = d
a = a + 1
ReDim Preserve XlDatei(a)
End If
Next
End If

Die Auswahl ergeht dann mit Private Sub ListBox1_Click().
Viel Erfolg
Holger



Ansem schrieb am 05.02.2008 15:12:29:

Halle Zusammen

Ich habe eine Frage. Ich möchte Daten aus einer Exceldatei in eine andere Datei hineinkopieren. Wie man das scriptet hab ich schon.
Ich habe eine Userform gemacht bei der man den Pfad eingeben muss.

Jetz wollte ich gerne fragen ob es möglich ist, wenn man statt den Pfad angeben, den Ordner in einem Explorer suchen kann ??

Besten Dank für eure Hilfe

Gruss, Ansem

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
05.02.2008 15:12:29 Ansem
NotSolved
05.02.2008 16:01:35 Holger
NotSolved
05.02.2008 16:13:56 Ansem
NotSolved
05.02.2008 20:53:20 Holger
NotSolved
Rot Aw:Aw:Aw:Aw:Suchfunktion
 06.02.2008 08:49:05 ansem
NotSolved