|
Hallo liebe Programmier Community,
Ich habe folgendes Problem:
Ich soll ein Makro schreiben das aus einer Spalte dessen Felder mit Zahlen, Bustaben und Kommas gefüllt ist die Zahlen rausfiltert und addiert.
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
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 |