Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

prüfe ob Zelle leer dann einfügen
#11
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 Heart
Antworten Top
#12
Hallo Claudia,

Zitat:@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
[-] Folgende(r) 1 Nutzer sagt Danke an Kuwer für diesen Beitrag:
  • claudia
Antworten Top
#13
Hallo Uwe,

kannst Du ein Paar Worte über den Einsatz von Application.Max in Deinem Beispiel verlieren.
Gruß Atilla
Antworten Top
#14
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
Antworten Top
#15
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:
Zitat:und so geht es garantiert erst ab Zeile 5 los

Ich hatte bisher dann eine If Abfrage eingebaut. Wieder etwas "trivial" effektives dazu gelernt.
Gruß Atilla
Antworten Top
#16
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
Antworten Top
#17
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...Blush

lg claudia


Angehängte Dateien
.xlsm   LetzteZeileKopieren.xlsm (Größe: 10,18 KB / Downloads: 3)
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste