prüfe ob Zelle leer dann einfügen

[claudia]

Ich danke euch erstmal für eure Hilfe.
Sorry für die verspätete Nachricht, ich habe leider nur an der Arbeit meine Login-Daten und kann von
zu Hause nicht weiter arbeiten.

@Kuwer dein letzter Code überschreibt die letzte Zeile und kopiert es nicht in eine "neue leere" Zeile
der erste Code funktioniert 100% genau so wie ich es mir vorgestellt habe. Fügt die kopierten Daten
in die letzte und leere Zeile :28:

Danke

[Kuwer]

Hallo Claudia,

@Kuwer dein letzter Code überschreibt die letzte Zeile und kopiert es nicht in eine "neue leere" Zeile

stimmt, das hatte ich vergessen.

So wäre es korrekt:

Code:

Sub ErsteFreieVonUntenAbZeile5()
  With Worksheets("Früh")
    Worksheets("Eingabe").Range("A6,C6,D6,E6,F6,J6,K6").Copy .Cells(Application.Max(5, .Cells(Rows.Count, 2).End(xlUp).Row + 1), 2)
  End With
End Sub

Gruß Uwe

[atilla]

Hallo Uwe,

kannst Du ein Paar Worte über den Einsatz von Application.Max in Deinem Beispiel verlieren.

[Kuwer]

Hallo Atilla,

Application.Max ist die normale Excelfunktion MAX(),welche hier den größeren Wert von 5 fest eingetragen und der ermittelten letzten Zeile zurückgibt.

Gruß Uwe

[atilla]

Hallo Uwe,

Danke für Deine Erklärung.
Die Funktion ist mir bekannt, aber ich hatte nicht verstanden, warum das hier eingesetzt wird.

Mit Deiner Erklärung verstehe ich jetzt auch Deine vorige Aussage:

und so geht es garantiert erst ab Zeile 5 los

Ich hatte bisher dann eine If Abfrage eingebaut. Wieder etwas "trivial" effektives dazu gelernt.

[Max]

Hi,

so geht's auch

Code:

Sub WerteInErsteFreieZeileInSpalteBEinfügen()

With Tabelle1

    Tabelle2.Range("A6,C6,D6,E6,F6,J6,K6").Copy .Range("B" & .Cells(.Rows.Count, 2).End(xlUp).Row + 1)

End With

End Sub

Gruß
Max

[claudia]

Hallo :19:

ich bins wieder und habe wieder ein Problem mit der Kopiere Funktion und hoffe ihr könnt mir erneut hierbei weiterhelfen :29:

Ich habe versucht die Lösung von meinem letzten Problem anzupassen, leider habe ich das nicht hinbekommen..
Diesmal sollen die Zellen von Tabelle1:
Typ
"B12"
Beschreibung
"D12" bis "D27"
Anzahl
"F12"

in Tabelle2 kopiert werden. Dabei soll erneut die letzte Zeile ermittelt und drunter eingefügt werden. Ich habe eine Testversionn mit hochgeladen und
die Wunschlösung habe ich grün markiert wie es fertig aussehen soll.
Ich hoffe ihr könnt mir ein paar Tipps geben.

Danke Euch schonmal...

lg claudia