Ausgabe ohne Ausführungszeichen
11.06.2009 13:08:52
Sonnenpeter
mit dem nachfolgenden Makro versuche ich Überschriften zur späteren Weiterverarbeitung zu erfassen.
Sub Zuordnung()
Dim Ueberschrift As Variant
ActiveSheet.Name = "Original"
Sheets.Add Before:=Sheets("Original")
ActiveSheet.Name = "Ueberschriften"
Ueberschrift1 = "Überschrift.............1"
Ueberschrift2 = "Überschrift.............2"
Ueberschrift3 = "Überschrift.............3)"
Ueberschrift4 = "Überschrift.............4"
'weiter bis 58
For i = 1 To 58
With Sheets("Ueberschriftnummern")
.Range("A" & i).Value = i
Ueberschrift = "Ueberschrift" & i
'die Ausgabe erfolgt jetzt mit Ausführungszeichen also so "Ueberschrift"
'ich möchte aber Ueberschrift ohne Ausführungszeichen um in Spalte B die Überschriten _
einzutragen.
.Range("B" & i).Value = Ueberschrift
End With
Next
End Sub
Hoffe mich verständlich ausgedrückt zu haben.
Gruß SP