klappt nicht.....
31.10.2007 20:08:00
Heiko
Thanks @Chris für die Hilfe bisher!!!!
Diese Code soll eine Datenblatt "Auswertung" überprüfen Zeile für Zeile ob in Spalte Q6:Q31 ein WAHR steht, wenn ja dann kopiert er Zellen B6:B14 usw betroffene Zeile in ein neues Datenblatt "Auswahl". Diese geschieht, in dem der 1. Eintrag in B6 ist und immer eine Zeile eingefügt wird und fortlaufender Nummerierung.
Aber es klappt nicht so ganz!
1. in dem neuen Blatt wird nicht wie gewünscht in B6 begonnen sondern schon in A2
2. Dei Durchnummerierung passt nicht, bedeutet in Zeile 1 sind Einträge aber Zähler beginnt mit 1 in Zeile 2 und beginnt nach 4 wieder mit 1 ( hat das was mit der row=5 zu tun?
3. Die Formatierung pass nicht. der letzte Eintrag ist der erste in dem neuen Sheet
Sub Auswahlt()
Dim zeile As Long, letzte As Long, letzteB As Long
For zeile = 6 To 31
If Cells(zeile, 17).Value = True Then
If Sheets("Auswahl").Range("A65536").End(xlUp).Row = 5 Then
Range(Cells(zeile, 2), Cells(zeile, 14)).Copy Sheets("Auswahl").Range("B6")
Sheets("Auswahl").Range("A6").Value = 1
Else
Range(Cells(zeile, 2), Cells(zeile, 14)).Copy
Sheets("Auswahl").Range("B65536").End(xlUp).Offset(0, 0).Insert
letzte = Sheets("Auswahl").Range("A65536").End(xlUp).Row
Sheets("Auswahl").Range("A" & letzte + 1).Value = Sheets("Auswahl").Range("A" & letzte) _
.Value + 1
Application.CutCopyMode = False
End If
End If
Next zeile
End Sub
Private Sub CommandButton1_Click()
Call Auswahlt
End Sub
Danke für die Hilfe!