✔ Name einer geöffneten Datei ermitteln

[Seven Eleven]

Hi,

ich bin totaler Anfänger und komm nicht weiter! Ich möchte per Makro eine Datei öffnen und diese anschliesend gleich formatieren, bevor der Benutzer mit ihr arbeiten kann.

Habe zum Öffnen den Befehl "application.dialogs(xldialogopen).show" gefunden.

Nachdem ich die Datei ausgewählt und geöffnet habe komme ich allerdings nicht an ihren Namen, um sie im Makro ansprechen zu können. Wie mache ich das am besten

Danke für eure Hilfe!

Gruß

 

[noreya]

Hi Seven Eleven,

öffnen kannst Du eine bekannte Datei so:
Workbooks.Open (Pfad+Dateiname)

den Namen der aktuell geöffneten Datei bekommst Du mit:
ActiveWorkbook.Name

Gruß
noreya

 

[Seven Eleven]

Hat geklappt! Tausend Dank! Meine Diplomarbeit ist damit gerettet...

 

[Seven Eleven]

Noch ne andere Frage.

Kann ich so ohne weiteres einer Variablen einen Range zuordnen? Und wie müsste ich die Variable definieren. Möchte den Range kopieren und an einer anderen Stelle einfügen.

Die Fragen sind vielleicht ein bissl blöd, aber ich kenn mich echt nicht aus und hab auch kein Buch zur Hand.

 

[noreya]

Das würde ich mit einem benutzerdefinierten Type lösen.

Auf Modulebene (außerhalb der Funktionen) definieren

Type meinType
     meineVariable as variant
     meinRang as integer
end type

Dim meineWerte as meinType

Zugreifen kannst Du auf die Variable dann mit

meineWerte.meineVariable
meineWerte.meinRang

Wenn Du mehrere Werte hast mach aus "meineWerte" ein Array:

Dim meineWerte() as mein Type


Viel Erfolg damit

Was ist denn das Thema Deiner Diplomarbeit? - vielleicht sollte ich das auch machen

 

[Seven Eleven]

Mein Thema ist: Einführung eines Kennzahlensystem im zentralen Einkauf der ....AG

Bei Fragen einfach melden

 

[Orakel]

Hi Sven,

Kann ich so ohne weiteres einer Variablen einen Range zuordnen?

Yap kannst Du:
Dim oRange As Range
Set oRange = Range("A1:Z100")

Möchte den Range kopieren und an einer anderen Stelle einfügen.

Machs doch einfach so:

    Range("A1:E17").Select
    Selection.Copy
    Range("H1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False

Die Fragen sind vielleicht ein bissl blöd, aber ich kenn mich echt nicht aus und hab auch kein Buch zur Hand.

Das mit dem Buch ist nicht schlimm. Excel VBA hat aber eine ausgezeichnete Hilfe

Gruß
Das Orakel

 

[noreya]

Kann ich so ohne weiteres einer Variablen einen Range zuordnen? Und wie müsste ich die Variable definieren. Möchte den Range kopieren und an einer anderen Stelle einfügen.

Moment: hast Du wirklich Range gemeint?! Oder doch einen Rang?!