Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
22.01.2020 16:26:57 |
Nikmu |
|
|
|
22.01.2020 16:34:54 |
UweD |
|
|
|
22.01.2020 16:38:32 |
Gast47833 |
|
|
|
22.01.2020 16:52:33 |
Nikmu |
|
|
|
22.01.2020 16:58:01 |
Gast53356 |
|
|
Zugehörigen Wert in Tabelle suchen und ausgeben |
22.01.2020 16:56:21 |
Gast88727 |
|
|
|
22.01.2020 17:21:49 |
Nikmu |
|
|
|
22.01.2020 18:46:47 |
Gast25380 |
|
|
Von:
Gast88727 |
Datum:
22.01.2020 16:56:21 |
Views:
1132 |
Rating:
|
Antwort:
|
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
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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 |
|
|
|
22.01.2020 16:34:54 |
UweD |
|
|
|
22.01.2020 16:38:32 |
Gast47833 |
|
|
|
22.01.2020 16:52:33 |
Nikmu |
|
|
|
22.01.2020 16:58:01 |
Gast53356 |
|
|
Zugehörigen Wert in Tabelle suchen und ausgeben |
22.01.2020 16:56:21 |
Gast88727 |
|
|
|
22.01.2020 17:21:49 |
Nikmu |
|
|
|
22.01.2020 18:46:47 |
Gast25380 |
|
|