Thema Datum  Von Nutzer Rating
Antwort
Rot .Copy Destination erst ab Zeile x
17.02.2015 08:54:54 Kristian
NotSolved
17.02.2015 12:30:31 Gast41004
NotSolved
17.02.2015 13:12:32 Gast30095
NotSolved

Ansicht des Beitrags:
Von:
Kristian
Datum:
17.02.2015 08:54:54
Views:
611
Rating: Antwort:
  Ja
Thema:
.Copy Destination erst ab Zeile x

Hallo zusammen,

ich habe eine Tabelle in der Inhalte nach Datum sortiert stehen (01.01.2015, 01.02.2015, usw...). Ich möchte jeweils 01.01.2015, 01.02.2015, usw. in ein eigenes Blatt kopieren. Funktioniert auch gut mit dem Code unten. Allerdings sollten jeweils darüber fix ein paar Zeilen stehen, von wegen Monat Januar und eine kurze Beschreibung. Wie kann ich dem VBA sagen, dass er die Zeilen in die Zieltabelle kopieren soll, aber die ersten Zeilen frei lässt, bzw. nicht überschreibt? Bin keine VBA-Leuchte :)...

 

Sub VIst()
 

Dim Zeile As Long
Dim ZeileMax As Long
Dim i As Long

With Tabelle1
ZeileMax = .UsedRange.Rows.Count
n = 1


For Zeile = 2 To ZeileMax
If .Cells(Zeile, 3).Value = "01.01.2015" Then
.Rows(Zeile).Copy Destination:=Tabelle2.Rows(n)
n = n + 1
 

End If
Next Zeile
End With

End Sub

 

Danke euch!!


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot .Copy Destination erst ab Zeile x
17.02.2015 08:54:54 Kristian
NotSolved
17.02.2015 12:30:31 Gast41004
NotSolved
17.02.2015 13:12:32 Gast30095
NotSolved