Ohne Formatierung
30.11.2002 12:15:43
Ralf
Ich habe hier ein makro mit dem ich einen makierten Bereich aus einer Tabelle in eine andere Kopiere.
Jetzt möchte ich diesen Bereich ohne Formatierung Kopieren wenn es denn möglich ist.
Sub AutoForm1_BeiKlick()
Dim i As Integer
If Selection Is Nothing Then
Exit Sub
Else
Selection.Copy
End If
With Worksheets("1")
For i = 23 To 50
If .Cells(i, 3).Text = "" And .Cells(i + 1, 3).Text = "" Then
.Cells(i + 1, 3).PasteSpecial
Exit Sub
End If
Next i
MsgBox "Kein Platz zum Einfügen!"
End With
End Sub