Excel mit Selection gekilled
31.01.2007 16:04:14
Florian H.
folgende Schleife lasse ich im Moment durchlaufen, um mein Datenblatt nach bestimmten Kriterien zu filtern und die gefunden Zeilen zu selektieren und in ein anderes Datenblatt zu kopieren:
Private Sub cmdOk_Click()
Worksheets("PHIST").Activate
Dim work_ws As String
Dim myRange As String
Dim first_time As Boolean
work_ws = "Ergebnisse"
Dim selectedtank(15) As Integer
'Datensätze zählen, die durchzulesen sind
DataFields = CountData("PHIST")
MsgBox DataFields & " Datensätze"
first_time = True
'Hauptschleife für jeden Datensatz
For s = 3 To DataFields
For z = 0 To 15
If Worksheets("PHIST").Cells(s, 1) = selectedtank(z) Then
If first_time = True Then
myRange = (s) & ":" & (s)
first_time = False
Else
myRange = myRange & "," & (s) & ":" & (s)
End If
Else
End If
Next z
Next s
MsgBox "Zu kopierende Zeilen: " & myRange, vbOKOnly
Range(myRange).Select
Selection.Copy
Worksheets(work_ws).Activate
Cells(3, 1).Select
Worksheets(work_ws).Paste
Die letzte Message Box wird mir noch ausgegeben (beinhaltet korrekte Daten), dann verabschiedet sich leider Excel ins Nirvana. Mir werden auch nicht soviele Daten ausgegeben, dass es zu einem Absturz reichen würde (so um die 100).
selectedtanks korrekt gesetzt und gefüllt. Er filtert ja richtig, nur die Selection lässt er mir nicht zu.
Vielen Dank für die Hilfe!
Gruss Flo H