Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1744to1748
1744to1748
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Mehrere Zellen ausblenden (VBA, klick)

Forumthread: Mehrere Zellen ausblenden (VBA, klick)

Mehrere Zellen ausblenden (VBA, klick)
06.03.2020 17:35:27
Sebastian
Liebe Forum-Mitglieder,
ich hätte folgende Frage.
Ich möchte einen Button in meiner Excel haben, der per Klick ganze Zellen ausblendet wenn die Spalten H UND I nicht leer sind.
Nun habe ich folgende VBA konstruiert jedoch wird mir immer wieder eine Fehlermeldung _
aufgezeitg:

Private Sub ToggleButton1_Click()
Columns("H:I").Select
If CBool(WorksheetFunction.CountA(.Cells)) Then
.SpecialCells(2).EntireRow.Hidden = Not .SpecialCells(2).EntireRow.Hidden
End If
End With
End Sub

Könnt ihr mir bitte sagen, wo der Fehler liegt?
(Fehlermeldung: Compile error: invalid or unqualified reference
Wie immer bin ich über Hinweise und Lösungen sehr dankbar.
Viele Grüße
Sebastian
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mehrere Zellen ausblenden (VBA, klick)
06.03.2020 17:42:30
Hajo_Zi
Hallo sebastian,
benutze Autofilter.

AW: Mehrere Zellen ausblenden (VBA, klick)
06.03.2020 17:43:01
Kuwer
Hallo Sebastian,
das End With hattest Du ja schon drin. ;-)
Private Sub ToggleButton1_Click()
With Columns("H:I")
If WorksheetFunction.CountA(.Cells) Then
.SpecialCells(2).EntireRow.Hidden = Not .SpecialCells(2).EntireRow.Hidden
End If
End With
End Sub
Gruß Uwe
Anzeige
AW: Mehrere Zellen ausblenden (VBA, klick)
06.03.2020 17:49:43
Sebastian
Hallo Uwe,
vielen Dank!!
Schönes Wochenende
Sebastian
AW: Mehrere Zellen ausblenden (VBA, klick)
07.03.2020 14:25:44
Niclaus
Hallo Uwe und Sebastian
Das klappt wunderbar. Ich habe dazu folgende Frage: Es sollen diejenigen Zeilen ausgeblendet werden, bei denen Spalte H oder Spalte I leer ist. Ich habe es so versucht:
Sub ausblenden3()
With Columns("H:I")
If WorksheetFunction.CountA(.Cells) Then
.SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = Not .SpecialCells(xlCellTypeBlanks). _
EntireRow.Hidden
End If
End With
End Sub
Dabei werden alle Zeilen ausgeblendet, ausser H und I sind nicht leer.
Bei SpecialCells(2) geht das doch auch: Wenn H oder I eine Konstante enthalten, wird die Zeile ausgeblendet. Wisst ihr, warum das bei SpecialCells(xlCellTypeBlanks) nur funktioniert, wenn H und I nicht leer sind?
Grüsse Niclaus
Anzeige
AW: Mehrere Zellen ausblenden (VBA, klick)
07.03.2020 16:07:51
Kuwer
Hallo Niclaus,
"Es sollen diejenigen Zeilen ausgeblendet werden, bei denen Spalte H oder Spalte I leer ist.
Dabei werden alle Zeilen ausgeblendet, ausser H und I sind nicht leer."
Dann passt es doch. :-)
Gruß Uwe
AW: Mehrere Zellen ausblenden (VBA, klick)
07.03.2020 18:20:01
Niclaus
Hallo Uwe
Ja, Du hast recht. Deutsche Sprache schwere Sprache - vor allem für einen Schweizer ;-) - Was ich wollte: Die Zeilen sollen nur dann ausgeblendet werden, wenn H und I leer sind. - Geht das überhaupt analog zu Deinem bzw. Sebastians Makro mit xlCellTypeBlanks? - Ganz unprofessionell und unelegant (CH-biedermännisch) mache ich es so:
Sub ausblenden4()
' gilt für Range("H1:I15")
For i = 1 To 15
If Cells(i, 8) = "" And Cells(i, 9) = "" Then
Rows(i).EntireRow.Hidden = Not Rows(i).EntireRow.Hidden
End If
Next i
End Sub
Gibt es dafür etwas eleganteres, professionelleres?
Grüsse aus Zürich Niclaus
Anzeige
AW: Mehrere Zellen ausblenden (VBA, klick)
07.03.2020 19:24:53
Kuwer
Hoi Niclaus,
das ginge z.B. auch so (ohne Bewertung der Eleganz und Professionalität ;-) ):
Sub EinAusblendenUK()
On Error Resume Next
With Range("H:I")
With Application.Intersect(.Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow, _
.Columns(2).SpecialCells(xlCellTypeBlanks).EntireRow).EntireRow
.Hidden = Not .Hidden
End With
End With
On Error GoTo 0
End Sub
Gruß aus Württemberg Uwe
Anzeige
AW: Mehrere Zellen ausblenden (VBA, klick)
10.03.2020 19:31:17
Niclaus
Hallo Uwe
Nur eine Bewertung dazu: super toll.
Herzlichen Dank und viele Grüsse
Niclaus
;

Forumthreads zu verwandten Themen

mehrere Zellen markieren verhindern
Dirk

Hallo miteinander,
brauche nochmals von Euch Hilfe, bitte.
Habe bei einer meiner Dateien eine Gültigkeitsprüfung (nur X zulassen) und vba trägt in einen Bereich beim reinklicken ein X ein, wenns schon drin ist wirds gelöscht, soweit kein Problem.
Problem: wenn man nun aus Versehen o...
03.09.2008 22:12:34
Thread-ID: 1007244
3 Beiträge
Mehrere Zellen gleichzeitig farblich markieren
KLAUS

Hallo!
Ich habe eine Tabelle in der von B9 bis V45 in jeder Zelle ein Namenskürzel steht, insgesamt 21 verschiedene.
Jetzt möchte ich alle Kürzel von einer Person, die aber an unterschiedlichen,d.h. nicht zusammenhängenden, Zellen stehen mit wenig Aufwand und Suchaktionen mit einem Arbe...
11.03.2009 12:29:52
Thread-ID: 1059068
7 Beiträge
Anzeige
Mehrere Zellenwerte auslesen und anzeigen
joni

Hi,
ich sollte mittels sverweis- bzw summenprodukt-Formel Textwerte aus verschiedenen Zellen auslesen die bestimmten kriterien entsprechen. Das klappt auch wenn die Antworten eindeutig sind bzw. es wird nur der erste gefundene Wert angezeigt. Ich brauche die Werte aber alle hintereinander a...
27.03.2009 14:08:36
Thread-ID: 1064622
4 Beiträge
Anzeige
VBA verschiedene Zellen auswählen und ausgeben
Roger

Hallo zusammen
Ich hab folgenden VBA Code um Daten von Excel in Word auszugeben, das funktioniert einwandfrei. Nun möchte ich den aber so abändern das er mir nur die Zellen M7, N24 und P7, Q24 und S7, T24 in Word ausgibt. Was muss ich da abändern?
Private Sub CommandButton1_Click() Dim...
23.07.2009 18:29:31
Thread-ID: 1090473
4 Beiträge
Ausgewählte Zellen in einer Zelle ausgeben
Neyer

Hallo
Gibt es eine Möglichkeit, die Inhalte einer individuell markierten Zellenauswahl in einer einzelnen Zelle, mit z.B. Semikolon getrennt darzustellen?
Um eine Antwort bin ich sehr danbkar.
Gruss
31.07.2009 13:58:16
Thread-ID: 1092754
7 Beiträge
VBA - Mehrere Ordner auswählen + Pfade speichern
Thomas

Hallo,
der Betreff sagt eigentlich schon alles:
ich möchte ein Dialogfenster öffnen, in dem man mehrere Ordner (nur die Ordner, nicht deren Inhalt) auswählen kann und dann deren Pfad in einem Array gespeichert haben.
Ich habe es schon mit "msoFileDialogFolderPicker" versucht, nur le...
08.10.2009 17:03:03
Thread-ID: 1108139
2 Beiträge
Werte aus einer Zelle in mehrere Zellen ausgeben
Stefan

Hallo Excelfans,
ich habe folgendes Problem. Ich habe eine riesige Menge an Daten jedoch sind, die Daten in einer Zelle.
Ich möchte Sie jedoch in einzelnen Zellen haben.
In jeder Zelle befinden sich Datum und Uhrzeit und 9 Werte. Es soll am Ende so aussehen, das Datum und Uhrzeit un...
19.01.2010 15:36:37
Thread-ID: 1131085
5 Beiträge
Formular aufrufen VBA über mehrere Zellen
andreas

Hallo zusammen,
habe eine Tabelle da will ich wenn eine Zelle von B20 - B500 selektiert ist das Formular "Werkzeuge" aufrufen.
Wie muss ich dafür den Code schreiben?
Danach sollte nach einlesen der Daten über das Formular, die Zelle "C?" in der selben Zeile angewählt werden, dazu m...
12.11.2010 12:17:18
Thread-ID: 1186487
3 Beiträge
Anzeige
Wie füllt man mehrere Zellen gleichzeitig aus?
Thomas

Hallo Forum,
ich möchte gerne einen Stundenzettel entwerfen, wo bestimmte Informationen durch ein Dropdown-Menü ausgewählt werden sollen.
In meiner Datei findet ihr 2 Lösungsansätze.
In der Tabelle1 habe ich über Steuerelemente in Spalte E die Möglichkeit die nachfolgenden Spalten F...
19.12.2010 14:13:23
Thread-ID: 1192080
5 Beiträge
mehrere Textboxen der Userform in Zellen ausgeben!
Lisa

Hallo Exceljaner
ich konnte meine Frage in der Recherche nicht beantworten und wende mich deshalb an Euch!
Wie erreiche ich es, das die Textboxen 1 und 2, meiner Userform1, ihren Wert in Tabelle1 Zellen A5:A6 ausgeben und anschliessend geleert werden.
hat jemenad eine Idee und kann...
12.09.2011 12:33:36
Thread-ID: 1229456
10 Beiträge
Anzeige
Mehrere Zellen aus einer Zeile übernehmen
Bernd

Guten Abend,
ich stehe vor einem Problem wo ich keine passende Lösung habe.
Gegeben ist eine Arbeitsmappe "Beispiel.xlsx" mit dem Tabellenblatt Abfrage und dem Tabellenblatt Datenbank. In der Datenbank sind einige Hundert Artikelnummern mit Merkmalen beschrieben erfasst. Im Beispiel sin...
22.09.2011 18:49:01
Thread-ID: 1231138
3 Beiträge
Automatisches Aufsplitten auf mehrere Zellen?
Thomas

Moin,
kann mir jemand sagen wie man das wieder hinbekommen.
In einer Zelle (A1) einer zugesandten Excel-Datei stehen 3 Zeilen Text (vermutlich!) mit ALT-RETURN angelegt, wenn man diese nun kopiert und nach B1 einfügt, dann splittet er die 3 Zeilen in B1 B2 B3 - AUTOMATISCH!
Kann mi...
21.06.2013 13:19:15
Thread-ID: 1318938
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige