Thema Datum  Von Nutzer Rating
Antwort
22.01.2020 16:26:57 Nikmu
Solved
22.01.2020 16:34:54 UweD
NotSolved
22.01.2020 16:38:32 Gast47833
NotSolved
22.01.2020 16:52:33 Nikmu
NotSolved
22.01.2020 16:58:01 Gast53356
NotSolved
Blau Zugehörigen Wert in Tabelle suchen und ausgeben
 22.01.2020 16:56:21 Gast88727
NotSolved
22.01.2020 17:21:49 Nikmu
NotSolved
22.01.2020 18:46:47 Gast25380
NotSolved

Ansicht des Beitrags:
Von:
Gast88727		 Datum:
22.01.2020 16:56:21		 Views:
1131		 Rating:
     
Antwort:
  Ja
Thema:
Zugehörigen Wert in Tabelle suchen und ausgeben

Hallo

 

- Rechtsclick auf den Tabellenblattreiter

- Code anzeigen

- Code reinkopieren

 

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Fehler
    Const APPNAME = "Worksheet_Change"
    If Not Intersect(Range("D12"), Target) Is Nothing Then
        Application.EnableEvents = False
        Target.Offset(0, 1) = WorksheetFunction.SumIf(Range("B3:B7"), Target, Range("E3:E7"))
    End If

    '*** Fehlerbehandlung
    Err.Clear
Fehler:
    Application.EnableEvents = True
    If Err.Number <> 0 Then MsgBox "Fehler in Sub """ & APPNAME & """" & vbCrLf _
        & "Fehlernummer: " & Err.Number & vbLf & Err.Description: Err.Clear
End Sub

 

Bei Änderung in D12 läuft der Code automatisch ab.

 

Verwendet wird Summewenn

 

Problematisch, wenn es mehrere "Müller" gibt

 

LG UweD

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
22.01.2020 16:26:57 Nikmu
Solved
22.01.2020 16:34:54 UweD
NotSolved
22.01.2020 16:38:32 Gast47833
NotSolved
22.01.2020 16:52:33 Nikmu
NotSolved
22.01.2020 16:58:01 Gast53356
NotSolved
Blau Zugehörigen Wert in Tabelle suchen und ausgeben
 22.01.2020 16:56:21 Gast88727
NotSolved
22.01.2020 17:21:49 Nikmu
NotSolved
22.01.2020 18:46:47 Gast25380
NotSolved