VBA Makro relativer Verweis auf anderes Sheet?

Computer: Software & Programmierung Visual Basic
#1

Grüß Gott,

ich bin neu beim Programmieren von VBA-Skripten und komme an einer Stelle nicht weiter:

Der Folgende Code macht einfach nicht das, was er soll:

Dim datum2 As String

intRow = 3
Do Until IsEmpty(Cells(intRow, 3))
intRow = intRow + 1
Loop

datum2 = Cells(intRow, 2)
Cells(intRow, 3) = „=’“ + datum2 + „’!F3“

Zuerst soll die nächste leere Zeile gefunden werden (das klappt!)
dann wird aus der nebenstehenden Zelle das dort eingetragene Datum ausgelesen (klappt auch!) später wird dann ein weiteres Sheet erstellt, dass als „NAME“ das datum hat (klappt ebenfalls!)

was nicht klappt: in der vorhin gesuchten, leeren Zelle soll nun der Verweis auf eine Zelle in diesem neuen Sheet stehen, der sich selbst aktualisiert… denn die Werte in dem neuen Sheet können Sich ändern. Doch es wird in der Zelle anstatt:

=‚14.08.09‘!F3 --> =’[14.08.2009]14.08’!F3

eingetragen und in Excel geht ein Fenster auf, in dem er nach „Werte für 14.08.09 aktualisieren“ fragt… HELP?!

#2

Zuerst soll die nächste leere Zeile gefunden werden (das
klappt!)
dann wird aus der nebenstehenden Zelle das dort eingetragene
Datum ausgelesen (klappt auch!) später wird dann ein weiteres
Sheet erstellt, dass als „NAME“ das datum hat (klappt
ebenfalls!)

was nicht klappt: in der vorhin gesuchten, leeren Zelle soll
nun der Verweis auf eine Zelle in diesem neuen Sheet stehen,
der sich selbst aktualisiert… denn die Werte in dem neuen
Sheet können Sich ändern.

Hallo Christian,

sofern ich das richig verstanden habe, wie wäre es damit:

Sub tt()
Dim lngRow As Long
With ActiveSheet
 lngRow = .Cells(.Rows.Count, 3).End(xlUp).Row
 Worksheets.Add after:=Worksheet(Worksheets.Count)
 ActiveSheet.Name = Format(.Cells(lngRow, 2), "DD.MM.YY")
 .Cells(lngRow, 3) = "='" & ActiveSheet.Name & "'!F3"
 .Activate
End With
End Sub

Gruß
Reinhard

#3

Ich habe es hinbekommen mit:

Sheets(2).Cells(intRow, 3) = „=’“ & Sheets(3).Name & „’!F$3“

Vielen Dank für die Anregung mit dem Namen des Sheets