Warum ?
02.12.2002 16:51:37
Sonja
Ich habe hier ein Makro das den selektirten text immer in Spalte
52 ausgiebt aber eigendlich soll der bereich nur bis zur spalte 50 gehen wo ist der fehler ?
Sub AutoForm1_BeiKlick()
Dim i As Integer
If Selection Is Nothing Then
Exit Sub
Else
Selection.Copy
End If
With Worksheets(Worksheets.Count)
If ActiveWorkbook.Sheets.Count > 3 Then
For i = 9 To 55
Next i
Else
For i = 23 To 50
Next i
End If
If .Cells(i, 4).Text = "" And .Cells(i + 1, 4).Text = "" Then
.Cells(i + 1, 3).PasteSpecial
Exit Sub
End If
MsgBox "Kein Platz zum einfügen"
End With
End Sub