Makro zum Ordneranlegen erstellen

20/01/2009 - 11:13 von Nico Rachow | Report spam
Hallo,
folgendes ist gegeben, in jeder Zeile einer Tabelle gibt es ein Feld, in dem
ein Ordnername steht , z.B. "Musterstr 23 AB09000011". Dieser wird
per Formel aus 2 weiteren Spalten angezeigt.
Nun möchte ich neben dem Ordnernamen in jeder Zeile einen Button erzeugen,
welcher beim Klicken einen Ordner mit dem jeweiligen Namen erstellt.

Da meine Makrokenntnisse ziemlich schlecht sind, hoffe ich hier auf Hilfe.

Im Internet hab ich schon ein Beispielmakro zum Anlegen eines Ordners
gefunden:

Sub Ordner_anlegen()
'prüfen ob ein Ordner vorhanden ist und falls nicht
'fragen ob Ordner erstellt werden soll
Dim Ord As String
Dim Antwort As Integer
Ord = "C:\Teste"
If Dir(Ord, vbDirectory) <> "" Then
MsgBox "Ordner ist schon vorhanden"
Else
Antwort = MsgBox("Der Ordner " & Ord & " ist nicht vorhanden." _
& vbNewLine _
& "soll der Ordner angelegt werden?!", vbYesNo)
If Antwort = vbYes Then
'Falls kein LW angegeben ist, erstellt die MkDir-Anweisung
'den neuen Ordner auf dem aktuellen LW.
'LW wurde aber durch "C:\Teste" festgelegt
MkDir Ord
MsgBox "Ordner " & Ord & " angelegt"
Else
MsgBox "Es wurden keine Änderungen vorgenommen"
Exit Sub
End If
End If
End Sub


Dies müsste ich jetzt so anpassen, das immer der richtige Ordnername aus der
Spalte erzeugt wird.
Kann mir jemand dabei helfen?

Gruß Nico
 

Lesen sie die antworten

#1 stefan onken
20/01/2009 - 13:26 | Warnen spam
On 20 Jan., 11:13, "Nico Rachow" wrote:
Hallo,
folgendes ist gegeben, in jeder Zeile einer Tabelle gibt es ein Feld, in dem
ein Ordnername steht , z.B.  "Musterstr 23  AB09000011". Dieser wird
per Formel aus 2 weiteren Spalten angezeigt.
Nun möchte ich neben dem Ordnernamen in jeder Zeile einen Button erzeugen,
welcher beim  Klicken einen Ordner mit dem jeweiligen Namen erstellt.

Da meine Makrokenntnisse ziemlich schlecht sind, hoffe ich hier auf Hilfe.

Im Internet hab ich schon ein Beispielmakro zum Anlegen eines Ordners
gefunden:

Sub Ordner_anlegen()
'prüfen ob ein Ordner vorhanden ist und falls nicht
'fragen ob Ordner erstellt werden soll
Dim Ord As String
Dim Antwort As Integer
Ord = "C:\Teste"
  If Dir(Ord, vbDirectory) <> "" Then
     MsgBox "Ordner ist schon vorhanden"
  Else
  Antwort = MsgBox("Der Ordner " & Ord & " ist nicht vorhanden." _
          & vbNewLine _
          & "soll der Ordner angelegt werden?!", vbYesNo)
      If Antwort = vbYes Then
'Falls kein LW angegeben ist, erstellt die MkDir-Anweisung
'den neuen Ordner auf dem aktuellen LW.
'LW wurde aber durch "C:\Teste" festgelegt
      MkDir Ord
      MsgBox "Ordner " & Ord & " angelegt"
      Else
      MsgBox "Es wurden keine Änderungen vorgenommen"
      Exit Sub
      End If
  End If
End Sub

Dies müsste ich jetzt so anpassen, das immer der richtige Ordnername aus der
Spalte erzeugt wird.
Kann mir jemand dabei helfen?

Gruß Nico



hallo Nico,
ich würde nur einen Button erstellen und nicht in jeder Zeile einen,
da ist die Programmierung aufwàndiger.
Wenn du nur 1 Button hast, müsstest du aber erst die Zelle mit dem
Ordnernamen anklicken und danach den Button klicken.

Welche Excelversion verwendest du? Und in welchem verzeichnis sollen
die Ordner erstellt werden?

Gruß
stefan

Ähnliche fragen