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

Ansicht des Beitrags:
Von:
Gast26112		 Datum:
11.11.2011 13:16:33		 Views:
959		 Rating:
     
Antwort:
  Ja
Thema:
VBA-Zelle automatisch bei Eingabe anderere Zellen aufaddieren

 Hi Y :),

danke für die Info mittlerweile habe ich das folgendermaßen gelöst bekommen:

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 ' addition
    Range("D2").Value = x   
End Sub

 

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
Rot VBA-Zelle automatisch bei Eingabe anderere Zellen aufaddieren
 11.11.2011 13:16:33 Gast26112
NotSolved
11.11.2011 13:29:23 Sino
NotSolved
11.11.2011 17:56:38 Ynachten
NotSolved