Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
860to864
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
860to864
860to864
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

860to864: Sortierbefehl über Button nur für bestimmtes Blatt

Sortierbefehl über Button nur für bestimmtes Blatt
05.04.2007 10:10:24
Andreas

Hallo Excelprofis!
Ich habe, Dank dieses super Forums, nachfolgenden Code zum Ausblenden bestimmter Zeilen. Da ich diesen Code über einen Commandbutton auf einer Userform ausführe, muß ich immer darauf achten, im richtigen Blatt zu arbeiten.
Wie muß ich den Code ändern, dass sich dieser nur auf das Blatt "Auswertung" bezieht.?


Private Sub CommandButton_BesucherTag1_Click()
Dim lZeile  As Long
Application.ScreenUpdating = False
'Columns("A:A").EntireColumn.Hidden = True
Rows("5:1001").EntireRow.Hidden = False
For lZeile = 5 To 1000
If Cells(lZeile, 29) = "" Then
Rows(lZeile).EntireRow.Hidden = True
End If
Next lZeile
Columns("B:AF").Select
Selection.Columns.AutoFit
Application.ScreenUpdating = True
Range("B1").Select
End Sub
Danke für die Hilfe!
mfg Andreas

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Sortierbefehl über Button nur für bestimmtes Blatt
05.04.2007 10:29:26
Kurt
Option Explicit

Private Sub CommandButton_BesucherTag1_Click()
Dim lZeile  As Long
Application.ScreenUpdating = False
With Sheets("Auswertung")
.Rows("5:1001").Hidden = False
For lZeile = 5 To 1000
If .Cells(lZeile, 29) = "" Then
.Rows(lZeile).Hidden = True
End If
Next
.Columns("B:AF").AutoFit
End With
Application.ScreenUpdating = True
End Sub
mfg Kurt
AW: Sortierbefehl über Button nur für bestimmtes Blatt
05.04.2007 10:29:29
Oberschlumpf
Hi Andreas
Versuch es mal so (ungetestet):

Private Sub CommandButton_BesucherTag1_Click()
Dim lZeile  As Long
Application.ScreenUpdating = False
With ThisWorkbook.Sheets("Auswertung")
'.Columns("A:A").EntireColumn.Hidden = True
.Rows("5:1001").EntireRow.Hidden = False
For lZeile = 5 To 1000
If .Cells(lZeile, 29) = "" Then
.Rows(lZeile).EntireRow.Hidden = True
End If
Next lZeile
.Columns("B:AF").Columns.AutoFit
End With
Application.ScreenUpdating = True
Range("B1").Select
End Sub
Konnte ich helfen?
Ciao
Thorsten
Anzeige
AW: Sortierbefehl über Button nur für bestimmtes Blatt
05.04.2007 10:30:03
Peter Feustel
Hallo Andreas,
versuche es einmal so:
Option Explicit

Private Sub CommandButton_BesucherTag1_Click()
Dim lZeile  As Long
With Worksheets("Auswertung")
Application.ScreenUpdating = False
'Columns("A:A").EntireColumn.Hidden = True
.Rows("5:1001").EntireRow.Hidden = False
For lZeile = 5 To 1000
If .Cells(lZeile, 29) = "" Then
.Rows(lZeile).EntireRow.Hidden = True
End If
Next lZeile
.Columns("B:AF").Columns.AutoFit
Application.ScreenUpdating = True
Range("B1").Select
End With
End Sub

Gruß Peter
AW: Danke für die Hilfe!!
05.04.2007 10:37:37
Andreas
Hallo!
Danke für die Hilfe, klappt super!
mfg, Andreas
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige