Arbeitsblattbezüge ohne Laufwerksnamen
25.11.2019 10:35:44
Stefan
ich hab in meiner Stundenauswertung ein Problem.
Es sind 3 Stundentabellen und diese werden in meiner Auswertung zusammengefügt und dann weiter verarbeitet.
Soweit funktioniert das auch, nur mit den Daten holen is noch son Problem.
Gespeichert sind alle vier Dateien im gleichen Ordner auf dem Desktop.
Sheets("Stunden").Select
Range("B2").Select
ActiveCell.FormulaR1C1 = _
"='C:\Users\hiemer\Desktop\Auswertung\[Stundenerfassung 1.xlsm]Tabelle2'!RC"
Selection.AutoFill Destination:=Range("B2:E2"), Type:=xlFillDefault
Range("B2:E2").Select
Selection.AutoFill Destination:=Range("B2:E401"), Type:=xlFillDefault
Range("B2:E401").Select
Das hab ich mim Makrorekoder geschafft, das funktioniert ja auch.
Jetzt werde ich die Auswertung aber auch mal aufnem USB-Stick oder auf einem anderen Rechner
vornehmen, und da wäre meine Frage, ob ich den Laufwerksbezug
"='C:\Users\hiemer\
bzw zumindest den Namen meines Rechners auch iwie umgehen kann?