Zellenformat von Text in Zahl umwandeln

Sub TextSpalten_ins_Zahlenformat() 'Wandelt als Text vorliegende Zahlenwerte in 'echte' Zahlen um 'Spaltenbereich markieren (auch zu viele) und starten Dim Spalte As Range On Error Resume Next For Each Spalte In Selection.Columns 'Columns(Spalte.Column).NumberFormat = "General" Columns(Spalte.Column).TextToColumns Next End Sub

Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Benutzer

Hallo HOITG,
ein gewisser Schutz gegen doppelte Umwandlungen wird erreicht, wenn das Makro sich merkt welche Spalten schon bearbeitet wurden.
Das funktioniert dann immer solange, bis das VBA-Projekt mit dem Makro zurückgesetzt wird oder die Datei mit dem Makro neu geöffnet wird.
Gruß
Franz

Private arrGewandelt() 'Array zum Merken bereits umgewandelter Spalten
Sub TextSpalten_ins_Zahlenformat()
'Wandelt als Text vorliegende Zahlenwerte in 'echte' Zahlen um
'Spaltenbereich markieren (auch viele) und starten
Dim Spalte As Range, sWB As String, sSheet As String, lSpalte As Long, bSchonGewandelt As  _
Boolean
On Error Resume Next
sWB = LCase(ActiveWorkbook.FullName)
sSheet = LCase(ActiveSheet.Name)
If UBound(arrGewandelt, 2) = 0 Then
ReDim arrGewandelt(1 To 3, 1 To 1)
End If
For Each Spalte In Selection.Columns
'prüfen, ob Daten in Spalte schon umgewandelt wurden
bSchonGewandelt = False
If UBound(arrGewandelt, 2) > 0 Then
For lSpalte = LBound(arrGewandelt, 2) To UBound(arrGewandelt, 2)
If Spalte.Column = arrGewandelt(3, lSpalte) Then
If sSheet = arrGewandelt(2, lSpalte) Then
If sWB = arrGewandelt(1, lSpalte) Then
bSchonGewandelt = True
Exit For
End If
End If
End If
Next
End If
If bSchonGewandelt = False Then
'Columns(Spalte.Column).NumberFormat = "General"
Columns(Spalte.Column).TextToColumns DataType:=xlDelimited, Textqualifier:= _
xlTextQualifierNone, _
Tab:=True, Semicolon:=False, Comma:=False, Space:=False, Other:=False, _
DecimalSeparator:=",", ThousandsSeparator:="."
'umgewandelte Spalte merken
ReDim Preserve arrGewandelt(1 To 3, 1 To UBound(arrGewandelt, 2) + 1)
arrGewandelt(1, UBound(arrGewandelt, 2)) = sWB    'Name Arbeitsmappe
arrGewandelt(2, UBound(arrGewandelt, 2)) = sSheet 'Name Blatt
arrGewandelt(3, UBound(arrGewandelt, 2)) = Spalte.Column 'Nummer Spalte
End If
Next
End Sub

Beliebteste Forumthreads (12 Monate)

Zellenformat von Text in Zahl umwandeln

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

419 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zellenformat von Text in Zahl umwandeln

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

419 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread