Kopieren ausgewählter Datensätze
09.03.2004 06:39:44
Ronald
das Makro habe ich mal gefunden und erfolgreich eingesetzt. In Spalte A setzte ich ein x. Die angekreuzten Datensätze werden in eine andere Tabelle kopiert. Bei Excel 97 kein Problem. Bei Excel 2000 funktioniert es nur bis 45 Kreuze, dann wird der Inhalt der Variable "Wahl" über 256 Zeichen und es kommt eine Fehlermeldung. Was kann ich tun, damit die Auswahl auch bei Excel 2000 funktioniert?
Danke und Gruss Ronald
Sub Auswahl()
Dim wahl As String
Dim i, lz As Long
wahl = ""
lz = Range("A65535").End(xlUp).Row
For i = 1 To lz
If Cells(i, 1).Value = "x" Then
wahl = wahl & i & ":" & i & ","
End If
Next i
wahl = Left(wahl, Len(wahl) - 1)
MsgBox wahl 'zeigt den Inhalt der Variablen "Wahl"
MsgBox Len(wahl) 'zeigt die Anzahl der Zeichen
Range(wahl).Copy
End Sub
Anzeige