Servus zusammen,

ich hätte eine Frage zum kopieren von Werten ohne leere Zellen.

Und zwar habe ich eine Tabellenübersicht mit den Feiertagen der Jahre 2016-2024.

2016               2017              2018              2019              ...

01.01.16     01.01.17            usw.

06.01.16     06.01.16

_______     _______

25.03.16     14.04.16

Nun möchte ich nach einer Abfrage des gewünschten Jahres zunächst die Spalte auswählen. ( Das schaffe ich noch ;))

Jetzt möchte ich abhängig davon welches Jahr gewählt wurde die Werte darunter in eine zweite Tabelle kopieren ohne die leeren Zellen (Hier mit "_____" gekennzeichnet).

In der zweiten Tabelle sollen die Werte dann untereinander angezeigt werden ohne die leeren Felder in der 1. Tabelle.

Mal so als Ansatz von mir, funktioniert leider noch nicht so wie ich es gerne hätte.

Dim info1 As String
Dim info2 As String
Dim info3 As String
Dim TP_Beschreibung As String
Dim i As Integer
Dim z As Integer
Dim k As Integer
Dim rng As Range
Dim jahr As Integer

Application.ScreenUpdating = False
ActiveSheet.Unprotect ("mvi")
Range("D60:D73").Select
Application.CutCopyMode = False
Selection.ClearContents

'Initialisierung der  Variablen
    i = 1
    z = 60
    k = 6
    
'XXXXXXXXXXXXXXXXX
jahr = InputBox("Geben Sie das gewünschte Jahr ein")
Worksheets("Feiertage").Select
Cells(5, 1).Select

Do While ActiveCell <> jahr
    ActiveCell.Offset(0, 1).Select
Loop




If z < 74 Then
    For i = 1 To 29
        If Cells(k, 2) = "" Then
            k = k + 1
            Else
            Worksheets("Feiertage").Cells(k, 2).Copy
            Worksheets("Einsatzplanung " & jahr).Cells(z, 4).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
            'Application.CutCopyMode = False
            k = k + 1
            z = z + 1
        End If
    Next i
Else
Exit Sub
End If

Worksheets("Einsatzplanung " & jahr).Select

Ich hoffe es ist soweit verständlich was ich meine.

Vielen Dank euch schon vorab!

Gruß,

Raphael