Terminplanung in Excel mit Hilfe von VBA

Question

Erstmals Hallo Zusammen. Schreibe zum ersten Mal in das Forum und hoffe natürlich auf eure Mithilfe.... :D Schon mal vorweg, VBA und ich haben uns erst kennengelernt. Falls ich dann das Glück habe eine Antwort zu kriegen, wäre ich froh um eine klare Beschreibung wo ich die Codes hinkopieren soll. So, nun zu meinem Problem. Ich möchte in Excel eine Terminplanung machen. Aus einer externen Tabelle kopiere ich über ein bestehendes Makro Daten in meine Mappe "Import".
In meiner Mappe "Eingaben" sind dann die für die Planung erforderlichen Daten aus "Import" verlinkt. Zusätzlich kann der Benutzer hier noch das Startdatum, zugewiesener Mitarbeiter und Automation ja/nein (wichtig für die Laufzeit) anwählen.
Mit einem bestehenden Makro kopiere ich diese Daten in die Mappe "Hilfstabelle".
Hier der Code (hab ich über Google gefunden)
___

Dim wksQuelle As Worksheet, wksZiel As Worksheet, strPW As String
Dim Passwort As Long


With ActiveWorkbook
Set wksQuelle = .Worksheets("EINGABEN")
Set wksZiel = .Worksheets("Hilfstabelle")
End With
strPW = "Passwort"
wksZiel.Unprotect Password:=Passwort
wksQuelle.Range("R1:Z2000").Copy
With wksZiel
.Cells(1, 18).PasteSpecial Paste:=xlPasteFormats
.Cells(1, 18).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
.UsedRange.Locked = True
.Protect Password:=Passwort
End With

Application.CutCopyMode = False
___

Das Problem hier ist, dass mit diesem Code Leerzeilen überschrieben werden. Ich lösche jedesmal Spalte R:Z (Code nicht angehängt, ist aber so ;)) in der Mappe "Eingaben" wenn ich das Makro ausführe. Das heisst beim nächsten Ausführen, werden die Leerzeilen mitkopiert und meine "Hilfstabelle" ist wieder leer.... so ein *#% .... :D Ich möchte, das natürlich Leerzeilen nicht berücksichtigt werden und somit nicht mitkopiert werden.

Hoffe mal ihr könnt mir hier helfen. Ach ja, finde das eigentlich noch recht schön (hoffe das habe ich richtig kapiert) dass im Code ein Blattschutz mitdrin ist. Also bitte so belassen... hehe


Kann mir hier jemand helfen?

Answer 1

Hallo,

du kopierst den Bereich R1 bis Z2000 in deine Hilfstabelle, soweit habe ich deine Problemstellung verstanden. Wo sind denn die leeren Zellen? Sind die zwischen den zu kopierenden Zellen oder kopierst du einfach den ganzen Bereich, auch wenn nur 200 Zeilen beschrieben sind und hast dann am Schluss die Leerzeilen?

Ich lösche jedesmal Spalte R:Z (Code nicht angehängt, ist aber so ;)) in der Mappe "Eingaben" wenn ich das Makro ausführe. Das heisst beim nächsten Ausführen, werden die Leerzeilen mitkopiert und meine "Hilfstabelle" ist wieder leer

Das verstehe ich nicht. Du kopierst doch diese Spalten aus dem Tabellenblatt "Eingaben"?
Du sprichst auch immer von Mappen, in deinem Makro werden aber nur Tabellenblätter angesprochen.

Also versuch dein Problem bitte so zu erklären, dass jemand, der deine Tabellenblätter nicht kennt, auch nachvollziehen kann, was du eigentlich willst.
Vielleicht könntest du auch mal eine Beispieldatei mit ein paar Dummydaten auf einen Hoster deiner Wahl (z.B. hier) hochladen und darin Ist- und Soll-Zustand darstellen.

Gruß

M.O.