Zeilen automatisch ausblenden. :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

[Excel 2003] Zeilen automatisch ausblenden.

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Autor

Nachricht

tatjana89
Newbie
Newbie

Anmeldedatum: 25.07.2006
Beiträge: 22

Verfasst am: 04.07.2008, 10:20

Hallo,

ich hätte ein Frage zu Excel (VBA). Ich würde gerne in einem Tabellenblatt ein Funktion einbauen, bei der ich in eine Zelle (Beispielsweise Zelle A1) eine Zahl zwischen 1 und 4 eingeben kann und in abhängigkeit der Zahl dann bestimmte Zeilen automatisch (ohne erst auf Makro ausführen gehen zu müssen, direkt nach Eingabe von "Enter") ausgebelndet werden. Beispielsweise: Eingabe Zahl 1 -> Ausblenden der Zeilen 5-15; Eingabe der Zahl 2 -> Ausblenden der Zeilen 5-10;
Wenn keine Zahl zwischen 1 und 4 oder Text eingegeben wird, dann soll eine Fehlermeldung erscheinen.
Ich habe schon ein bisschen mit VBA rumgespielt und versucht es umzusetzen, aber muss leider zugeben, dass ich als absoluter VBA-Neuling leider keine Ahnung davon habe und es auch nicht geschafft habe. Sad

Wenn ihr mir da weiterhelfen könntet, wäre ich euch sehr sehr dankbar... Smile

Liebe Grüße
Tatjana Smile

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5715

Verfasst am: 04.07.2008, 11:14

Hallo!

Packe diesen Code in das Modul des Tabellenblatts:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Rows.Hidden = False
Select Case Target
Case 1
Rows("5:10").Hidden = True
Case 2
Rows("5:15").Hidden = True
Case 3
Rows("5:20").Hidden = True
Case 4
Rows("5:25").Hidden = True
Case Else
MsgBox "Dies ist keine Zahl von 1 bis 4"
End Select
End If
End Sub

_________________

Viele Grüße vom Schatzi
------------------------
Ich bin nur noch sporadisch erreichbar!
Bitte hofft nicht auf eine schnelle Beantwortung einer Rückfrage meinerseits!
Jeder andere Helfer darf Rückfragen gerne übernehmen!

gook
Schlauberger

Anmeldedatum: 25.11.2007
Beiträge: 435
Wohnort: Fridingen an der Donau

Verfasst am: 04.07.2008, 11:19

Hallo,

hier auch noch ein Bsp.

Gruß

spalten.xls

Beschreibung:

Download

Dateiname:

spalten.xls

Dateigröße:

23.5 KB

Heruntergeladen:

25 mal

tatjana89
Newbie
Newbie

Anmeldedatum: 25.07.2006
Beiträge: 22

Verfasst am: 05.07.2008, 16:05

Hallo Schatzi, Smile

Vielen Vielen Dank! Du hast mir sehr geholfen. Du bist wirklich ein echtes Schatzi!!!!!

Liebe Grüße

Tatjana

Randy7
Newbie
Newbie

Anmeldedatum: 21.06.2008
Beiträge: 34

Verfasst am: 07.07.2008, 11:12

Hallo,
das mit dem Ausblenden ist ja ne super Sache. Würde das Ganze auch funktionieren folgendermaßen funtionieren:

A1 = 1
Zeilen 2,3,4 ausblenden

A2 = 1
Zeilen 1,3,4 ausblenden

A3 = 1
Zeilen 1,2,4 ausblenden

A4 = 1
Zeilen 1,2,3 ausblenden

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5715

Verfasst am: 07.07.2008, 11:19

Hallo!

Ja auch das geht:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("A1:A4"), Target) Is Nothing Then
Dim i As Integer
For i = 1 To 4
If Cells(i, 1) = 1 Then Rows(i).Hidden = True
Next i
End If
End Sub

Randy7
Newbie
Newbie

Anmeldedatum: 21.06.2008
Beiträge: 34

Verfasst am: 07.07.2008, 12:00

Hmm, jetzt werden aber diue Zeilen ausgeblendet die mit "1" markiert sind, es sollten aber die übrigen ausgeblendent sein, lässt sich doch sicher umkehren, oder??
Hab mal ne Tabelle angehängt wo man deutlicher erkennen kann was ich eigentlich vorhab. Es soll unter jeder Hauptgruppe (interne Bauteile, Externe Bauteile und Werkzeuge intern) immer nur je eine spalte ausgewählt werden können, die nicht ausgewählen in der jeweiligen Untergruppe sollen dan nausgeblendet werden.
Geht sowas??

Mappe01.xls

Beschreibung:

Download

Dateiname:

Mappe01.xls

Dateigröße:

19 KB

Heruntergeladen:

9 mal

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5715

Verfasst am: 07.07.2008, 12:03

Hallo!

Wenn's umgekehrt sein soll, dann

If Cells(i, 1) <> 1 Then Rows(i).Hidden = True

Randy7
Newbie
Newbie

Anmeldedatum: 21.06.2008
Beiträge: 34

Verfasst am: 07.07.2008, 12:50

Danke für die Mühe, jetzt bleiben die Zellen ausgeblendet auch wenn die 1 wieder raus ist. Bekommen das dann auch nicht auf die anderen Gruppierungen übertragen. Naja, schade ist wahrscheinlich nicht so die geeignete Funktion für nen VBA nichtsblicker!
Gruß

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5715

Verfasst am: 07.07.2008, 12:54

Hallo!

Hidden = True
blendet die Zeilen aus

Hidden = False
blendet die Zeilen ein

Code:

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	Zeilen, inkl. Checkboxen / Optionsfel...	Pommes	Microsoft Excel Hilfe	2	06.10.2008, 14:06
	Tabellenwerte verknüpfen - viele Zeilen	igaz	Microsoft Excel Hilfe	4	06.10.2008, 09:34
	#WERT! ausblenden	Natascha303	Microsoft Excel Hilfe	2	04.10.2008, 13:54
	Datum nach Eingabe automatisch in Zel...	RalfMoeller	Microsoft Excel Hilfe	4	27.09.2008, 12:45
	Pfeil bei Rückkehr auf Hauptseite aut...	lanja	Microsoft PowerPoint Hilfe	0	26.09.2008, 10:22

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de