bestimmten Bereich kopieren

Forumthread: bestimmten Bereich kopieren
3 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: bestimmten Bereich kopieren

Xandra

Hallo,
ihr könnt mir doch sicher wieder helfen.
Ich habe ein bestimmtes Datum welches in Spalte A steht und die Zeile als Varaible erhalten. Nun möchte ich diese Zeile und die 11 Zeilen davor kopieren.
Vielen Dank schonmal in Voraus
Grüße

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: bestimmten Bereich kopieren

Rudi
AW: bestimmten Bereich kopieren

Xandra
ist c evtl. Nothing?

Rudi

AW: bestimmten Bereich kopieren

23.02.2010 13:16:36

Rudi

Hallo,
Range(Rows(zeile), Rows(zeile).Offset(-11)).Copy
Gruß
Rudi

AW: bestimmten Bereich kopieren

23.02.2010 15:35:22

Xandra

Ich habe es versucht wie folgt einzubinden:
Set c = Sheets("Historie Auswertung").Range("A:A").Find(Auswertdatum)
c1 = c.Row
If c1"größer" 13 Then
Sheets("Historie Auswertung").Range(Rows(c1), Rows(c1).Offset(-11)).Copy
Sheets("Schreiben").Cells(52, 1).Paste
Else
Sheets("Historie Auswertung").Range(Rows(13), Rows(13).Offset(-11)).Copy
Sheets("Schreiben").Cells(52, 1).Paste
bei mir kommt dann aber immer der Fehler '1004' Anwendungs- oder objektdefinierter Fehler

ist c evtl. Nothing?

23.02.2010 17:36:34

Rudi

Hallo,

  Set c = Sheets("Historie Auswertung").Range("A:A").Find(Auswertdatum)
If Not c Is Nothing Then
c1 = c.Row
If c1 > 13 Then
Sheets("Historie Auswertung").Range(Rows(c1), Rows(c1).Offset(-11)).Copy _
Sheets("Schreiben").Cells(52, 1)
Else
Sheets("Historie Auswertung").Range(Rows(13), Rows(13).Offset(-11)).Copy _
Sheets("Schreiben").Cells(52, 1)
End If
End If

Gruß
Rudi