Alle Daten der Tabelle kopieren

Sub MarkierenAbZeile8() Sheets("Quelle").Activate Range(Range("B8"), _ Range("B8").End(xlDown)).EntireRow.Select End Sub Wenn ich die kopierten Daten (per Hand/ohne Makro)in z.B. ab P448 einfügen möchte, dann kommt Fehlermeldung, "..da der Bereich Kopieren und der Bereich zum Einfügen _ unterschiedliche Formen und Größen haben". Warum, habe ich verstanden (Zeile ab A passt nicht in Zeile ab P), aber keine Idee, wie ich das _ _ _ _ mit dem Kopieren ab Spalte B machen soll und vor allem nur bis Spalte L ! Hiiilfe!! Frage1:warum kopiert mein Makro alle Daten ab Spalte A obwohl ich Range B8 angegeben habe? Frage2: wie Einfügen, um die Zielformatierung zu behalten? Frage3: kann jmd. mein Problem besser lösen? Falls ja, könntet Ihr mit Kommentar hinzufügen, _ was die Befehle bewirken, ich möchte das gern verstehen und lernen? Das wäre echt nett!! Vielleicht erbarmt sich ja jemand? Herzlichen Dank, Martina

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Sub Kopiere() Dim Loletzte& With Worksheets("Quelle") Loletzte = .Cells(.Rows.Count, 12).End(xlUp).Row If Loletzte > 8 Then .Range("B8:L" & Loletzte).Copy End With Worksheets("Ziel").Range("P448").PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False End Sub

Option Explicit Sub Kopiere() Dim Loletzte& Dim Loletzte1& With Worksheets("Quelle") Loletzte = .Cells(.Rows.Count, 12).End(xlUp).Row If Loletzte > 7 Then .Range("B8:L" & Loletzte).Copy End With With Worksheets("Ziel") Loletzte1 = .Cells(.Rows.Count, 16).End(xlUp).Row + 1 .Cells(Loletzte1, 16).PasteSpecial Paste:=xlPasteValues End With Application.CutCopyMode = False End Sub

Hallo Mathhias,
Danke, dass du dich noch mal gemeldet hast!
Bestimmt hast du auch mal am Anfang gestanden, wie ich. Momentan kann ich verstandeswegen deine Antwort überhaupt nicht unterbringen.
(ich denke: ThisWorkbook kommt doch gar nicht in deinem Code vor? oder: soll das Makro unterwegs mal prüfen, welche Datei gerade gemeint ist?...sicher hast du das nicht so gemeint, wollte nur verständlich machen, dass ich sicher nicht das verstehe, was du mir mitteilen möchtest.)
Deshalb nochmal ganz von vorne:
Ich hatte dein Makro ausprobiert. Das funktionierte nur, wenn ich beide Arbeitsblätter in der (Quell-)Datei hatte, in welcher ich das Makro eingebaut hatte.
Dort spreche ich mit deinem Makro doch beide Tabellenblätter an [with worksheets("Quelle")]
Bei meiner Problematik geht es doch an dieser Stelle erstmal um ein workbook oder? (Quelldatei)!
müßte Excel nicht zur Quelldatei wechseln, dort die loletzte kopieren und dann wieder zur bekannten ZielDATEI wechseln und dort die Zeilen loletzte1 einfügen? (siehe deine Variablen).
Oder verstehe ich das Ganze vollkommen falsch? Wenn ja, könntest du mir bitte sagen, ob dein obiges Makro in meinem Fall funktioniert? Ich bekomme das nicht hin.
Leider bin ich auch noch nicht in der Lage, irgendwas zu prüfen.., weil mir die Befehle noch nicht so geläufig sind. Vielleicht habe ich mich in meiner Beschreibung des Ablaufs, für den ich eine Prozedur benötige (s. gaanz oben) auch falsch ausgedrückt?
Danke im voraus für deine Geduld!!
Martina

Hallo Martina,
mit dem folgenden Code, er gehört in deine Mappe in der du die Daten sammeln willst, sollte es klappen.
Die Quell-Datei kannst du per Dialog auswählen.
Bitte vorher noch die Tabellennamen anpassen!

' **********************************************************************
' Modul: Modul2  Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub copyData()
  Dim objWB As Workbook, objSH As Worksheet, rng As Range
  Dim strFile As String
  Dim lngLast As Long, lngNext As Long
  Dim bolOpen As Boolean
  
  On Error GoTo ErrExit
  
  With Application
    .ScreenUpdating = False
    .EnableEvents = False
    .Calculation = xlManual
    .DisplayAlerts = False
  End With
  
  With Application.FileDialog(msoFileDialogFilePicker)
    .InitialFileName = "E:\Forum" 'Startverzeichnis
    .Title = "Datei auswählen"
    .ButtonName = "Auswahl..."
    .InitialView = msoFileDialogViewList
    If .Show = -1 Then strFile = .SelectedItems(1)
  End With
  
  If strFile <> ThisWorkbook.FullName Then
    If Len(strFile) Then
      For Each objWB In Application.Workbooks
        If objWB.FullName = strFile Then
          bolOpen = True
          Exit For
        End If
      Next
      
      If objWB Is Nothing Then Set objWB = Workbooks.Open(strFile)
      
      Set objSH = ThisWorkbook.Sheets("Tabelle1") 'Tabellenname der Ziel-Tabelle anpassen!
      
      With objWB.Sheets("Tabelle2")  'Tabellenname der Quell-Tabelle anpassen!
        lngLast = Application.Max(8, .Cells(.Rows.Count, 2).End(xlUp).Row)
        lngNext = objSH.Cells(objSH.Rows.Count, 16).End(xlUp).Row + 1
        
        Set rng = .Range(.Cells(8, 2), .Cells(lngLast, 12))
        
        objSH.Cells(lngNext, 16).Resize(rng.Rows.Count, rng.Columns.Count) = rng.Value
      End With
      If Not bolOpen Then objWB.Close True
    End If
  End If
  
  ErrExit:
  
  With Err
    If .Number <> 0 Then
      MsgBox "Fehler in Prozedur:" & vbTab & "'copyData'" & vbLf & String(60, "_") & _
        vbLf & vbLf & IIf(Erl, "Fehler in Zeile:" & vbTab & Erl & vbLf & vbLf, "") & _
        "Fehlernummer:" & vbTab & .Number & vbLf & vbLf & "Beschreibung:" & vbTab & _
        .Description & vbLf, vbExclamation + vbMsgBoxSetForeground, _
        "VBA - Fehler in Prozedur - copyData"
      .Clear
    End If
  End With
  
  On Error GoTo 0
  
  With Application
    .ScreenUpdating = True
    .EnableEvents = True
    .Calculation = xlAutomatic
    .DisplayAlerts = True
    .StatusBar = False
  End With
  
  Set objSH = Nothing
  Set objWB = Nothing
End Sub

Gruß Sepp

' ********************************************************************** ' Modul: Modul2 Typ: Allgemeines Modul ' ********************************************************************** Option Explicit Sub copyData() Dim objWB As Workbook, objSH As Worksheet, rng As Range Dim strFile As String Dim lngLast As Long, lngNext As Long On Error GoTo ErrExit With Application .ScreenUpdating = False .EnableEvents = False .Calculation = xlManual .DisplayAlerts = False End With With Application.FileDialog(msoFileDialogFilePicker) .InitialFileName = "E:\Forum" 'Startverzeichnis .Title = "Datei auswählen" .ButtonName = "Auswahl..." .InitialView = msoFileDialogViewList If .Show = -1 Then strFile = .SelectedItems(1) End With If strFile <> ThisWorkbook.FullName Then If Len(strFile) Then For Each objWB In Application.Workbooks If objWB.FullName = strFile Then Exit For Next If objWB Is Nothing Then Set objWB = Workbooks.Open(strFile) Set objSH = ThisWorkbook.Sheets("Tabelle1") 'Tabellenname der Ziel-Tabelle anpassen! With objWB.Sheets("Tabelle2") 'Tabellenname der Quell-Tabelle anpassen! lngLast = Application.Max(8, .Cells(.Rows.Count, 2).End(xlUp).Row) lngNext = objSH.Cells(objSH.Rows.Count, 16).End(xlUp).Row + 1 Set rng = .Range(.Cells(8, 2), .Cells(lngLast, 12)) objSH.Cells(lngNext, 16).Resize(rng.Rows.Count, rng.Columns.Count) = rng.Value End With objWB.Close True End If End If ErrExit: With Err If .Number <> 0 Then MsgBox "Fehler in Prozedur:" & vbTab & "'copyData'" & vbLf & String(60, "_") & _ vbLf & vbLf & IIf(Erl, "Fehler in Zeile:" & vbTab & Erl & vbLf & vbLf, "") & _ "Fehlernummer:" & vbTab & .Number & vbLf & vbLf & "Beschreibung:" & vbTab & _ .Description & vbLf, vbExclamation + vbMsgBoxSetForeground, _ "VBA - Fehler in Prozedur - copyData" .Clear End If End With On Error GoTo 0 With Application .ScreenUpdating = True .EnableEvents = True .Calculation = xlAutomatic .DisplayAlerts = True .StatusBar = False End With Set objSH = Nothing Set objWB = Nothing End Sub

Beliebteste Forumthreads (12 Monate)

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread