2 probleme in VBA

Forumthread: 2 probleme in VBA
3 Beiträge zu diesem Forumthread
Anzeige

Forumthread: 2 probleme in VBA

2 probleme in VBA

alex

Hallo liebe excel veteranen
ich habe 2 probleme bei denen ich nicht weiter komme
1. wie muß ich ein makro programmieren damit eine datei aus einem unterordner eine andere datei aus einem übergeordneten ordner öffnet ohne dabei den kompletten pfad einzugeben. beispiel:
die datei mit dem makro liegt in Z:\wartungslisten\wartung aktuell\bma vds\vorlage.xls
die datei die geöffnet werden soll liegt in Z:\wartungslisten\wartung aktuell\wartung.xls
ich möchte wenigstens c:\wartungslisten nicht eingeben müssen als pfad. da sich bei uns jeh nach arbeitsplatz die dateien entweder in Z:\st\wartungslisten\... oder in Z:\wartungslisten\... befinden
2. ich brauch ein makro das einen wert in einer zelle (c11) von mappe A mit den werten einer spalte (A) in mappe B vergleicht und bei einem treffer in der selben zeile wo der wert gefunden wurde 6 spalten weiter das heutige datum schreibt.
vielen dank im vorraus für eure hilfe

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: 2 probleme in VBA

OttoH
1. Problem

MichaV
AW: 2 probleme in VBA

alex

AW: 2 probleme in VBA

20.10.2009 01:14:37

OttoH

Hallo Alex,
mit Activeworkbook.path bekommst Du den Pfad der aktuellen Mappe.
Daraus muss dann der übergeordnete Pfad ermittelt werden.
Probiere mal folgendes MAkro aus:

Sub Ordner()
Dim Pfad As String
Dim i As Integer
Dim Pos As Integer
Pfad = ActiveWorkbook.Path
For i = Len(Pfad) To 1 Step -1
If Mid(Pfad, i, 1) = "\" Then
Pos = i - 1
Exit For
End If
Next
MsgBox Left(Pfad, Pos)
End Sub

Gruß OttoH

1. Problem

20.10.2009 01:16:21

MichaV

Hallo,
Du solltest nie 2 Fragen in einem Beitrag stellen.
Lösung 1. Frage: Relative Pfadangaben:
../ ist ein Verzeichnis höher
../../ ist zwei Verzeichnisse höher usw.
Workbooks.Open ("../kontakte.xls") öffnet Datei kontakte.xls im übergeordneten Verzeichnis.
Gruß- Micha

AW: 2 probleme in VBA

21.10.2009 23:48:31

alex

danke für eure tipps hat mir super geholfen
ich werde das 2. problem nochmal extra posten
gruß alex

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!