Home Office-Hilfe.com - Wir lösen Ihr Problem mit Microsoft Excel, Word, Outlook, PowerPoint, Access gratis Forum Impressum
Einloggen, um private Nachrichten zu lesen
Login
Downloads

  Zeilen ausblenden bei Wertänderung in einer Zelle
Neues Thema eröffnenNeue Antwort erstellen Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe
Autor Nachricht
trottlbua
Besserwisser
Besserwisser


Anmeldedatum: 31.01.2007
Beiträge: 76
BeitragVerfasst am: 01.08.2008, 09:45 Nach oben
Guten Morgen!

Hab mir zwar schon einiges durchgelesen, hab's aber nicht kapiert wie ich Zeilen ausblende, wenn sich der Wert in einer Zelle verändert.

Also:
Zelle F2 ist als "Modellart" definiert (mit Einfügen-->Name)
die Zeilen 11 und 12 sind als "Abschlag_base" definiert

Mein Code-Versuch:
Code:
Private Sub Worksheet_Change(ByVal Target As Range)

If Range("Modellart").Value <> "Lauf" Then

Rows("Abschlag_base").EntireRow.Hidden = True
Else

Rows("Abschlag_base").EntireRow.Hidden = False
End If


End Sub


Außerdem kapiere ich nicht ganz wo das hineinmuss - ich hab in einem anderen Forum gelesen (gelesen - dort habe ich nichts gefragt Wink ) dass dies in ein Klassenmodul muss?!?!?

Danke schon mal für die Hilfe!

_________________
Mfg
Lucky

Arbeit: Office 2003, @home: Office 2007
Benutzer-Profile anzeigenPrivate Nachricht sendenWebsite dieses Benutzers besuchen
Lolli
Newbie
Newbie


Anmeldedatum: 28.07.2008
Beiträge: 15
Wohnort: BW
BeitragVerfasst am: 01.08.2008, 09:58 Nach oben
Code:
Private Sub Worksheet_Change(ByVal Target As Range)

If Cells(2, 6) <> "Lauf" Then

Rows("Abschlag_base:AbschlagBase").EntireRow.Hidden = True
Else

Rows("Abschlag_base").EntireRow.Hidden = False
End If
End Sub

So hab kurz umgeschrieben =)
Kannst du trotzdem zeigen wie du AbschlagBase definiert hast?
Kann mir nicht vorstellen wie du Zeile 11 und 12 in eine Variable zugewiesen hast^^ bin ja selber ein "Anfänger"

Falls es immer F2 bleibt, würd ich mit Cells arbeiten[so mach ich des]
Cells(Zeile,Spalte)[so funktioniert Cells, falls du es noch nicht kennst]
Der Code kommt einfach in das Worksheet rein.
Also ALT-F11 drücken und dann bsp. auf Tabelle1(Tabelle1) klicken und dann oben dort wo der Code reinkommt steht oben ja "Allgemein", da Worksheet anklicken und dann kommt automatisch "selectionchange" also wenn du ne andere Zeile anvisierst und jetzt halt statt "selectionchange" "change" auswählen und den Sub von "SelectionChange" kannst du löschen und jetzt nur den Code reinkopieren =)

_________________
Wenn eine Taube durch den Rauch fliegt,
behindert der Rauch die Taube oder verletzt die Taube den Rauch?
Benutzer-Profile anzeigenPrivate Nachricht senden
trottlbua
Besserwisser
Besserwisser


Anmeldedatum: 31.01.2007
Beiträge: 76
BeitragVerfasst am: 01.08.2008, 11:26 Nach oben
Servus!

Habs ein bischen umgeformt - funktioniert jetzt!

Wie ich die Zeilen benannt habe - einfach links die zwei Zeilen markieren --> einfügen--> Namen definieren und einen Namen eingeben Wink

Ein Problem noch:
In Zelle F2 wäre eigentlich eine Formel drin, die den Wert "Lauf", "Speicher" oder "pumpspeicher" ausgibt. Wenn ich die Formel drin lasse funktioniert es nicht, wenn ich den Wert mit der Hand hineinschreibe, dann funktionierts - irgendeine Idee?

Code sieht jetzt so aus:



Code:
Private Sub Worksheet_Change(ByVal Target As Range)

If Cells(2, 6) <> "Lauf" Then

Range("Abschlag_base").EntireRow.Hidden = True

Else
Range("Abschlag_base").EntireRow.Hidden = False

End If

End Sub

_________________
Mfg
Lucky

Arbeit: Office 2003, @home: Office 2007
Benutzer-Profile anzeigenPrivate Nachricht sendenWebsite dieses Benutzers besuchen
trottlbua
Besserwisser
Besserwisser


Anmeldedatum: 31.01.2007
Beiträge: 76
BeitragVerfasst am: 01.08.2008, 12:53 Nach oben
Habs schon - einfach Worksheet_activate verwenden

Endgültiger Code (vorher Namen definieren nicht vergessen!) - mit noch ein paar Zeilen die auszublenden sind:


Code:

Private Sub Worksheet_Activate()
If Cells(2, 6) <> "Lauf" Then
Range("Abschlag_base").EntireRow.Hidden = True

Else
Range("Abschlag_base").EntireRow.Hidden = False

End If
If Cells(2, 6) <> "Pumpspeicher" Then

Range("Pumpmenge").EntireRow.Hidden = True
Range("NSDL_ausblenden").EntireRow.Hidden = False

Else
Range("Pumpmenge").EntireRow.Hidden = False
Range("NSDL_ausblenden").EntireRow.Hidden = True

End If
End Sub

_________________
Mfg
Lucky

Arbeit: Office 2003, @home: Office 2007
Benutzer-Profile anzeigenPrivate Nachricht sendenWebsite dieses Benutzers besuchen
trottlbua
Besserwisser
Besserwisser


Anmeldedatum: 31.01.2007
Beiträge: 76
BeitragVerfasst am: 01.08.2008, 14:07 Nach oben
und noch erweitert:

Code:
Private Sub Worksheet_Activate()
'hier werden die nicht benötigten Zeilen im Modell bei Umschalten des Modelltyps aus- oder eingeblendet

If Range("Modellart") = "Pumpspeicher" Then
Range("Pumpmenge_ausblenden").EntireRow.Hidden = False
Range("Pumpmenge_ausblenden1").EntireRow.Hidden = False
Range("NSDL_ausblenden").EntireRow.Hidden = False
Range("NSDL_ausblenden1").EntireRow.Hidden = False
Range("Abschlag_base").EntireRow.Hidden = True
Range("Erl_Speicher").EntireRow.Hidden = False

Else
If Range("Modellart") = "Lauf" Then
Range("Abschlag_base").EntireRow.Hidden = False
Range("Pumpmenge_ausblenden").EntireRow.Hidden = True
Range("Pumpmenge_ausblenden1").EntireRow.Hidden = False
Range("NSDL_ausblenden").EntireRow.Hidden = True
Range("NSDL_ausblenden1").EntireRow.Hidden = True
Range("Erl_Speicher").EntireRow.Hidden = True

Else
If Range("Modellart") = "Speicher" Then
Range("Abschlag_base").EntireRow.Hidden = True
Range("Pumpmenge_ausblenden").EntireRow.Hidden = True
Range("Pumpmenge_ausblenden1").EntireRow.Hidden = True
Range("NSDL_ausblenden").EntireRow.Hidden = True
Range("NSDL_ausblenden1").EntireRow.Hidden = True
Range("Erl_Speicher").EntireRow.Hidden = False
Else
Range("Pumpmenge_ausblenden").EntireRow.Hidden = False
Range("NSDL_ausblenden").EntireRow.Hidden = False
Range("Pumpmenge_ausblenden").EntireRow.Hidden = False
Range("NSDL_ausblenden1").EntireRow.Hidden = False
Range("Abschlag_base").EntireRow.Hidden = False
Range("Erl_Speicher").EntireRow.Hidden = False

End If

End If

End If


Application.ScreenUpdating = True


End Sub


Danke für die Hilfe!

_________________
Mfg
Lucky

Arbeit: Office 2003, @home: Office 2007
Benutzer-Profile anzeigenPrivate Nachricht sendenWebsite dieses Benutzers besuchen
Beiträge der letzten Zeit anzeigen:      
Neues Thema eröffnenNeue Antwort erstellen Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe


Ähnliche Beiträge
Thema Autor Forum Antworten Verfasst am
Keine neuen Beiträge zwei Zeilen abwechselnd farbig Metzei Microsoft Excel Hilfe 3 29.08.2008, 11:15 Letzten Beitrag anzeigen
Keine neuen Beiträge Druck des Kommentars einer Zelle htumm Microsoft Excel Hilfe 2 28.08.2008, 14:04 Letzten Beitrag anzeigen
Keine neuen Beiträge Zelle löschen aber nicht die Formel Paraneuros Microsoft Excel Hilfe 1 27.08.2008, 15:18 Letzten Beitrag anzeigen
Keine neuen Beiträge Hilfe beim erstellen einer Importdatei dobby110 Microsoft Excel Hilfe 5 26.08.2008, 12:36 Letzten Beitrag anzeigen
Keine neuen Beiträge Drop down Menü fest in einer Zelle pontif Microsoft Excel Hilfe 1 25.08.2008, 13:25 Letzten Beitrag anzeigen


 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

Haftungsausschluss/Disclaimer


SMS kostenlos versenden | Battle-Dream | Tuning Forum | Join the YoungGeneration | krankenversicherungsvergleich | Kalorienarme Rezepte!
Versicherungsvergleich | Bürobedarf | Papier | Betten

Ranking-Hits



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