Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1080to1084
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
Inhaltsverzeichnis

bei Wert, Zeilen ausblenen

bei Wert, Zeilen ausblenen
Torsten
Hallo liebe Excel-Gemeinde,
ich brauch bitte ein VBA für folgendes Szenario:
Eine Produktliste ist über viel Spalten und Zellen verteilt. Die Produkte können über eine Drop-Down-Liste ausgewählt werden. Es gibt aber nur drei Produktgruppen (aber viele Produkte), d.h. es stehen in Spalte A nur die Zahlen 1, 2 oder 3! Es kann nur ein Produkt ausgewählt werden. Die Zeile 209 ist meine Ergebniszeile, wobei in der Zelle A209 meine gewählte Produktgruppe stehen soll. Wenn nun in Zelle A209 eine "1" steht, dann soll mein VBA in Zelle C212 eine "0" schreiben, zusätzlich sollen die Zeilen 211 und 212 ausgeblendet werden.
Vielleicht könnt ihr mir helfen, ich bin mit meinem Latein am Ende...
Grüße
Torsten

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

Betreff
Benutzer
Anzeige
AW: bei Wert, Zeilen ausblenen
23.06.2009 12:57:26
fcs
Hallo Torsten,
eines der beiden folgenden Makros sollte funktionieren.
Das 1. mit Sicherheit, das 2. möglicherweise nicht (weil in A209 eine Formel steht bzw. Drop-Down-Auswahl in Excel 97 nicht immer das Change-Ereignis der Zelle auslöst).
Die Prozeduren muss du im VBA-Editor unter der entsprechenden Tabelle einfügen.
Gruß
Franz

'Erstellt mit Excel 2003
Private Sub Worksheet_Calculate()
Application.EnableEvents = False
If Range("A209").Value = 1 Then
Range("A212").Value = 0
Range(Rows(211), Rows(212)).Hidden = True
Else
Range(Rows(211), Rows(212)).Hidden = False
End If
Application.EnableEvents = True
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address
Case "$A$209"
Application.EnableEvents = False
If Range("A209").Value = 1 Then
Range("A212").Value = 0
Range(Rows(211), Rows(212)).Hidden = True
Else
Range(Rows(211), Rows(212)).Hidden = False
End If
Application.EnableEvents = True
Case Else
'do nothing
End Select
End Sub


Anzeige
AW: bei Wert, Zeilen ausblenen
23.06.2009 15:24:39
Torsten
vielen, vielen dank...echt genial!!!
nur noch eine frage
'Erstellt mit Excel 2003
Private Sub Worksheet_Calculate()
Application.EnableEvents = False
If Range("A209").Value = 1 Then
Range("A212").Value = 0
bei der letzten zeile soll keine null kommen...hier soll man einen beliebigen wert eintragen können
Danke nochmals
AW: bei Wert, Zeilen ausblenen
23.06.2009 15:30:52
Torsten
gut...hat sich gerade erledigt!
Danke nochmals...hast mir echt geholfen!!!
grüße torsten

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige