Microsoft Excel

Herbers Excel/VBA-Archiv

Bewerten Sie hier bitte das Excel-Portal

Der kurze Weg zum Ziel: Auftragsprogrammierung

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

VBA Ordner-Auswahl

Betrifft: VBA Ordner-Auswahl von: Raphael
Geschrieben am: 30.07.2014 15:07:11

Hallo zusammen,

ich habe im www ein schönes Makro gefunden, welches aber noch nicht ganz meinen Vorstellungen entspricht:

Sub Schaltfläche11_Klicken()
   Dim zeile As Variant
   Dim sFile As String, sPattern As String, sPath As String
   Dim iRow As Integer
   Columns(1).ClearContents     
   sPath = "P:\Desktop\NORTH\" 
   Verzeichnis an
   If Right(sPath, 1) <> "\" Then sPath = sPath & "\"
   sPattern = "*.*"
   sFile = Dir(sPath & sPattern)
   Do Until sFile = ""
      iRow = iRow + 1
      Cells(iRow, 1).Value = sFile
      sFile = Dir()
   Loop
    For zeile = 1 To Cells.SpecialCells(xlLastCell).Row

 Next

End Sub


sPath = "P:\Desktop\NORTH\" Soll aber der Ordner sein in dem die Aktuelle Datei liegt in der ich das Makro steht!

ich hoffe ihr könnt mir hier weiterhelfen.

Besten dank

Raphael

  

Betrifft: AW: VBA Ordner-Auswahl von: yummi
Geschrieben am: 30.07.2014 15:11:58

Hallo Raphael,

in ThisWorkbook.Path steht das drin was Du suchst.

Gruß
yummi


  

Betrifft: AW: VBA Ordner-Auswahl von: Raphael
Geschrieben am: 30.07.2014 15:15:34

Hallo Yummi,

Meinst du:

sPatch = ThisWorkbook.Path

das passt aber nicht ganz: da liest er mir nur die Dateien aus P: aus, aber nciht aus P:\Desktop\NORTH\

Besten dank für deine schelle Hilfe!

Raphael


  

Betrifft: AW: VBA Ordner-Auswahl von: yummi
Geschrieben am: 30.07.2014 15:23:03

Hallo Raphael,

Sub test()
Dim strPath As String
    strPath = ThisWorkbook.Path
    MsgBox strPath
End Sub
Da steht in strPath der gesamte Pfad drin, vlt liegt deine Datei ja direkt unter P:\

Gruß
yummi


  

Betrifft: AW: VBA Ordner-Auswahl von: Raphael
Geschrieben am: 30.07.2014 15:26:39

Danke dir! ja wenn ich dieses Makro verwende wird mir das P:\Desktop\NORTH\ angezeigt.

in meinem "großen" Makro werden mir aber nur die Sheetss aus P: ausgelesen.

Hast du eine Ahnung woran das liegen könnte?

MFG
raphael


  

Betrifft: AW: VBA Ordner-Auswahl von: selli
Geschrieben am: 30.07.2014 15:32:50

hallo raphael,

wir könnten raten, was in deinem "großen" makro steht. das ist bestimmt ein lustiges spiel.

gruß
selli


  

Betrifft: AW: VBA Ordner-Auswahl von: Raphael
Geschrieben am: 30.07.2014 15:38:01

HI Selli, ja das wäre sicherlich ein schönes Spiel! ich habe es um das Spiel zu vereinfachen aber auch in meinem Ersten Threat angeben :-) hier aber nochmals! hast du eine Ahnung woran das liegen könnte?

Sub Schaltfläche11_Klicken()
   Dim zeile As Variant
   Dim sFile As String, sPattern As String, sPath As String
   Dim iRow As Integer
   Columns(1).ClearContents
   
   sPatch = ActiveWorkbook.Path
   
    If Right(sPath, 1) <> "\" Then sPath = sPath & "\"
   sPattern = "*.*"
   sFile = Dir(sPath & sPattern)
   Do Until sFile = ""
      iRow = iRow + 1
      Cells(iRow, 1).Value = sFile
      sFile = Dir()
   Loop
    For zeile = 1 To Cells.SpecialCells(xlLastCell).Row

 Next

End Sub



  

Betrifft: schreibfehler !!! von: selli
Geschrieben am: 30.07.2014 15:52:44

hallo raphael

sPatch = ActiveWorkbook.Path
sPath = ActiveWorkbook.Path

gruß
selli


  

Betrifft: AW: schreibfehler !!! von: Raphael
Geschrieben am: 30.07.2014 15:54:21

Ach ist ja ein sche..... so nen kleiner Fehler mit so ner Auswirkung.....

Danke dir für die Hilfe!!!


  

Betrifft: Option Explicit von: selli
Geschrieben am: 30.07.2014 15:57:31

hallo raphael,

hier schon oft besprochen.
Option Explicit

an den beginn deines moduls überprüft die zuordnung deiner verwebdeten variablen.
wäre damit sofort aufgefallen.



gruß
selli


  

Betrifft: AW: Option Explicit von: Raphael
Geschrieben am: 30.07.2014 16:00:18

Danke Selli fürs nächste mal werde ich das anwenden!


  

Betrifft: AW: VBA Ordner-Auswahl von: yummi
Geschrieben am: 30.07.2014 15:36:55

Hallo Raphael,

du musst dein Code schon zeigen, damit jemand etwas sagen kann. Die Glaskugeln sind zur Zeit sehr trübe ;-)

Gruß
yummi


  

Betrifft: AW: VBA Ordner-Auswahl von: Michael
Geschrieben am: 30.07.2014 16:42:45

... und noch eines:

ThisWorkbook.Path versus ActiveWorkbook.Path

Vielleicht sollte man auf AJAX umsteigen, das klärt die Glaskugel.

Happy Exceling,

Michael