Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
09.11.2011 15:15:01 |
Sino Kalkan |
|
|
|
11.11.2011 12:34:37 |
Ynachten |
|
|
|
11.11.2011 13:16:33 |
Gast26112 |
|
|
VBA-Zelle automatisch bei Eingabe anderere Zellen aufaddieren |
11.11.2011 13:29:23 |
Sino |
|
|
|
11.11.2011 17:56:38 |
Ynachten |
|
|
Von:
Sino |
Datum:
11.11.2011 13:29:23 |
Views:
974 |
Rating:
|
Antwort:
|
Thema:
VBA-Zelle automatisch bei Eingabe anderere Zellen aufaddieren |
Hi Y,
habe etwas vergessen:
Sub test()
Dim table As Worksheet, x As Long, y As Long, lngZeilen As Long
Set table = Worksheets("Tabelle1")
lngZeilen = table.Cells(table.Rows.Count, 1).End(xlUp).Row
'Eine Schleife, die beide Spalten auf Bedingung überprüft, falls true dann soll es eine 1 bei W2 eintragen
For y = 1 To lngZeilen
If table.Cells(y, 1).Value Like "frankreic*" Or table.Cells(y, 1).Value Like "Frankreic*" And Not table.Cells(y, 2) = "" Then
x = x + 1
End If
Next y
Range("C2").Value = Range("C2").Value + x
End Sub
Die obige Prozedur wird aufgerufen über:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Call test
Application.EnableEvents = True
End Sub
Meine Frage: Wie kann ich denn noch erreichen, das bei Eingabe in eine Zelle auch zzgl. die Zahl "1" in die gleiche Zeile nur in einer anderen Position einfügt?
Vllt. so:
if ..then...End if
Next y
Range("C2").Value = Range("C2").Value + x
Range(y,x).Value=1 'bei Range soll praktisch die gleiche Zeile (y) angesteuert werden und eine bestimmte Zelle (x), indem der Eintrag vorgenommen wird.
Ich hoffe auf mein Problem ist so verständlich :) ...Danke im Voraus für Hilfen!
Gruß Sino
|
- 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
|
|
09.11.2011 15:15:01 |
Sino Kalkan |
|
|
|
11.11.2011 12:34:37 |
Ynachten |
|
|
|
11.11.2011 13:16:33 |
Gast26112 |
|
|
VBA-Zelle automatisch bei Eingabe anderere Zellen aufaddieren |
11.11.2011 13:29:23 |
Sino |
|
|
|
11.11.2011 17:56:38 |
Ynachten |
|
|