MSGBox abfrage mit "
11.07.2006 17:52:57
Heinz
ich brauche in meiner Datei noch ein Makro.
Ich habe eine Tabelle mit verschiedenen Daten die in 3 verschiedenen Versionen
per Makro dargestellt (und gleichzeitig ausgedruckt)werden kann.
Bisher wurde nach dem Makrostart die Tabelle nach bestimmten Kriterien sortiert, gedruckt und wieder in den Originalzustand zurücksortiert.
Nun möchte ich aber die Möglichkeit haben nicht nur auszudrucken sondern
entweder ausdrucken wie bisher oder aber.... das ganze nur ansehen können (incl. scrollen). Dabei muss aber gewährleistet sein das die Tabelle vor dem weiteren
füllen oder speichern, also Veränderungen wieder in den Originalzustand sortiert wird. Bzw. eni speichern im nichtoriginalen Zustand verhindert wird.
Die Daten werden mittels Userbox eingelesen und dann über folgendes Makro übergeben:
Private Sub cmdOK_Click()
'Datum übernehmen und nicht benötigte Bereiche ausblenden
Application.ScreenUpdating = False
Worksheets("Daten").Activate
ActiveSheet.Unprotect Password:="xxxxxx"
Sheets("Daten").Range("z1") = CDate(ListBox1.Value) 'Anfangsdatum ablegen
If Sheets("Daten").Range("z2") = "" Then Sheets("Daten").Range("z2") = Sheets("Daten").Range("z1")
Sheets("Daten").Range("z2") = CDate(ListBox2.Value) 'Endedatum ablegen
ActiveSheet.Protect Password:="xxxxxx"
Application.ScreenUpdating = True
ausblenden 'hier werden über Zellenformeln Zeilen ausgeblendet
Sortieren_1 'hier wird der Rest sortiert
drucken 'hier werden alle nicht leeren Zeilen gedruckt
Sort_Original 'blendet alles wieder ein und sortiert in die Ursprungsreihenfolge
Unload Me
End
End Sub
Das funzt prima, hier noch mal der Dank an all die netten Helfer.
Aber wie kann ich hier die benötigte Verzweigung einbauen?
Eine Abfrage über MSG-Box hab ich schon mal eingebaut, was auch geht, aber wie kann ich gewährleisten das nach dem ansehen gezielt wieder der Originalzustand hergestellt werden kann?
In Archiv hab ich da nix leider gefunden.
Gruß Heinz