habe folgendes kl. Problem:
In der "Tabelle 1" sind Berechnungen enthalten (Feiertage). Es befinden sich weitere 10 Tabellenbläter in dieser Arbeitsmappe. Nun möchte ich die Msgbox aus den anderen Tabellenblättern, per Button, mir die Feiertage anzeigen lassen. Soweit funktioniert es prima. Problem: Wie muss der Code (oder die Eigenschaft) definiert sein, damit ich nach Bestätigen der "Msgbox", automatisch wieder in das Tabellenblatt zurückkehre, von wo ich den Button aktiviert habe?
Mein Code sieht folgendermaßen aus:
Sub FeiertageAnzeigen()
Worksheets("calculate").Activate
Dim a As String, b As String, C As String, _
d As String, e As String, F As String, _
g As String, h As String, i As String, _
j As String, k As String, l As String, _
m As String, n As String, o As String, _
p As String, q As String, r As String, _
s As String, t As String, u As String, _
v As String, w As String, x As String, _
y As String, Z As String, aa As String, _
ab As String, ac As String, ad As String, _
ae As String, af As String, ag As String, _
ah As String, ai As String, aj As String
a = Range("h16").Value '1
b = Range("I16").Value '2
C = Range("J16").Value '3
d = Range("h17").Value '4
e = Range("i17").Value '5
F = Range("j17").Value '6
g = Range("h18").Value '7
h = Range("i18").Value '8
i = Range("j18").Value '9
j = Range("h19").Value '10
k = Range("i19").Value '11
l = Range("j19").Value '12
m = Range("h20").Value '13
n = Range("i20").Value '14
o = Range("j20").Value '15
p = Range("h21").Value '16
q = Range("i21").Value '17
r = Range("j21").Value '18
s = Range("h22").Value '19
t = Range("i22").Value '20
u = Range("j22").Value '21
v = Range("h23").Value '22
w = Range("i23").Value '23
x = Range("j23").Value '24
y = Range("h24").Value '25
Z = Range("i24").Value '26
aa = Range("j24").Value '27
ab = Range("h25").Value '28
ac = Range("i25").Value '29
ad = Range("j25").Value '30
ae = Range("h26").Value '31
af = Range("i26").Value '32
ag = Range("j26").Value '33
ah = Range("h27").Value '34
ai = Range("i27").Value '35
aj = Range("j27").Value '36
MsgBox " " & a & " " & b & " " & C & Chr(13) _
& Chr(13) _
& " " & d & " " & e & " " & F & Chr(13) _
& " " & g & " " & h & " " & i & Chr(13) _
& " " & j & " " & k & " " & l & Chr(13) _
& " " & m & " " & n & " " & o & Chr(13) _
& " " & p & " " & q & " " & r & Chr(13) _
& " " & s & " " & t & " " & u & Chr(13) _
& " " & v & " " & w & " " & x & Chr(13) _
& " " & y & " " & Z & " " & aa & Chr(13) _
& " " & ab & " " & ac & " " & ad & Chr(13) _
& " " & ae & " " & af & " " & ag & Chr(13) _
& " " & ah & " " & ai & " " & aj & Chr(13), vbInformation, _
"Übersicht der gesetzlichen Feiertage in Berlin !"
' zurückkehren zum Blatt, hier ist das Problem!!!
End Sub
Hat jemand von Euch eine Idee, wo liegt mein evt. mein Fehler?
Vielen lieben Dank im Voraus!!
Gruß, Robert