Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 08:41:23
Zwei Makros in ein Arbeitsblatt - zweite wird nicht ausführt
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1672to1676
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1672to1676
1672to1676
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

wenn dann versteckte zeilen sichtbar machen

wenn dann versteckte zeilen sichtbar machen
30.01.2019 21:04:05
Alex
Hallo,
ich habe eine kleine Aufgabe.
Auf einem Excelblatt habe ich Zeilen 5 bis 10 versteckt.
Nun möchte ich, falls ich in A1 "ja" eingebe, dass die Zeilen wieder sichtbar werden, bzw. sich ausklappen. Bei "nein" soll nichts passieren.
Wie kann das einfach gelöst werden? Vielen Dank.

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: wenn dann versteckte zeilen sichtbar machen
30.01.2019 21:15:10
onur 

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row  1 Or Target.Column  1 Then Exit Sub
If Target.Text = "ja" Then
Range("A5:A10").Rows.Hidden = False
Else
Range("A5:A10").Rows.Hidden = True
End If
End Sub

AW: wenn dann versteckte zeilen sichtbar machen
30.01.2019 21:25:05
Alex
Vielen Dank!
Ich kann es leider morgen erst ausprobieren!
Dumme Frage: Wo sehe ich im Makro die Referenz auf mein Eingabefeld A1?
AW: wenn dann versteckte zeilen sichtbar machen
30.01.2019 21:28:17
onur
MIT 
If Target.Row  1 Or Target.Column  1 Then Exit Sub

(Wenn Zeile oder Spalte NICHT 1 ist)
wird erreicht, dass das Makro bei jeder anderen Zelle sofort beendet wird.
Anzeige
AW: wenn dann versteckte zeilen sichtbar machen
30.01.2019 21:44:10
Alex
OK, müsste aber im Makro nicht irgendwo stehen if A1= "ja", than...
Sorry, wie gesagt,kann morgen erst ausprobieren.
AW: wenn dann versteckte zeilen sichtbar machen
30.01.2019 21:51:36
onur
"OK, müsste aber im Makro nicht irgendwo stehen if A1= "ja" - NEIN, muss es nicht.
Man kann entweder
Range("A1") schreiben oder Cells(1,1), wobei die erste 1 für Zeile und die zweite 1 für die Spalte steht.
Also erste Zeile in der ersten Spalte ist die Zelle "A1".
Da das Makro sowieso (wie bereits gesagt) bei jeder anderen Zelle ausser "A1" rausspringt, bleibt ja wohl nur A1 übrig - oder?
AW: wenn dann versteckte zeilen sichtbar machen
30.01.2019 21:49:43
Alex
Sorry, Du hast Recht! Vielen Dank nochmal!
AW: wenn dann versteckte zeilen sichtbar machen
31.01.2019 05:45:51
Werner
Hallo Alex,
oder so: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A1" Then
Rows("5:10").Hidden = Target  "ja"
End If
End Sub
Gruß Werner
Anzeige
oder so...
31.01.2019 05:59:02
Werner
Hallo Alex,
dann kannst du das "ja" schreiben wie du willst. Komplett klein, komplett groß oder gemischt. 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A1" Then
Rows("5:10").Hidden = UCase(Target)  "JA"
End If
End Sub
Gruß Werner
AW: oder so...
04.02.2019 12:52:54
Alex
Das gegenwärtige Makro reagiert auf eine Eingabe in Feld A1 (ja/nein) mit dem Einblenden bzw. Ausblenden der Zeilen 5-10.
Nun meine noch einfachere Frage, an welcher ich aber scheitere.
Auf selbigen Tabellenblatt soll auch Zeile 21/Spalte 4 ein Eingabefeld (ja/nein) sein
Mit der Folge, dass Zeile 22,23,24 ein- bzw. ausgeblendet werden
Wie kombiniere ich nun beide?
Das hier funktioniert nicht!
Sub Mak()
End Sub 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row  7 Or Target.Column  4 Then Exit Sub
If Target.Text = "yes" Then
Range("A10:A10").Rows.Hidden = False
Range("A8:A8").Rows.Hidden = False
Else
Range("A10:A10").Rows.Hidden = True
Range("A8:A8").Rows.Hidden = True
End If
End Sub


Private Sub Worksheet_Change1(ByVal Target As Range)
If Target.Row  21 Or Target.Column  4 Then Exit Sub
If Target.Text = "no" Then
Range("A22:A22").Rows.Hidden = False
Range("A23:A23").Rows.Hidden = False
Range("A24:A24").Rows.Hidden = False
Else
Range("A22:A22").Rows.Hidden = True
Range("A23:A23").Rows.Hidden = True
Range("A24:A24").Rows.Hidden = True
End If
End Sub
Vielen Dank!
Anzeige
AW: oder so...
05.02.2019 05:35:01
Werner
Hallo Alex,
so: 
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address(0, 0)
Case "A1"
Rows("5:10").Hidden = UCase(Target)  "JA"
Case "D21"
Rows("22:24").Hidden = UCase(Target)  "JA"
Case Else
End Select
End Sub
Gruß Werner

337 Forumthreads zu ähnlichen Themen

Löschen von Zeilen unter 1 Bedingung
Zeilen

Hallo,
ich habe in einer Excel Liste Produkte geführt, die den aktuellen Lagerbestand anzeigen.
Dort werden auch die Produkte aufgeführt, deren Produkte einen Lagerbestand von 0 haben.
Der Lagerbestand wird in Spalte B aufgeführt, die Produkte stehen in Spalte A. Der Datenbereich b...
08.08.2008 20:15:00
Thread-ID: 1000407
5 Beiträge
Anzeige
Formel immer nur in bestimmter Zelle
Katrin

Hallo Zusammen!
Folgendes Problem würde ich gerne lösen, weiß aber nicht wie :)
Ich habe in Spalte A in jeder Zeile Uhrzeiten stehen:
00:15:00
00:30:00
00:45:00
01:00:00
01:15:00
01:30:00
01:45:00
02:00:00
02:15:00
02:30:00
02:45:00
...
02.09.2008 10:30:00
Thread-ID: 1006672
3 Beiträge
Zeile ausblenden, wenn in einer Zelle ein bestimmt
Jakob

Hallo,
Ich habe folgendes Problem:
Ich möchte in den Tabellenblatt "Form3" die zeilen 39-50 ausblenden wenn die Zelle A37 ungleich "Pentax" und "Ciclox" ist. Der Wert der Zelle A37 kommt aus der Eingabe im Tabellenblatt "Eingabemaske" (B7).
Wie müßte der entsprechende VBA-Code ausse...
03.09.2008 17:24:21
Thread-ID: 1007176
6 Beiträge
Anzeige
Zeilen ausblenden wenn...
Andreas

Hi,
ich habe ein kleines Problem. Auf meinem Excel-Blatt sind von B4:B200 Datumswerte im Format TT.MM.JJJJ eingetragen. In der Zelle A1 gebe ich nun beispielsweise Januar ein. Ich will nun, dass alle Zeilen ausgeblendet werden, die nicht in der Spalte B ein Januar-Datum eingetragen haben. D...
04.09.2008 20:18:36
Thread-ID: 1007507
10 Beiträge
in einer Spaöte leere Zellen ausblenden
medion53

Hallo, vielleicht kann mir jemand helfen...
Ich habe eine Tabelle A, gefüllt mit Werten bzw Formeln, die Tabelle A verwende ich als Liste für Datengültigkeit. leider bekomme ich die Leerzellen nicht weg...habe gegoogelt und eine Formel gefunden.
http://www.excelformeln.de/formeln.html...
05.09.2008 10:40:00
Thread-ID: 1007607
7 Beiträge
bestimmte Zeilen per Makro ausblenden
Fritz_W

Hallo Forumsbesucher,
ich bitte die VBA-Kundigen unter euch um Hilfe.
Mit welchem Makro kann ich in einer geöffneten Tabelle alle Zeilen ausblenden, in denen in Spalte B ein Datumseintrag steht, der vor dem jeweils heutigen Tag liegt?
Vielen Dank für eure Hilfe
mfg
Fritz
05.09.2008 10:57:00
Thread-ID: 1007611
3 Beiträge
Formel in Zelle per VBA einfügen
Werner

Wie kann ich Statistikformeln (Mittelwert, Maximum, Minimum, Standardabweichung) per VBA in eine Zelle einfügen?
Der zu berechnende Bereich geht von "$J$1" bis "$J$n" wobei n mit ActiveCell.Row-2 zuvor berechnet wird.
Gruß Werner.
10.09.2008 14:17:46
Thread-ID: 1008801
5 Beiträge
Leere(nur Formel drin) Zellen in Diagramm
Volker

Hallo,
ich habe ein Problem und hoffe auf Eure Hilfe!
Ich habe mit Excel2007 (wahrscheinlich besteht das Problem auch in anderen Versionen) ein Diagramm erstellt. Es werden dabei 2 Datenreihen angezeigt. Soweit so gut...
Reihe 1 bildet sich aus 10 Werten, von denen der erste Teil vo...
25.09.2008 16:11:00
Thread-ID: 1012372
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
13
2
5
7
9
6
2
4
5
10
9
3
5
2
6
3
2
6
2
5
5
7
8
5