Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1216to1220
1216to1220
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen ausblenden Typenunverträglich

Forumthread: Zeilen ausblenden Typenunverträglich

Zeilen ausblenden Typenunverträglich
Kai
Hallo,
ich bekomme immer einen Fehler und frage mich warum, es wäre toll wenn mir jemand sagen könnte, was ich ändern muss.
Mein Ziel ist es, das wenn Zelle G4 in Datenblatt2 = 0 ist die Zeilen 4:40 ausgeblendet werden.
Für G4=1 soll Zeile 4 eingeblendet werden. Für G4=2 sollen Zeile 4:5 eingeblendet werden usw.
Mein Versuch ist gescheitert, da Typenunverträglich. 
     Dim intA As Integer
intA = Sheets("2").Cells(7, 4)
With Sheets("2")
If Sheets("2").Cells(7, 4) = 0 Then
.Rows("4:40").Hidden = True
Else
.Rows("4:" & intT + 4).Hidden = False
If intA
Vielen Dank und viele Grüße
Kai
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: mit case
21.06.2011 02:08:21
hary
hallo Kai
teste mal mit Case. 

With Sheets("2")
Select Case .Cells(4, 7).Value
Case 0
.Rows("5:40").Hidden = True
Case 1
.Rows("5").Hidden = False
Case 2
.Rows("5:6").Hidden = False
Case 3
.Rows("5:7").Hidden = False
Case Else
End Select
End With

gruss hary
Anzeige
AW: besser so
21.06.2011 02:32:31
hary
hallo
Schon ein weinig spaet/frueh. Hab's nochmal durchgelesen muesste jetzt passen. 

Dim i As Long
With Sheets("2")
i = .Cells(4, 7).Value
Select Case i
Case 0
.Rows("4:40").Hidden = True
Case Else
.Rows("4:" & (3 + i)).Hidden = False
End Select
End With

gruss hary
Anzeige
AW: besser so
21.06.2011 08:38:33
Kai
Vielen Dank! Hat klasse funktioniert!
Viele Grüße
Kai
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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