AW: Msg-Box mit Variable aus Tabelle
20.07.2007 10:28:41
Werner
Hallo Haijo,
danke für den Hinweis. Ich habe jetzt folgendes umgebaut:
Sub Meldung_Stichtag()
' MsgBox mit Anzeige des Stichtagdatums
' Makro am 20.07.2007 aufgezeichnet
Dim Text As String
With Sheets("Bevölkerungsmodell")
Range("db297").Select
Text = "Die Einwohnerdaten zum Stichtag " & .Range("db297") & " sind jetzt aktiviert" _
_
& Chr(13) _
& Chr(13) & "Ausgewähltes Gesamtgebiet: " & .Range("H7") _
& Chr(13) _
& Chr(13) & "Aktuelles Teilgebiet: " & .Range("H8") _
& Chr(13) _
& Chr(13) & "Möchten Sie ein anderes Teilgebiet auswählen?"
z = MsgBox(Text, vbYesNo, "Hildesheimer Planungsgruppe")
If z = vbYes Then
DialogSheets("Dia_BasisD").Show
Else
DialogSheets("Dia_BasisD_1").Show
End If
End With
End Sub
Die Anzeige der DialogSheets funktionieren allerdings so nicht, was wahrscheinlich daran liegt, dass dieses Makro aus dem aktiven DialogSheet "Dia_Basis_1" gestartet wird. Hast Du eine Idee?
Danke und Gruß
Werner