Thema Datum  Von Nutzer Rating
Antwort
Rot Eine Zelle zusammen addieren
08.10.2014 14:29:50 Marvin
NotSolved
08.10.2014 15:34:12 Marvin
NotSolved
08.10.2014 17:07:28 Gast66581
NotSolved
08.10.2014 19:06:12 Gast47864
NotSolved

Ansicht des Beitrags:
Von:
Marvin
Datum:
08.10.2014 14:29:50
Views:
579
Rating: Antwort:
  Ja
Thema:
Eine Zelle zusammen addieren
Hallo liebe Programmier Community, Ich habe folgendes Problem, Ich soll ein Makro schreiben was aus einer Spalte dessen Felder mit Zahlen Bustaben und Kommas gefüllt ist die Zahlen Rausfiltern und Addieren. Beispiel (Die ersten 6 Datensätze): 1 FP,   1 FP 1 FP,   1 FP 1 FP,   1 FP 1 FP,   1 FP 1 FP,   1 FP 1 FP,   1 FP Und ich bin jetz soweit das er diese Datensätze kopiert und in einer andere Spalte einsetz und dort die Bustaben und Kommas rauslöscht aber ich komm einfach nicht drauf wie ich die Zahlen dann addieren soll, da zwischen den zahlen noch viele Leerzeichen sind. Aktueller Stand: 1    1 1    1 1    1 1    1 1    1 1    1 Mein Code sieht folgend aus (bitte nicht meckern ich bin noch ein totale anfäger in VBA ._.) Sub a() Dim Zelle As Range Dim intz As Integer Dim StrNeu As String 'Aufgezeichnetes Makro Range("A2:A143").Select ActiveWindow.SmallScroll Down:=-132 Selection.Copy Range("C2").Select ActiveSheet.Paste Columns("C:C").EntireColumn.AutoFit Application.CutCopyMode = False For Each Zelle In Selection For intz = 1 To Len(Zelle) Select Case Mid(Zelle, intz, 1) ' Case 0, "F", "P", "X", "K", "G", ",", "l", "I", "T", "C", "O" Case 0, "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z", "Ä", "Ö", "Ü", ",", "." Case Else StrNeu = StrNeu & Mid(Zelle, intz, 1) End Select Next intz Zelle.Value = StrNeu StrNeu = " " Next Zelle End Sub

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • 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
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Eine Zelle zusammen addieren
08.10.2014 14:29:50 Marvin
NotSolved
08.10.2014 15:34:12 Marvin
NotSolved
08.10.2014 17:07:28 Gast66581
NotSolved
08.10.2014 19:06:12 Gast47864
NotSolved