Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
904to908
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
904to908
904to908
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Inhalt modifiziern und in anderen range übertragen

Inhalt modifiziern und in anderen range übertragen
10.09.2007 14:53:25
Peter
Liebes Forum
Ich habe zwei gleich grosse Bereiche und übertrage die Daten von "jkl" nach "ghi". Das geht - wenn keine Veränderungen notwendig sind - relativ einfach.

Sub test2()
Range("ghi").Value = Range("jkl").Value
End Sub


Nun möchte ich den Code wie folgt erweitern:
- im Bereich "jkl" hat es zum Teil auch Zahlen, die als Text abgelegt sind (mit führenden Nullen). Von Hand würde ich diese mit 1 multiplizieren, um eine Zahl zu erhalten
- im Bereich "jkl" hat es auch andere nicht numerische Einträge. Solange es sich nicht um Zahlen im Textformat handelt, möchte ich diese in der bestehenden Form in den Bereich "ghi" übernehmen.
Kann mir jemand sagen, wie das anzustellen ist.
Danke und Gruss, Peter

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Inhalt modifiziern und in anderen range übertragen
10.09.2007 15:11:57
fcs
Hallo Peter,
mit IsNumeric kannst du auch eine Zahl asl Text auf Numerisch testen,
Gruß
Franz

Sub TestNmberFormat()
For i = 1 To 3
If IsNumeric(Cells(i, 1)) Then
Cells(i, 2) = Val(Cells(i, 1)) 'Umwandeln Text(als Zahl) in Zahl
Else
Cells(i, 2) = Cells(i, 1)
End If
Next
End Sub


AW: Inhalt modifiziern und in anderen range übertragen
10.09.2007 15:38:00
Peter
Hallo Franz
Vielen Dank - das hat geklappt.
Peter
Anzeige

150 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige