Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
17.04.2008 22:50:22 |
Lisa |
|
|
Aw:+1 Addieren unter Bedingung |
21.04.2008 12:20:09 |
Holger |
|
|
|
22.04.2008 11:47:22 |
Lisa |
|
|
|
22.04.2008 16:10:53 |
Holger |
|
|
Von:
Holger |
Datum:
21.04.2008 12:20:09 |
Views:
1071 |
Rating:
|
Antwort:
|
Thema:
Aw:+1 Addieren unter Bedingung |
Hallo Lisa,
folgendes Makro sollte dein Problem lösen. Du musst es aber in den Codebereich der relevanten Tabelle und nicht in ein Modul schreiben. Zu diesem Codebereich kommst du, indem du entweder im Projekt-Fenster des VBA-Bildschirmes doppelt auf die Tabelle klickst oder auf dem Excel-Bildschirm mit der rechten Maustaste auf den Reiter dieser Tabelle klickst und "Code anzeigen" auswählst. Schlage die einzelnen Befehle und das Worksheet_Change-Ereignis in der VBA-Hilfe nach.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim reihe As Long
If Not Intersect(Target, Range("a:a")) Is Nothing Then
Select Case Cells(Target.Row, 1)
Case False
Cells(Target.Row, 2) = Cells(Target.Row, 2) + 1
Case True
Cells(Target.Row, 3) = Cells(Target.Row, 3) + 1
Case Else
End Select
End If
End Sub
Viel Erfolg
Holger
Lisa schrieb am 17.04.2008 22:50:22:
Hallo, zusammen,
bin ein blutiger Anfänger in Sachen VBA-Programmierung und komm daher schon bei einer einfachen Sache nicht weiter: Ich habe eine Excel-Tabelle mit (vereinfacht angenommen) 3 Spalten. In der 1. Spalte kann der "wahr" oder "falsch" angenommern werden, die beiden anderen Spalten enthalten Zahlen, die angeben, wie häufig in der jeweiligen Zeile die Werte "falsch" (2. Spalte) oder "wahr" (3.Spalte) in der Vergangenheit bereits angenommen wurden (die Werte werden nämlich immer wieder auf der Grundlage von anderen Daten neu berechnet). Bisher muss ich nach jeder Änderung der Daten in Spalte 1 die Zahlen in Spalte 2 und 3 manuell ändern, indem ich an der richtigen Stelle eins dazuaddiere. Das müsste aber doch sicher auch einfacher gehen!
Ich hoffe, mein Problem ist einigermaßen verständlich. Bin dankbar für jede 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
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
|
|
17.04.2008 22:50:22 |
Lisa |
|
|
Aw:+1 Addieren unter Bedingung |
21.04.2008 12:20:09 |
Holger |
|
|
|
22.04.2008 11:47:22 |
Lisa |
|
|
|
22.04.2008 16:10:53 |
Holger |
|
|