hallo zusammen,

Ich muss momentan ein projekt lösen für die Berufschule, das ganze scheint mir schon sehr Komplex zu sein ich habe nämlich keine Ahnung wo ich mit der Lösung anfangen soll habe bereits Ansätze aber weiss nicht ob das so funktioniert. Wäre nett wenns sich das mal jemand anschaut und mir evtl. ein par Tipps geben kann. Im Anhang habe ich bereits eine Excel Datei wie das fertige Produkt aussehen soll alleredings ist noch nix Programmiert. Es sollen Diagramme entstehen die die Umsätze verschiedener Mitarbeiter auswerten und Neukunden / bestandskunden selektieren die 2. Tabelle soll nach herstellern gehen. Ich hatte mir das so gedacht das, durch einen Suchlauf das Programm die WErte für das Diagramm ermittelt also alle umsätze von Schmitz addiert und nach neukunde usw.. sortiert und im Diagramm auspuckt. Ist sowas möglich z.b mit einer Fallauswahl ? Ihr könnte euch ja mal die Excel Tabelle anschaun vielleicht habt ihr auch eine Idee wie man das angehen kann. Diagramme erstellen lassen über VBA ist ja recht einfach aber ich weiss nicht wie ich die Daten entpsrechenden aus der Tabelle lesen kann.

freundliche grüße Andreas P



Edit: Der erste Ansatz welcher mir gerade einfiel ist die Kombination einer If Then Funktion mit einer Schleife. D.h. Er Läuft Zeile C runter If Mitarbeiter Schmitz Then addiert der der die Werte und das bis In Zeile C kein Schmitz mehr steht. Dannach daselbe mit dem nächsten Mitarbeiter. Ist das so lösbar ? Ebenfalls müsste ja noch mit eingebracht werden in welcher der 3 Kundengruppe der Umsatz gemacht wurde

Schau dir mal im Excel-Help die Kapitel PivotTable und PivotChart an.
Da musst du so gut wie nichts programmieren (ausser vielleicht die Erstellung der Pivots und Charts), weil Excel das alles schon selbst kann.

Das sieht schonmal sehr interessant aus danke schön ! Ich werds erstmal versuchen mit der Pivot Tabelle zu lösen ! die Programmierung eines buttons zu Erstellung der Pivot charts sollte sich hoffentlich nicht als all zu schwer heraustellen.

Ich habs mal jetzt doch mit VBA probiert und bin zu folgendem ergebnis gekommen, leider funktioniert es noch nicht :


Sub Umsaetze_berechnen()
Dim IntZeile As Integer

For IntZeile = 1 To 150

If Cells(IntZeile, 6) = "Abels" And Cells(IntZeile, 8) = "Bestandskunde" Then
Bestknd_Abels = Bestknd_Abels + Cells(IntZeile, 10)

End If

Next

End Sub

Ich glaube ich muss noch mehr schleifen einbauen oder ? Er soll jede Zeile prüfen ob dort Abels und bestandskunde steht wenn positiv soll er es in der variable Bestknd_abels addieren! die Schleife läuft aber er addiert nix !

Jemand ne Idee ?

1) In welchem Context läuft denn der Code?
So wie er geschrieben ist, funktioniert er nur im Arbeitsblatt der Umsatzliste.
2) Saubere Programmierung wäre, die Werte der Value-Eigenschaft zu verwenden:
3) Hast du mal mit dem Debugger durchgesteppt und nachgeschaut, was in den einzelnen Zellen und Variablen steht?

Also es funktionierte doch schon hab ich gemerkt ! Mit value bestimme ich den Zellen inhalt ? Wenn ich schreibe value= Bestandskunde selektiert der dannach ob in der Zelle bestandskunde steht ? Danke für deine Hilfe aufejedenfall hab jetzt noch eine andere Frage: was muss ich schreiben damit die Funktion eine Zeile mit inhalt anspricht also quasi:



Also wie heisst der platzhalter z.B. value=Zeile mit Inhalt

If Cells(IntZeile, 6).Value = "Zeile mit Inhalt"

Danke ! So damit hab ich alles was ich für die Auswertung brauche ! die entsprechenden werte lass ich in eine Tabelle auspucken und ein normales excel Diagramm nimmt die Werte auf. Falls doch noch was sein sollte meld ich mich hier in dem Thread. Danke nochmal !

langsam komme ich immer besser mit den Befehlen in VBA zurecht ! mir ist jetzt eine neue Idee gekommen Ich möchte in einer Zelle nach einem Inhalt und suchen jdesmal wenn dort zum Beispiel steht Intel23584 Pentium soll der in der nächsten zeile schreiben Intel also quasi





normalerweise bei suchfunktionen setzt man ja ein Wort in Sternchen das man aus dem Kontext heraus finden muss gibs da bei VBA ne andere schreibweise ?

Danke ! Das Like hat mich jetzt gerettet, es funktioniert nun alles kann ich den gesuchten begriff auch mit OR verknüpfen Das er quasi wenns etwas anderes als die 5 gesuchten HErsteller ist sonstiges reinschreibt Im folgenden mal den gesamten Code für den Sub:





EDIT: Hab wohl gerade gesehen das Or funktioniert nur mit 2 Bedingungen. Fällt dir ein Alternativer Ansatz für die lösung des Problems ein ?



EDIT2: Hab gemerkt hab die schleife voll sinnlos gestaltet habs jetzt richtig :



Allerdings funktioniert das mit den Sontigen immer noch nicht

So nach bischen recherche hab Ich es doch noch hin gekeriegt ! jetzt noch eine letzte Frage: Wie bestimme ich eine Range Von

Cell( 2, 19) Abwärts

Das Problem ist momentan wird auch die Überschrift (Cell(1, 19) mit verändert!

Wie bestimme ich eine Range Von Cell( 2, 19) Abwärts

Wenn du sicherstellen kannst, dass jede Zelle gefüllt ist:
Wenn nicht:

Ich komm mal wieder nicht weiter versuche jetzt seit mehreren Stunden folgendes:

Wenn in Zeile Cellls.(Intzeile, 5).value ="12854" soll er die gesamte Zeile Löschen. hab das schon mit einer Schleife versucht aber irgendwas mache ich falsch.

Ziel soll sein Eine abfrage zu Starten in der Umsätze tabelle wenn in einer Zeile eine bestimmte Artikelnummer ist soll er die gesamte Zeile rauslöschen so das bestimmte umsätze nicht drin stehen ! kann es sein das ich vorher eine Range festlegen muss ? Bitte um Hilfe!

Danke! besonders an petaod welcher mir bereits kompetent geholfen hat !

Achtung Stolperstein!
Die Zeilennummerierung ändert sich nach diesem Befehl!

Tipp:
Wenn du deine Zeilen-Schleife von unten nach oben zählst (von 200 bis 1) entkommst du dieser Falle.

Meinst du das ganze könnte dann so aussehen:

Sonst kommt er nie in die Loop rein

Vielen Dank!!! jetzt läuft es ! Um weitere Artikelnummer Abfragen in der Schleife zu erstellen geh ich dann davon aus das dann folgt:

Du kannst mehrere Abfragen mit gleicher Aktion auch zusammenfassen: