Dateiname automatisch in VBA-Code übernehmen
25.01.2004 09:09:43
Harald
Ich füge mittels einem kleinen Makro in eine Tabelle neue Zeilen ein, nun habe ich aber das Problem dass es nur funktioniert wenn die Datei unter dem Namen abgespeichert ist den ich auch im Makro eingetragen habe. Ist es möglich das mittels VBA der aktuelle Dateinamen unter dem die Arbeitsmappe gespeichert wurde übernommen wird und es auch dann funktioniert.
Er sollte im VBA-Code an Stelle von ("Test.xls") stehen.
Sub NeueZeile()
Set AI = Application.Workbooks("Test.xls")
Set BE = AI.Sheets("Bereich")
Set AB = Application.ActiveSheet
usw...
Für Eure Hilfe wäre ich sehr dankbar.
beste Grüße
Harald