Thema Datum  Von Nutzer Rating
Antwort
Rot Ergänzung zu Hilfe bei If- bzw. Case-Anwendung
 26.10.2011 10:15:45 Berni
NotSolved

Ansicht des Beitrags:
Von:
Berni		 Datum:
26.10.2011 10:15:45		 Views:
2595		 Rating:
     
Antwort:
  Ja
Thema:
Ergänzung zu Hilfe bei If- bzw. Case-Anwendung

 

Jetzt ist mir doch was aufgefallen, es fehlt noch ein Teil und zwar der mit sumCell:

So in die Richtung, weiß aber nicht wie und wo ich den noch einfügen soll:

        Set rng = Range(Cells(R, 4), Cells(R, 8)) 
        rng.ClearContents 
        If .Value <> "x" Then .Value = "x"
        sumCell = (8 - C) * Cells(R, 3) 'Summe
 

Der Code soll für alle Zeilen der Tabelle bis 33 laufen und betrifft diese Mal die Spalten D-H (anstatt D-G). Steht in D ein "x" soll dieses als "4" erkannt werden und mit dem Wert in C multipliziert werden. Das Ergebnis soll dann in die Spalte K eingetragen werden.

Ein "x" in E wird als "3"

eine "x" in F wird als "2"

ein "x" in G wird als "1"

ein "x" in H wird als "0" anererkannt und mit dem WErt aus C multipliert und in K eingetragen.

So soll mit jeder Zeile bis 33 verfahren werden.

 

Kann man das noch intergrieren oder schreibt man da ein weiteres Sub? Der Code bezieht sich ja hier auf einen größeren Bereich und mit der Deklaration komm ich auch nicht zurecht!

DANKE


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
Rot Ergänzung zu Hilfe bei If- bzw. Case-Anwendung
 26.10.2011 10:15:45 Berni
NotSolved