Microsoft Excel

Herbers Excel/VBA-Archiv

VBA erste leere Zeile - Übertragen

Betrifft: VBA erste leere Zeile - Übertragen von: Hansjörg
Geschrieben am: 04.10.2014 13:43:16

Hallo Excelprofis, brauche wieder einmal EURE HILFE.

Habe ein Tabellenblatt (Wochenplan) in welchem in dem Zellenbereich N32:V37 Daten eingetragen sind.
Diese Daten sollten samt Ihrer bestehenden Formatierung in das Tabellenblatt Übersicht übertragen werden.
Bei jedem erneuten Übertragen der Daten sollten die bereits übertragenen Daten bestehen bleiben und die neu zu übertragenden Daten wieder beginnend in die erste leere Zelle der Spalte A:A eingetragen werden.
Könnt ihr mir BITTE helfen!

Vielen Dank im Voraus!

Hansjörg

  

Betrifft: AW: VBA erste leere Zeile - Übertragen von: Hajo_Zi
Geschrieben am: 04.10.2014 13:56:14

Hallo Hansjörg,

Option Explicit

Sub Kopie()
    Dim Loletzte As Long
    With Worksheets("Übersicht")
        Loletzte = IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(Rows.Count, 1).End(xlUp).Row, . _
Rows.Count) + 1
        Worksheets("Wochenplan").Range("N32:V37").Copy .Cells(Loletzte, 1)
    End With
End Sub
GrußformelHomepage


  

Betrifft: AW: VBA erste leere Zeile - Übertragen von: Hansjörg
Geschrieben am: 04.10.2014 14:11:15

Danke Hajo für Deine superschnelle Antwort!!!

Nur noch ein kleines Problem, beim Kopieren werden die Daten nicht als Wert eingetragen sondern es wird immer die bestehende Zellverknüpfung mitkopiert.
Es darf beim einfügen der Daten nur der Wert übertragen werden, nicht aber die Verknüpfung.

DANKE!!

Hansjörg


  

Betrifft: AW: VBA erste leere Zeile - Übertragen von: Hajo_Zi
Geschrieben am: 04.10.2014 14:20:20

Hallo Hansjörg,

Option Explicit

Sub Kopie()
    Dim Loletzte As Long
    With Worksheets("Übersicht")
        Loletzte = IIf(IsEmpty(.Cells(.Rows.Count, 1)), _
           .Cells(Rows.Count, 1).End(xlUp).Row, .Rows.Count) + 1
        Worksheets("Wochenplan").Range("N32:V37").Copy
        With .Cells(Loletzte, 1)
            .PasteSpecial Paste:=xlValues       ' Werte
            .PasteSpecial Paste:=xlFormats      ' Formate
        End With
    End With
    Application.CutCopyMode = False
End Sub
Gruß Hajo


  

Betrifft: AW: VBA erste leere Zeile - Übertragen von: Hansjörg
Geschrieben am: 04.10.2014 14:30:09

Danke Hajo!!!!

Funktioniert SUPER!!!!


 

Beiträge aus den Excel-Beispielen zum Thema "VBA erste leere Zeile - Übertragen"