Thema Datum  Von Nutzer Rating
Antwort
09.11.2011 15:15:01 Sino Kalkan
Solved
11.11.2011 12:34:37 Ynachten
NotSolved
11.11.2011 13:16:33 Gast26112
NotSolved
Blau VBA-Zelle automatisch bei Eingabe anderere Zellen aufaddieren
 11.11.2011 13:29:23 Sino
NotSolved
11.11.2011 17:56:38 Ynachten
NotSolved

Ansicht des Beitrags:
Von:
Sino		 Datum:
11.11.2011 13:29:23		 Views:
972		 Rating:
     
Antwort:
  Ja
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

 

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
09.11.2011 15:15:01 Sino Kalkan
Solved
11.11.2011 12:34:37 Ynachten
NotSolved
11.11.2011 13:16:33 Gast26112
NotSolved
Blau VBA-Zelle automatisch bei Eingabe anderere Zellen aufaddieren
 11.11.2011 13:29:23 Sino
NotSolved
11.11.2011 17:56:38 Ynachten
NotSolved