Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: CommandButton mit Makro auf anderes Sheet

CommandButton mit Makro auf anderes Sheet
06.10.2006 21:17:31
Ineichen
Warum funktioniert folgendes Makro nicht?

Sub CommandButton1_Click()
Worksheets("HT_FuTa").Activate
ActiveSheet.Rows.Hidden = False
Dim iRowL As Integer, iRow As Integer
iRowL = Cells(Rows.Count, 12).End(xlUp).Row
For iRow = 1 To iRowL
If IsEmpty(Cells(iRow, 12)) Or Cells(iRow, 12).Value = 0 Then
Rows(iRow).Hidden = True
End If
Next iRow
End Sub

es sollten alle zeilen, welche in der spalte L kein leer/0 sind ausgeblendet werden. der CommandButton1 befindet sich nicht auf dem blatt "HT-FuTa".
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: CommandButton mit Makro auf anderes Sheet
06.10.2006 21:33:47
Peter
Hallo Ineichen,
so, ohne Activate, sollte es gehen:

Private Sub CommandButton1_Click()
Dim WkSh  As Worksheet
Dim iRowL As Integer
Dim iRow  As Integer
Set WkSh = Worksheets("HT_FuTa")
WkSh.Rows.Hidden = False
iRowL = WkSh.Cells(Rows.Count, 12).End(xlUp).Row
For iRow = 1 To iRowL
If IsEmpty(WkSh.Cells(iRow, 12)) Or WkSh.Cells(iRow, 12).Value = 0 Then
WkSh.Rows(iRow).EntireRow.Hidden = True
End If
Next iRow
End Sub

Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
Anzeige
AW: CommandButton mit Makro auf anderes Sheet
06.10.2006 21:39:53
Ineichen
du bist der beste... ;-)
danke
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige