VBA-Code funktioniert nicht
10.11.2005 07:56:25
Josef
ich habe mir folgenden Code etwas umgebastelt:
Private Sub CommandButton3_Click()
Dim cell As Range, ber As Range 'Definiert die Variablen
Set ber = Range("A9:A10000") 'Gibt den zu überwachenden Bereich an
If Not ber Is Nothing Then
For Each cell In ber 'Für jede Zelle in dem Bereich gilt
If cell.Value = "S-" Then
Range(cell.Offset(0, 0), cell.Offset(0, 6)).Copy
'Sheets("Italy").Select
'Sheets("Italy").Range("A65536").End(xlUp).Offset(1, 0).Activate
'Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'Sheets("Allocated").Select
End If
Next cell
End If
End Sub
Also, ich habe in Spalte A verschiedene Werte stehen: z.b M-87311 bis M-87359 und S-02726 bis S-02749. Ich will jetzt jede einzelne Zeile, die "S-" beinhaltet in ein anderes Sheet kopieren bzw. ausschneiden. Weiß jemand, wo der Fehler ist oder hat jemand eine ganz andere Lösung?
Vielen Dank.
Grüsse
Josef
Anzeige