Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Einfügen in Bereich mit definiertem Namen

Einfügen in Bereich mit definiertem Namen
20.05.2009 21:35:17
Beni
In Tabelle Offerte ist der Name "Bereich"vergeben. A9:H17 aus Tabelle Preis sollten in den "Bereich" eingefügt werden, jeweils in die nächste leere Zelle. Nur geht das so nicht.
Vielen Dank für eure Hilfe
Sheets("Preis"). Range("A9:H17")
Selection.Copy
Range("Bereich").Cells(Rows.Count, 3).End(xlUp).Offset(2, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Einfügen in Bereich mit definiertem Namen
20.05.2009 21:48:34
Peter
Hallo Beni,
versuch es so:

Public Sub Einfuegen()
Dim rZelle As Range
For Each rZelle In Range("Bereich")
If Trim(rZelle.Value) = "" Then
Selection.Copy
rZelle.PasteSpecial Paste:=xlPasteValues
Exit For
End If
Next rZelle
End Sub


Gruß Peter

Anzeige
AW: Einfügen in Bereich mit definiertem Namen
20.05.2009 22:10:26
Beni
Guten Abend Peter. Vielen Dank für deine Hilfe. Leider komme ich mit VBA gar nicht zurecht.
Wo muss ich den Kopierbereich definieren (Tabelle Preis A9:H17)? Und wie kann ich eine Leerzeile zwischen der nächsten leeren Zeile definieren.
Sorry geht alleine nicht.

Forumthreads zu verwandten Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige