ausblenden
15.04.2002 08:58:09
Marian
Hi Leute,
habe kleines ein kleines Problem beim Ausblenden eines variablen Bereiches.Ich möchte eine Tabelle ab einem bestimmten Datum ausdrucken.Lasse das Datum per Inputbox erfragen.Wenn es gefunden wurde nehme ich die Spaltenzahl um den Bereich auszuwählen.Es funktioniert aber nur das Suchen und bemeckert wird die Zeile: "Range("2:spalte").select".Ach ja,Frage am Rande:Warum funktioniert beim Suchen nach Datum die Bedingung:"if Sdatum = "" Then..." nicht?Könnt ihr mir helfen?Private Sub CmdDruck_Click()
Dim SDatum As Date
Dim spalte As Variant
Application.ScreenUpdating = False
SDatum = InputBox("gesuchtes Datum:", , Date)
'If SDatum = "" Then
' MsgBox ("Falsche Eingabe!")
'Else
Worksheets("Brennbuch Ofen III , V").Select
Set fc = Worksheets("Brennbuch Ofen III , V").Columns("a").Find(what:=SDatum)
If fc Is Nothing Then
MsgBox ("Diese Auftragsnummer existiert nicht!")
Else
spalte = fc.Row
MsgBox spalte
Rows("2:spalte").Select
Selection.EntireRow.Hidden = xlVeryHidden
Unload Me
ActiveSheet.PrintPreview
selection.EntireRow.Hidden = True
Worksheets("Brennbuch Ofen III , V").Select
End If
'End if
Application.ScreenUpdating = True
End Sub
Danke für Eure Bemühungen!
Gruss Marian