Fundstelle markieren
31.01.2007 08:07:23
Gregor
Mit folgendem Makro suche ich in einem ausgeblendetem Blatt in Spalte A den Code 30 um anschliessend diese Zeileneinträge in einer UserForm abzubilden.
Der Befehl SuBe.Select funktioniert nur bei eingeblendetem Blatt, weshalb ich das Blatt dazu ein- und wieder ausblenden muss.
Gibt es eine andere Möglichkeit, die Zeile zu definieren?
Set SuBe = Sheets("Code").Range("A:A").Find("30", LookAt:=xlWhole)
If Not SuBe Is Nothing Then
With Worksheets("Code")
If .Visible = xlSheetVisible Then
.Visible = xlVeryHidden
Worksheets("Tabelle1").Select
Else
.Visible = xlSheetVisible
.Select
End If
End With
Worksheets("Code").Select
SuBe.Select
Zeile = ActiveCell.Row
Application.GoTo SuBe, True
With Worksheets("Code")
If .Visible = xlSheetVisible Then
.Visible = xlVeryHidden
Worksheets("Tabelle1").Select
Else
.Visible = xlSheetVisible
.Select
End If
End With
usrCode.Show
usw.
Vielen Dank und Gruss
Gregor