Thema Datum  Von Nutzer Rating
Antwort
Rot VBA - Werte aus Tabellenblatt in MsgBox ausgeben
31.12.2015 18:18:10 Ansako78
NotSolved
01.01.2016 00:27:51 Gast78679
NotSolved
01.01.2016 14:45:54 Gast79343
NotSolved

Ansicht des Beitrags:
Von:
Ansako78
Datum:
31.12.2015 18:18:10
Views:
1424
Rating: Antwort:
  Ja
Thema:
VBA - Werte aus Tabellenblatt in MsgBox ausgeben

Hallo zusammen

ich habe eingeschränkte VBA-Erfahrungen und versuche gerade folgendes: es gibt eine Tabelle, in der in Spalte 1 verschiedene Kontonummern stehen, die wiederholt vorkommen, und in Spalte 2 steht die Buchungsnummer der Belastung und in Spalte 3 der belastete Betrag (es gibt keine Gutschriften, die gegengerechnet werden müssten).

Über eine Eingabebox kann der Benutzer eingeben, zu welcher Kontonummer in einer MsgBox die Belastungen gelistet werden. Die MsgBox soll zeilenweise die Buchungsnummer und den Betrag ausweisen. In der letzten Zeile der MsgBox soll die Summe der Belastungen stehen. Im Idealfall zeigt der Titel der Messagebox die Kontonummer an und superideal wäre, wenn man die MsgBox ausdrucken könnte.

Da ich keine Expertin bin, habe ich den Code soweit aufgestellt, dass er die Kontonummer abfragt und die zugehörigen Belastungen auf das zweite Tabellenblatt schreibt (ich bin behelfsmäßig so vorgegangen, weil ich gedacht habe, dass ich es leichter hinkriege, die dortigen Inhalte dann in der MsgBox anzeigen zu lassen statt irgendwie mit versteckten "Zwischenvariablen" zu arbeiten - es soll nicht elegant sein, aber funktionieren).
Dieses zweite Tabellenblatt, was nun als Quelle für die MsgBox genutzt werden kann und nicht mehr gefiltert werden muss, hat folgendes Format:
Zeile 1, Spalte 1: "Buchungsnummer"
Zeile 1, Spalte 2: "Betrag"
Zeile 2 bis n: zeigt die entsprechenden Buchungen
Zeile n+1, Spalte 1: "Summe"
Zeile n+1, Spalte 2: Gesamtbetrag der Buchungen

Mein konkretes Problem ist nun, dass die Anzahl der Buchungen immer unterschiedlich ist und in Einzelfällen die Zahl 50 erreicht. Wie kann man das mit einer Schleife lösen?
Mein Verständnis ist, dass man vorbereitend zunächst Variablen definieren muss (Analog zu den Buchungsnummern in Spalte 1) und dann diesen Variablen die zugehörigen Werte (die Beträge aus Spalte 2) zuweisen muss.
Die 'Schreibanweisung' für die MsgBox muss im Nachgang dann so flexibel sein, dass sie ebenfalls die unterschiediche Anzahl der Buchungen berücksichtigt. (Soetwas wie  "MsgBox "Ziehung 1: " & Variable2 & vbLf & _  "Ziehung 3: " & Variable3 & vbLf & ....." geht nicht. Zudem ändert sich ja auch die Position für den Gesamtbetrag)

Tja, und dann wäre ja noch das Ding mit Titelzeile und dem Drucken....
Wenn man weiß, wie's geht, vermutlich ein kurzer Code, weil sicherlich mit einer Schleife lösbar...
wer kann helfen?

Besten Dank vorab
VG
Sabine


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 VBA - Werte aus Tabellenblatt in MsgBox ausgeben
31.12.2015 18:18:10 Ansako78
NotSolved
01.01.2016 00:27:51 Gast78679
NotSolved
01.01.2016 14:45:54 Gast79343
NotSolved