Office: Exel datei nach Text und Zahlenwerten durchsuchen

EInen wunderschönen Sonntag Mittag ;)

Meine Frage ist folgende:

Ich möchte eine Exeldatei nach Text und Zahlenwerten durchsuchen lassen und dann eine Summe bilden. Das sieht dann folgendermaßen aus:

Frachter: HVT GTSC Kaiman Superfrachter KT L-S-BH / Heimatbasis: GTSC Sonnenkraftwerk
Nila No kaufte 288 Einheiten Kristalle zu je 1641 Credits.
Gesamtsumme 472608 Credits.


Frachter: HVT Ihr Demeter Superfrachter KR-S-BH / Heimatbasis: GTSC Sonnenkraftwerk M
Leo Giorno verkaufte 6578 Einheiten Energiezellen zu je 18 Credits.
Gesamtsumme 118404 Credits.

Und zwar ist für mich folgendes Interessant:
Entweder "kaufte" für "x Credits" und "verkaufte" für "x Credits".

Das heisst er soll alle Credits addieren die ausgegeben "gekauft" und die die eingenommen "verkauft" wurden.

Geht das überhaupt?

Über eine baldige Antwort würde ich mich freuen.

 

der gesamte Text steht in einer Zelle?

 

Hallo,

1) folgenden VBA-Code in ein allgem. Codemodul kopieren
2) Mit der Tastenkombination Alt+F8 können im aktiven Arbeitsblatt die beiden Betragssummen ermittelt werden.

Code:

Sub Umsatzsummen()
  Dim Zelle As Range
  Dim Betrag@(1 To 2), Art%
  Dim Betragstexte$()
  
  For Each Zelle In ActiveSheet.UsedRange.Cells
    If Zelle Like "* kaufte *" Then
      Art% = 1
    ElseIf Zelle Like "* verkaufte *" Then
      Art% = 2
    End If
    If Zelle Like "*Gesamtsumme * Credits*" Then
      Betragstexte$ = Split(Zelle, "Gesamtsumme")
      Betragstexte$ = Split(Betragstexte$(1), "Credits")
      Betrag@(Art%) = Betrag@(Art%) + Betragstexte$(0)
    End If
  Next Zelle
  
  MsgBox Prompt:="Käufe: " & Format$(Betrag@(1), "#,##0.00") & vbCrLf & _
                 "Verkäufe: " & Format$(Betrag@(2), "#,##0.00"), _
         Buttons:=vbInformation + vbOKOnly, _
         Title:="Umsätze im Arbeitsblatt '" & ActiveSheet.Name & "'"
                 
End Sub

Falls bei den Credit-Beträgen Tausendertrennzeichen und Dezimalzeichen verwendet werden, müssen dafür "." als Tausendertrennzeichen und "," als Dezimalzeichen verwendet werden (also deutsche Zahlenschreibweise).

 

Wow vielen Dank für die schnelle Hilfe.
Nur dass mit dem Codemodul hab ich nicht ganz verstanden. Wie muss ich das wo einfügen?

Danke im voraus ;)

 

Hallo,

1) Du markierst das VBA-Makro (weiße Fläche) mit der Maus und kopierst es in die Zwischenablage (Tastenkombination Strg+C).
2) Du wechselst wieder zurück in Dein Excel-Arbeitsblatt und öffnest den VBA-Editor (Tastenkombination Alt+F11)
3) Im Menü des VBA-Editors wählst Du: Einfügen > Modul. Dadurch öffnet sich ein Fenster (=allgem. Codemodul). Es trägt die Aufschrift 'Modul1'.
4) In dieses Fenster fügst Du die Zwischenablage (Tastenkombination Strg+V) ein.
Es müsste damit wieder der VBA-Code zu sehen sein, der damit in der Excel-Datei als Makro installiert ist.
5) Dann kehrst Du wieder zurück in Dein Excel-Arbeitsblatt (mit der Tastenkombination Alt+F11).

6) Und hier drückst Du die Tastenkombination Alt+F8 mit anschließender Enter-Taste, um das Makro auszuführen.

 

Ok. Hab es nun mal ausprobiert.
Es kommt eine Fehlermeldung die da lautet:

Laufzeitfehler '13'
Typen unverträglich

 

Hallo,

wenn Du Punkt 6) nochmals durchführst, so erscheint, wie Du sagst, die Fehlermeldung 'Typen unverträglich'. In diesem Meldungsdialogfenster gibt es 4 Buttons, wobei Du diesmal nicht auf den Button 'Beenden' klickst, sondern auf den Button 'Debuggen'.
Dadurch wird Dir die Programmzeile angezeigt, die den Fehler verursacht hat (gelber Pfeil am linken Rand).
Falls das folgende Zeile ist:

Code:

      Betrag@(Art%) = Betrag@(Art%) + Betragstexte$(0)

dann hast Du eine Betragszahl (das ist die Zahl zwischen den beiden Wörtern 'Gesamtsumme' und 'Credits') mit einem unerlaubten Zeichen verwendet:
Dort sind nur Ziffern, das Tausendertrennzeichen und das Dezimalzeichen (wie oben von mir beschrieben) und eventuell ein Vorzeichen erlaubt.

Sollte jedoch eine andere Zeile erscheinen, so teile mir bitte diese Zeile mit.