Zellen kopieren
23.09.2016 17:38:58
Frank
ich möchte in einer mit Excel 2010 erzeugten Datei eine Spalte auslesen, in der standard-Datumsformate stehen, z.B.: 01.01.2016.
Wenn diese dem aktuellen Jahr entsprechen, soll VBA diese betreffenden Zellen der
Spalte Arbeitsblatt 1 Zeile für Zeile in eine Spalte des zweiten Arbeitsblattes
kopieren.
Das mit der Prüfung bekomm ich hin, aber er schreibt die Daten immer nur in eine Zelle
des zweite Arbeitsblattes.
Diese Zelle überschreibt er dann ständig wieder.
Wie bekommen ichs hin dass er die Daten in dem zweiten Arbeitsblatt untereinander
schreibt ?
Hier das Makro bis jetzt:
Option Explicit
Dim Ende As Variant
Dim i As Integer
Dim Suchdatei As Object
Dim LaufzBeginn As Range
Dim LaufzEnde As Range
Dim Datei As Worksheet
Dim Jahreszahl As Integer
Dim Jahr
Dim D
Dim Zelle As Object
Dim dValue As Double
Dim iCounter As Integer
Dim NextRow
Dim numRows As Long
Dim numColumns As Long
Dim Z As Object
Sub Datum_kopiern()
Sheets("Grunddaten").Select
i = Cells(Rows.Count, 5).End(xlUp).Row
i = i - 2
MsgBox ("Die letzte beschriebene Spalte ist Nr. " & i)
Set LaufzBeginn = Range(Cells(2, 5), Cells(i, 5))
Set LaufzEnde = Range(Cells(2, 6), Cells(i, 6))
LaufzBeginn.Select
Set Zelle = ActiveCell
Jahr = Year(Date)
D = Year(Zelle)
i = 2
For iCounter = 2 To 5
If D = Jahr Then
Zelle.Copy Destination:=Worksheets("Test").Range("A1")
i = i + 1
End If
MsgBox (i)
Next iCounter
MsgBox "Ergebnis: " & Jahr
MsgBox ("Test erfolgreich")
End Sub
Schon mal Danke für Eure Zeit und Mühe !!!
Gruß Frank.