Microsoft Excel

Herbers Excel/VBA-Archiv

Zellwerte aus Tabellenblättern kopieren


Betrifft: Zellwerte aus Tabellenblättern kopieren von: Gerhard
Geschrieben am: 04.03.2019 10:46:09

Hallo zusammen
Ich benötige wieder einmal Eure VBA Kenntnisse!

Es sollen aus allen Tabellenblättern jeweils die Zellen A1 und N1
in das Tabellenblatt Übersicht
untereinander kopiert werden.
(Achtung:Täglich kommen neue Tabellen hinzu!)

siehe beiliegende Testmappe

Vielen Dank für Eure Hilfe
Gruß Gerhard

https://www.herber.de/bbs/user/128084.xlsm

  

Betrifft: AW: Zellwerte aus Tabellenblättern kopieren von: hary
Geschrieben am: 04.03.2019 11:07:21

Moin
Eine Moeglichkeit.

Sub einfuegen()
Dim wks As Worksheet
Dim naechste As Long
With Worksheets("Übersicht")
  .Range("A:B").ClearContents
    For Each wks In Worksheets
     If wks.Name <> "Übersicht" Then
       naechste = IIf(.Cells(1, 1) = "", 1, .Cells(Rows.Count, 1).End(xlUp).Row + 1)
        Union(wks.Range("A1"), wks.Range("N1")).Copy
        .Cells(naechste, 1).PasteSpecial Paste:=xlValues
      End If
    Next
End With
End Sub

gruss hary


  

Betrifft: AW: Zellwerte aus Tabellenblättern kopieren von: Bernd
Geschrieben am: 04.03.2019 11:10:47

Servus Gerhard,

teste mal...

Sub test()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
    If ws.Name <> "Übersicht" Then
        ws.Cells(1, 1).Copy Destination:=Sheets("Übersicht").Cells(Sheets("Übersicht").Cells( _
Rows.Count, 1).End(xlUp).Row + 1, 1)
        ws.Cells(1, 14).Copy Destination:=Sheets("Übersicht").Cells(Sheets("Übersicht").Cells( _
Rows.Count, 2).End(xlUp).Row + 1, 2)
    Else
        ws.UsedRange.ClearContents
    End If
Next ws
End Sub
Grüße, Bernd


  

Betrifft: AW: Zellwerte aus Tabellenblättern kopieren von: EtoPHG
Geschrieben am: 04.03.2019 11:15:46

Hallo Gerhard,

Diesen Code in das Tabellenblatt "Übersicht"

Private Sub Worksheet_Activate()
    Dim wsIx As Long
    If WorksheetFunction.CountA(Columns(1)) <> ThisWorkbook.Worksheets.Count Then
        For wsIx = 2 To ThisWorkbook.Worksheets.Count
            Worksheets(wsIx).Cells(1, 1).Copy Cells(wsIx - 1, 1)
            Worksheets(wsIx).Cells(1, 14).Copy Cells(wsIx - 1, 2)
        Next wsIx
    End If
End Sub
Es ist ein Blattwechsel von "Übersicht" zu anderem Blatt und zurück nötig, damit der Code die Daten nachführt.

Gruess Hansueli


  

Betrifft: AW: Zellwerte aus Tabellenblättern kopieren von: Gerhard
Geschrieben am: 04.03.2019 12:50:06

Hallo zusammen,
Vielen Dank für Eure schnelle Hilfe
Die Makros funktionieren Alle

Vielen Dank
Gruß Gerhard


Beiträge aus dem Excel-Forum zum Thema "Zellwerte aus Tabellenblättern kopieren"