VBA Pfadname in Zelle

[kmeleon]

Wie der Threadtitel schon sagt, möchte ich den Pfad+Dateinamen in einer Zelle widergeben. Folgender Code wird mit "Runtime Error 424, Object required" quittiert:

Sub Dateiname()
Dim s As String
s = ActiveWorkbook.FullName
Tabelle1.Range("A1").Value = s

End Sub

???...

 

[Terrenco]

Hallo kmeleon,

dieser Thread auf Stackoverflow könnte dir weiterhelfen.


http://stackoverflow.com/questions/11568321/writing-a-string-to-a-cell-in-excel


Gib auf jeden Fall Bescheid, wie und ob du weitergekommen bist !

 

[kmeleon]

Habe mich stets bemüht, aber die Transferleistung nicht hinbekommen ;-) Selber Fehler.

Sub Dateiname()
Dim s As String
Dim t As Range
s = ActiveWorkbook.FullName
Set t = Tabelle2.Range("A1")
t.Value = s

End Sub

 

[_killy_]

dein erster Code war schon fast richtig

Sub Dateiname()
    Dim s As String
    s = ActiveWorkbook.FullName
    Tabelle1.Range("A1") = s.Value

End Sub

sollte funktionieren. Links steht wo es hingeht - rechts wo es herkommt - deshalb muss auch auf der Rechten Seite das stehen, was du übergeben möchtest - in deinem Fall den Value.

ok?

 

[Knufu]

Muss es denn unbedingt VBA sein?
Es geht auch einfach mit "Boardmitteln" >> Thema: ZELLE()

 

[_killy_]

Wenn Formel dann

=INFO("VERZEICHNIS")

um den Dateipfad anzeigen zu lassen.