Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1796to1800
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
1796to1800
1796to1800
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Private Sub Worksheet_Change bei Formeln

Private Sub Worksheet_Change bei Formeln
09.12.2020 12:48:10
Thierry
Hallo
Ich habe fast keine VBA Kenntnisse. Dennoch habe ich folgenden Code gefunden und kopiert.
Dieser funktioniert auch einwandfrei, wenn ich die Daten manuell in Zelle A2 eingebe und mit Enter bestätige.
Das Problem besteht darin, dass in Zelle A2 eine Formal (=Tabelle1!B2) ist. Es scheint, dass der VBA-Code die Änderungen in Telle A2 nicht merkt.
Was muss geändert werden, damit die Zelle bzw. die Formal die Änderungen erkennt.
Vielen Dank für Eure Hilfe
Thierry

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A2" Then
Select Case Target.Value
Case "Gennaio"
Rows.EntireRow.Hidden = False
Rows("10:52").EntireRow.Hidden = True
Case "Febbraio"
Rows.EntireRow.Hidden = False
Rows("14:52").EntireRow.Hidden = True
Case "Marzo"
Rows.EntireRow.Hidden = False
Rows("18:52").EntireRow.Hidden = True
Case "Aprile"
Rows.EntireRow.Hidden = False
Rows("22:52").EntireRow.Hidden = True
Case "Maggio"
Rows.EntireRow.Hidden = False
Rows("26:52").EntireRow.Hidden = True
Case "Giugno"
Rows.EntireRow.Hidden = False
Rows("30:52").EntireRow.Hidden = True
Case "Luglio"
Rows.EntireRow.Hidden = False
Rows("34:52").EntireRow.Hidden = True
Case "Agosto"
Rows.EntireRow.Hidden = False
Rows("38:52").EntireRow.Hidden = True
Case "Settembre"
Rows.EntireRow.Hidden = False
Rows("42:52").EntireRow.Hidden = True
Case "Ottobre"
Rows.EntireRow.Hidden = False
Rows("46:52").EntireRow.Hidden = True
Case "Novembre"
Rows.EntireRow.Hidden = False
Rows("50:52").EntireRow.Hidden = True
Case Else
Rows.EntireRow.Hidden = False
End Select
End If
End Sub

14
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Private Sub Worksheet_Change bei Formeln
09.12.2020 13:12:58
Nepumuk
Hallo Thierry,
gibst du den Wert in Tabelle1 B2 manuell ein? Wenn ja, dann setzt das Makro in dessen Modul und verweise so auf die andere Tabelle:
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) = "B2" Then
        With Worksheets("Tabelle2") ' Anpassen !!!
            Select Case Target.Value
                Case "Gennaio"
                    .Rows.EntireRow.Hidden = False
                    .Rows("10:52").EntireRow.Hidden = True
                Case "Febbraio"
                    .Rows.EntireRow.Hidden = False
                    .Rows("14:52").EntireRow.Hidden = True
                Case "Marzo"
                    .Rows.EntireRow.Hidden = False
                    .Rows("18:52").EntireRow.Hidden = True
                Case "Aprile"
                    .Rows.EntireRow.Hidden = False
                    .Rows("22:52").EntireRow.Hidden = True
                Case "Maggio"
                    .Rows.EntireRow.Hidden = False
                    .Rows("26:52").EntireRow.Hidden = True
                Case "Giugno"
                    .Rows.EntireRow.Hidden = False
                    .Rows("30:52").EntireRow.Hidden = True
                Case "Luglio"
                    .Rows.EntireRow.Hidden = False
                    .Rows("34:52").EntireRow.Hidden = True
                Case "Agosto"
                    .Rows.EntireRow.Hidden = False
                    .Rows("38:52").EntireRow.Hidden = True
                Case "Settembre"
                    .Rows.EntireRow.Hidden = False
                    .Rows("42:52").EntireRow.Hidden = True
                Case "Ottobre"
                    .Rows.EntireRow.Hidden = False
                    .Rows("46:52").EntireRow.Hidden = True
                Case "Novembre"
                    .Rows.EntireRow.Hidden = False
                    .Rows("50:52").EntireRow.Hidden = True
                Case Else
                    .Rows.EntireRow.Hidden = False
            End Select
        End With
    End If
End Sub

Gruß
Nepumuk
Anzeige
sorry..
09.12.2020 13:18:42
Werner
Hallo,
..keine Ahnung warum deine Antwort bei mir noch nicht angezeigt wurde.
Gruß Werner
AW: sorry..
09.12.2020 13:23:12
Nepumuk
Hallo Werner,
ist doch egal. Dafür musst du dich nicht entschuldigen.
Gruß
Nepumuk
AW: Private Sub Worksheet_Change bei Formeln
09.12.2020 13:21:37
Nepumuk
Hallo Thierry,
ich nochmal. Rows + EntireRow ist doppelt gemoppelt. Das genügt:
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) = "B2" Then
        With Worksheets("Tabelle2") ' Anpassen !!!
            Select Case Target.Value
                Case "Gennaio"
                    .Rows.Hidden = False
                    .Rows("10:52").Hidden = True
                Case "Febbraio"
                    .Rows.Hidden = False
                    .Rows("14:52").Hidden = True
                Case "Marzo"
                    .Rows.Hidden = False
                    .Rows("18:52").Hidden = True
                Case "Aprile"
                    .Rows.Hidden = False
                    .Rows("22:52").Hidden = True
                Case "Maggio"
                    .Rows.Hidden = False
                    .Rows("26:52").Hidden = True
                Case "Giugno"
                    .Rows.Hidden = False
                    .Rows("30:52").Hidden = True
                Case "Luglio"
                    .Rows.Hidden = False
                    .Rows("34:52").Hidden = True
                Case "Agosto"
                    .Rows.Hidden = False
                    .Rows("38:52").Hidden = True
                Case "Settembre"
                    .Rows.Hidden = False
                    .Rows("42:52").Hidden = True
                Case "Ottobre"
                    .Rows.Hidden = False
                    .Rows("46:52").Hidden = True
                Case "Novembre"
                    .Rows.Hidden = False
                    .Rows("50:52").Hidden = True
                Case Else
                    .Rows.Hidden = False
            End Select
        End With
    End If
End Sub

Gruß
Nepumuk
Anzeige
AW: Private Sub Worksheet_Change bei Formeln
09.12.2020 13:44:06
Thierry
Hallo Nepumuk, vielen vielen Dank für die Lösung.
Ich habe noch eine zusätzliche Frage: Wie sieht der Code aus, wenn mehrere Tabellenblätter geändert werden müssen (Tabelle10, Tabelle11, Tabelle12)
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "B2" Then
With Worksheets("Tabelle10")
Gruss. Thierry
AW: Private Sub Worksheet_Change bei Formeln
09.12.2020 13:47:18
Nepumuk
Hallo Thierry,
soll in allen diesen Tabellen das ausblenden nach dem selben Muster stattfinden?
Gruß
Nepumuk
AW: Private Sub Worksheet_Change bei Formeln
09.12.2020 13:49:55
Thierry
Ja, genau.
AW: Private Sub Worksheet_Change bei Formeln
09.12.2020 13:54:07
Nepumuk
Hallo Thierry,
dann so:
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim vntWorksheet As Variant
    If Target.Address(0, 0) = "B2" Then
        For Each vntWorksheet In Array("Tabelle2", "Tabelle3", "Tabelle4") ' Anpassen !!!
            With Worksheets(vntWorksheet)
                Select Case Target.Value
                    Case "Gennaio"
                        .Rows.Hidden = False
                        .Rows("10:52").Hidden = True
                    Case "Febbraio"
                        .Rows.Hidden = False
                        .Rows("14:52").Hidden = True
                    Case "Marzo"
                        .Rows.Hidden = False
                        .Rows("18:52").Hidden = True
                    Case "Aprile"
                        .Rows.Hidden = False
                        .Rows("22:52").Hidden = True
                    Case "Maggio"
                        .Rows.Hidden = False
                        .Rows("26:52").Hidden = True
                    Case "Giugno"
                        .Rows.Hidden = False
                        .Rows("30:52").Hidden = True
                    Case "Luglio"
                        .Rows.Hidden = False
                        .Rows("34:52").Hidden = True
                    Case "Agosto"
                        .Rows.Hidden = False
                        .Rows("38:52").Hidden = True
                    Case "Settembre"
                        .Rows.Hidden = False
                        .Rows("42:52").Hidden = True
                    Case "Ottobre"
                        .Rows.Hidden = False
                        .Rows("46:52").Hidden = True
                    Case "Novembre"
                        .Rows.Hidden = False
                        .Rows("50:52").Hidden = True
                    Case Else
                        .Rows.Hidden = False
                End Select
            End With
        Next
    End If
End Sub

Gruß
Nepumuk
Anzeige
AW: Private Sub Worksheet_Change bei Formeln
09.12.2020 13:50:33
onur
Hi,
Ich finde es ja toll von Dir, dass du dich bei EINEM bedankst, wenn MEHRERE Leute sich die Arbeit gemacht haben, dir zu helfen.
AW: Private Sub Worksheet_Change bei Formeln
09.12.2020 14:17:05
Thierry
Hallo Onur
VBA ist für mich eine Fremdsprache, sei mir bitte daher nicht böse, wenn ich mich auf eine Lösung konzentriert habe. Mein Dank gilt auch Dir und allen anderen. Thierry
AW: Private Sub Worksheet_Change bei Formeln
09.12.2020 14:23:21
onur
"VBA ist für mich eine Fremdsprache" - ja klar, daran wird es wohl liegen.
AW: Private Sub Worksheet_Change bei Formeln
09.12.2020 13:17:08
Werner
Hallo,
Ich habe fast keine VBA Kenntnisse
Warum dann Status VBA gut?
In dem Fall würde ich die Eingabe in Zelle B2 in Tabelle1 überwachen.
Den Code also ins Codemodul von Tabelle1 
Private Sub Worksheet_Change(ByVal Target As Range)
With Worksheets("Tabelle2")
If Target.Address(0, 0) = "B2" Then
Select Case Target.Value
Case "Gennaio"
.Rows.EntireRow.Hidden = False
.Rows("10:52").EntireRow.Hidden = True
Case "Febbraio"
.Rows.EntireRow.Hidden = False
.Rows("14:52").EntireRow.Hidden = True
Case "Marzo"
.Rows.EntireRow.Hidden = False
.Rows("18:52").EntireRow.Hidden = True
Case "Aprile"
.Rows.EntireRow.Hidden = False
.Rows("22:52").EntireRow.Hidden = True
Case "Maggio"
.Rows.EntireRow.Hidden = False
.Rows("26:52").EntireRow.Hidden = True
Case "Giugno"
.Rows.EntireRow.Hidden = False
.Rows("30:52").EntireRow.Hidden = True
Case "Luglio"
.Rows.EntireRow.Hidden = False
.Rows("34:52").EntireRow.Hidden = True
Case "Agosto"
.Rows.EntireRow.Hidden = False
.Rows("38:52").EntireRow.Hidden = True
Case "Settembre"
.Rows.EntireRow.Hidden = False
.Rows("42:52").EntireRow.Hidden = True
Case "Ottobre"
.Rows.EntireRow.Hidden = False
.Rows("46:52").EntireRow.Hidden = True
Case "Novembre"
.Rows.EntireRow.Hidden = False
.Rows("50:52").EntireRow.Hidden = True
Case Else
.Rows.EntireRow.Hidden = False
End Select
End If
End With
End Sub
Worksheet_Change reagiert nur auf händische Eingabe und nicht auf Änderungen durch Formeln.
Für Änderungen in Formeln gibt es das Worksheet_Calculate Ereignis. Dort gibt es allerdings kein Target. Du kannst also nicht konkret eine bestimmte Zelle auf Formeländerung überwachen. Das Ereignis löst bei jeder Formelberechnung irgendwo auf dem Blatt aus.
Gruß Werner
Anzeige
AW: Private Sub Worksheet_Change bei Formeln
09.12.2020 13:46:16
Thierry
Hallo Werner, bei den Kenntnissen habe ich mich vertippt! Sorry

301 Forumthreads zu ähnlichen Themen

Private Sub Worksheet_Change
Gordon

Moin,
ich habe folgenden Code:
Sub Anzahl_Klassen() Dim anzKl As Integer anzKl = Worksheets("Tabelle1").Cells(1, 2).Value With Worksheets("Tabelle1") If anzKl = 0 Then .Rows("5:102").RowHeight = 0 Else: .Rows("5:" & anzKl * 11 + 3).RowHeight = 12.75 .Rows(anzKl * 11 + 5 & ":10...
19.11.2008 10:35:41
Thread-ID: 1025907
5 Beiträge
Anzeige
Worksheet_Change(ByVal Target As Range)
Axel


Hallo Könner,
mal wieder an einem Punkt angekommen, wo ich echt nicht weiß, ob die PCs was Magisches können.
Das Makro unten ist prima gelaufen. Und dann mal wieder nicht. Jetzt gerade mal wieder nicht, daher mein Hilferuf. Als mir das das erste Mal passiert ist, habe ich den ganze...
13.03.2009 12:08:19
Thread-ID: 1059821
5 Beiträge
Private Sub Worksheet_Change kurz deaktivieren
Karsten

Hallo,
innerhalb der Befehle unter:
Private Sub Worksheet_BeforerightClick(ByVal Target As Range, Cancel As Boolean)
wird
Private Sub Worksheet_Change(ByVal Target As Range)
aufgerufen. Ich möchte dies aber für den einen Durchlauf verhindern. Kann mir jemand weiterhelfen,...
05.04.2009 19:12:12
Thread-ID: 1066944
7 Beiträge
Anzeige
Private Sub Worksheet_Change
Larissa

Hallo VBA-Künstler,
Ich habe in meiner Excelmappe schon ein längeres
Private Sub Worksheet_Change(ByVal Target As Range)
auf dem ersten Tabellenblatt eingebaut.
Bisher habe ich es nur so hinbekommen, dass die direkte Spalte angesprochen wird, in der man gerade etwas einträgt.
05.10.2009 19:39:36
Thread-ID: 1107325
18 Beiträge
Private Sub Worksheet_Change(ByVal Target As Range
ing.grohn

Hallo Forum,
Worksheet_Change ist eine wunderbare Sache! (wenn sie funktioniert)
Also:
ich arbeite in einem Blatt mit: Private Sub Worksheet_Change(ByVal Target As Range)
funktioniert alles super. Nur manchmal tut das nicht!!!!
Excel beenden, neu starten, alles klar und funk...
17.06.2010 09:43:52
Thread-ID: 1162378
11 Beiträge
Private Sub Worksheet_Change in Modul auslagern
Claudia

Hallo zusammen,
möchte folgenden Code aus Private Sub Worksheet_Change(ByVal Target As Range) in ein Modul auslagern. Soll heissen: unabhä _ _ ngig von einer Eingabe wie dargestellt soll ein Makro hingehen und prüfen, ob aufgrund der _ Werte im genannten I-Bereich noch Änderungen / Ergän...
12.09.2010 21:11:38
Thread-ID: 1177131
3 Beiträge
Private Sub Worksheet_Change
Claudia

Hallo zusammen,
brauche noch einmal Eure Hilfe! Ich nutze folgenden Code.
Wie müsste ich den Code ändern, wenn die Änderungen nicht in dem aktiven Blatt sondern im Reiter mit dem Namen "Test" der gleichen Datei erfolgen müsste. Geht das übergreifend?
Vielen DAnk!
LG
Claudia<...
19.12.2010 18:39:40
Thread-ID: 1192114
9 Beiträge
Problem mit Private Sub Worksheet_Change(ByVal Tar
Hans

Hallo, ich habe folgendes Problem,
Ich habe im Datenblatt ein PrivateSub Worksheet_Change .. wodurch 4 Formeln in die Zellen C5, D5 .. eingetragen.
Man gibt in Zelle B5 eine Ersatzteilnummer ein, dann werden in den folgenden 4 Zellen Bezeichnung, Preis und so weiter aus der Tabelle Pre...
06.01.2011 06:38:20
Thread-ID: 1194082
2 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
6
4
6
3
17
10
2
8
1
2
2
2
3
10
2
3
3
1
6
13
2
2
1
9