Sub Makro1()
Dim s As Integer
' Tastenkombination: Strg+t
Range("D1").Select
s = Replace(s, "-", ",")
End Sub
Sub Einfügen()
' Einfügen Makro
' Makro am 03.10.2004 von GerhardB aufgezeichnet
' Tastenkombination: Strg+e
Dim sel As Range
Set sel = Selection
Range("C1") = ActiveCell
Range("D1").Select
ActiveSheet.PasteSpecial Format:="Text", Link:=False, _
DisplayAsIcon:=False
sel.Select
ActiveCell = "C1+D1"
Selection.Font.ColorIndex = 50
Selection.Font.Bold = False
End Sub
ActiveCell.Formula = "=C1+D1"
Sub Einfügen()
' Einfügen Makro
' Makro am 03.10.2004 von GerhardB aufgezeichnet
' Tastenkombination: Strg+e
Dim sel As Range 'Weis ich nicht zu erkähren Vermutlich die Initialisiereung
Set sel = Selection 'Irgent eine vorher ausgewählte Celle mit eine zahl zb. 6
Range("C1") = ActiveCell 'Range ("C1")= die ausgewählte Celle
Range("D1").Select 'Hirher wirt der wert auch eine zahl von einer HTML seite die
'irgent wie alls Text formatirung in eingefügt amit ich in mit einer metode in ein ZAHLEN
'format oder zumindest das Komma durch ein neues ersetze weil ich herausgefunden habe das
'die EXELtabele den wert dan richtig anzeigt.
ActiveSheet.PasteSpecial Format:="Text", Link:=False, _
DisplayAsIcon:=False 'Hirher wirt der wert aus der Zwischenablage in Range("D1")eingefügt
'Ab da wolte ich die Range("D1") reinigen um später mit Range("C1")zu addieren
sel.Select 'hier springe ich zurük zur vohrher ausgewählten Celle
ActiveCell.Formula = "=C1+D1" 'hier wird addiert
Selection.Font.ColorIndex = 50
Selection.Font.Bold = False
End Sub