Werte einer Zelle lesen
21.08.2019 10:26:47
Matthias
In einer festen Zeile meiner Tabellenblätter stehen Kalenderwochen. Und zwar
1. in einem Blatt fest erfasst als z.B. "KW35" oder
2. in einem anderen Blatt als Referenz zu einer anderen Tabelle in Form '=Tabelle1!K2'. Die Wochen stehen zuzdem jeweils in verschiedenen Spalten.
Mit dem folgenden Makro finde ich die fest eingegeben Zellen und kann damit weiterarbeiten:
_________________
Datum = Date
StartWoche = "KW" & DatePart("ww", Datum)
Set Ergebnis = wksQ.Rows(2).Find(what:=StartWoche, lookat:=xlWhole)
If Ergebnis Is Nothing Then
MsgBox "Leider nichts gefunden!"
Exit Sub
Else
' MsgBox "Die aktuelle Woche steht in der Spalte " & Ergebnis.Column
Spalte1 = Ergebnis.Column + 1
Spalte2 = Spalte1 + 1
End If
___________________
Die Variablen sind natürlich vorher definiert.
Im Fall 2 findet mein Makro nichts, weil in der jeweiligen Zelle die Referenz steht...und sagt dann "Leider nichts gefunden"
Was mmuss ich ändern, damit das Makro immer den angezeigten Wert ausliest? Dann bräuchte ich nicht zu unterscheiden...
Sorry, bin noch Anfänger in VBA...