Zelle mit Sverweis füllen.

Forumthread: Zelle mit Sverweis füllen.
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Zelle mit Sverweis füllen.

24.11.2024 12:58:06

Bayersepper

Guten Tag,
Ich komme an diesen Punkt nicht weiter, vielleicht kann mir jemand aus dem Forum helfen?
Über VBA blende ich Reihen aus/ein - klappt prima solange ich den Text in Zelle C3 "AAA" od. "BBB" von Hand eingebe.
Nun möchte ich aber diese Zelle C3 mit der Sverweis-Funktion füllen dann wird der Text nicht erkannt bzw. übernommen.
Der Sverweis an sich klappt auch prima.
Was kann ich da tun?
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C3")) Is Nothing Then
Cells.EntireRow.Hidden = False
If Range("C3").Value = "AAA" Then
Rows("66:102").EntireRow.Hidden = True
ElseIf Range("C3").Value = "BBB" Then
Rows("41:65").EntireRow.Hidden = True
End If
End If
End Sub

Danke im voraus und noch einen schönen Sonntag

Bayersepper

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zelle mit Sverweis füllen.

24.11.2024 13:05:36

RPP63
AW: Zelle mit Sverweis füllen.

25.11.2024 15:35:07

GerdL

AW: Zelle mit Sverweis füllen.

24.11.2024 13:05:36

RPP63

Moin!
Wenn in C3 eine Formel steht, löst eine Neuberechnung kein Change-Ereignis aus!
Du musst dann den Suchwert des SVERWEIS() überwachen.

Gruß Ralf

AW: Zelle mit Sverweis füllen.

25.11.2024 15:35:07

GerdL

Guten Tag Sepp,

du könntest die andere Eventprozedur nehmen.

Private Sub Worksheet_Calculate()

    

    Dim lngCalc As Long

    

    

    With Application

        lngCalc = .Calculation

        .Calculation = xlCalculationManual

        .EnableEvents = False

        Select Case Range("C3").Value

            Case "AAA": Rows("66:102").EntireRow.Hidden = True

            Case "BBB": Rows("41:65").EntireRow.Hidden = True

            Case Else: Union(Rows("66:102"), Rows("41:65")).EntireRow.Hidden = False

        End Select

        .EnableEvents = True

        .Calculation = lngCalc

    End With





End Sub