Kopier macro
27.09.2018 12:38:36
Wolfhart
ich habe ein kleines Problem mit VBA.
ich möchte den Inhalt (Text) einer Zelle kopieren in die rechts danebenliegende Zelle
( diese Zelle beinhaltet schon Text ) mit 2 Zeilenumbrüche einfügen über den vorhandenen Text einfügen. Soweit mit Makrorecorder alles klar. Problem wenn das Makro für die nächste Zelle ausgeführt wird soll es den Inhalt der neuen Zelle nehmen.Ich komme mit der FormulaR1C1 nicht klar. Hoffe ich bekomme ein paar Tips da ich ca. 8000 Zeilen so bearbeiten muss.
Sub Makro1()
' Copy Makro
ActiveCell.Select
ActiveCell.FormulaR1C1 = "Text"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = _
"Text" & Chr(10) & "" & Chr(10) & "Text" & Chr(10) & "Text"
With ActiveCell.Characters(Start:=1, Length:=0).Font
.Name = "Tahoma"
.FontStyle = "Standard"
.Size = 8.25
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 1
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
With ActiveCell.Characters(Start:=1, Length:=34).Font
.Name = "Tahoma"
.FontStyle = "Fett"
.Size = 8.25
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 1
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
With ActiveCell.Characters(Start:=35, Length:=106).Font
.Name = "Tahoma"
.FontStyle = "Standard"
.Size = 8.25
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 1
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
ActiveCell.Offset(1, -1).Range("A1").Select
End Sub