VBA kopierten Wert in leere Zelle einfüg

Hallo zusammen,

aufgrund meiner recht übersichtlichen VBA-Kenntnisse konnte ich mir zu meinen Problem über die Forumshilfe keine passend Lösung suchen. Vllt möchte/kann mir jemand bei meinen individuellen Problem Helfen.

In der "Tabelle1" ist der Zellbereich E12-G28 mit Informationen gefüllt. Nun möchte ich jeweils den Wert aus Spalte E der ausgewählten Zeile kopieren
und in einen Zellbereich E18-E32 auf Tabellenblatt 2 "Tabelle2" in die nächste freie Zelle in Spalte E einfügen.
Das Makro soll über einen "Button" aktiviert werden.

Soweit bin ich mal

Sub Nav_SNübertragen()

'SN kopieren
Worksheets("Tabelle1").Range("E" & ActiveCell.Row).Copy

'SN übertragen
'Worksheets("Tabelle2").Range( ?????E18-E32?????? ).PasteSpecial (xlPasteValues) ???????

Call Sheetswitch("Tabelle2")

Application.CutCopyMode = False

End Sub

Kann mit meiner doch etwas wirren Erklärung jemand etwas anfangen und mir bitte helfen:) Vorab schon mal tausend dank und Gruß
Selly

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Nav_SNübertragen() 'SN kopieren Worksheets("Tabelle1").Range("E" & ActiveCell.Row).Copy 'War leider nicht genau definiert, bitte nicht zutreffendes ausblenden/löschen Letzte_zeile = Sheets("Tabelle2").Range("E" & Rows.Count).End(xlUp).Row + 1 'Suche der nächsten freizeile am ende der liste, berücksichtigt nicht lücken! Letzte_zeile = Sheets("Tabelle2").Range("E18").End(xlDown).Row + 1 'Suche der nächsten freizeile ab E18 abwärts, berücksichtigt Lücken! 'SN übertragen Sheets("Tabelle2").Range("E" & Letzte_zeile).PasteSpecial xlPasteValues Call Sheetswitch("Tabelle2") Application.CutCopyMode = False End Sub

Sub aaa() Dim r As Range Cells(ActiveCell.Row, 5).Copy On Error Resume Next Set r = Sheets("Tabelle2").Range("E18:E32").SpecialCells(xlCellTypeBlanks)(1) On Error GoTo 0 If Not r Is Nothing Then Cells(ActiveCell.Row, 5).Copy r.PasteSpecial xlPasteValues Else MsgBox "Keine leeren Zellen" End If End Sub

Sub aaa() Dim r As Range On Error Resume Next Set r = Sheets("Tabelle2").Range("E18:E32").SpecialCells(xlCellTypeBlanks)(1) On Error GoTo 0 If Not r Is Nothing Then Cells(ActiveCell.Row, 5).Copy r.PasteSpecial xlPasteValues Else MsgBox "Keine leeren Zellen" End If End Sub

Beliebteste Forumthreads (12 Monate)

VBA kopierten Wert in leere Zelle einfüg

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

313 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA kopierten Wert in leere Zelle einfüg

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

313 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread