| Von |
Tom |
| Am |
20. November 2007 um 12:01:05 |
| Frage |
Hallo!
Ich habe folgenden Code und möchte gerne, dass nur die Inhalte der Spalten A bis W kopiert und in das Blatt Auswertung Auflistung eingefügt werden und nicht so, wie es jetzt programmiert ist, die gesamte Zeile. Bin für Hilfe sehr dankbar, weil ich es einfach nicht hinbekomme.Dim lngSpalteP As Long
Dim wksQuelle As Worksheet
Dim wksZiel As Worksheet
Dim lngZeileQuelle As Long
Dim lngBisZeileQuelle As Long
Dim lngLetzteZeileZiel As Long
lngSpalteP = 6
Set wksQuelle = ThisWorkbook.Worksheets("Geoprü")
Set wksZiel = ThisWorkbook.Worksheets("Auswertung Auflistung")
lngLetzteZeileZiel = wksZiel.Cells(13999, lngSpalteP).End(xlUp).Row
lngBisZeileQuelle = wksQuelle.Cells(13999, lngSpalteP).End(xlUp).Row
For lngZeileQuelle = 6 To lngBisZeileQuelle
If IsDate(wksQuelle.Cells(lngZeileQuelle, lngSpalteP).Value) Then
If CDate(wksQuelle.Cells(lngZeileQuelle, lngSpalteP).Value) >= CDate(ComboBox1.Text) Then
If CDate(wksQuelle.Cells(lngZeileQuelle, lngSpalteP).Value) <= CDate(ComboBox2.Text) Then
lngLetzteZeileZiel = lngLetzteZeileZiel + 1
wksQuelle.Rows(lngZeileQuelle).Copy Destination:=wksZiel.Cells(lngLetzteZeileZiel, 1)
End If
End If
End If
Next Viele Grüße
Tom |
|
Zum Seitenanfang