Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1880to1884
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Text in Zahl per VBA

Text in Zahl per VBA
09.05.2022 15:57:03
Florian
Hi Leute,
ich importiere mit dieser Zeile Daten in mein Tabellenblatt. Das funktioniert so weit gut. Nur werden bei zwei Spalten, die Zahlen enthalten, die Werte auf Text "umgestellt". Das versuche ich mit diesem Code wieder in eine Zahl zubringen. Allerdings tut sich nichts,

Sub WerteInZahlen()
Dim wks As Worksheet
Set wks  = ThisWorkbook.Sheets("Tabelle 1")
wks.Unprotect Password:=p_strPasswort
With Range("H:I")
.NumberFormat = "General"
.Value = .Value
End With
wks.Protect userinterfaceonly:=True, AllowFiltering:=True, Password:=p_strPasswort
End Sub
Hat jemand eine Idee?
Danke euch" :)

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
.NumberFormat = "@" owT
09.05.2022 16:03:15
Yal
AW: .NumberFormat = "@" owT
09.05.2022 16:18:06
Florian
Tut sich leider nichts.
AW: .NumberFormat = "#,##0;-#,##0;-"
09.05.2022 16:25:37
Yal
ja, ich habe verpennt: von Text zu Zahl und nicht umgekehrt.
Ich bin auf meine Antwort gekommen, in dem ich den Makrorekorder gestartet und die Zellen formatiert habe. Trotz meine jahrelange Erfahrung (oder eben wegen) halte ich es nicht für nötig, mir irgendwas zu merken, was ich sowieso mit dem MR mit ein paar Klicks geliefert bekomme. MR ist immer erste Adresse von es um VBA geht.
VG
Yal
AW: Text in Zahl per VBA
09.05.2022 16:25:10
Nepumuk
Hallo Florian,
teste mal:

Public Sub WerteInZahlen()
With ThisWorkbook.Worksheets("Tabelle 1")
.Protect UserInterfaceOnly:=True, AllowFiltering:=True, Password:=p_strPasswort
.Columns("H:I").NumberFormat = "General"
.Columns(8).TextToColumns Destination:=.Cells(1, 8), FieldInfo:=Array(1, 1)
.Columns(9).TextToColumns Destination:=.Cells(1, 9), FieldInfo:=Array(1, 1)
End With
End Sub
Gruß
Nepumuk
Anzeige
AW: Text in Zahl per VBA
09.05.2022 16:40:43
Florian
Damit funktioniert es, danke :)

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige