Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1676to1680
1676to1680
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

Zellwerte aus Tabellenblättern kopieren

Forumthread: Zellwerte aus Tabellenblättern kopieren

Zellwerte aus Tabellenblättern kopieren
04.03.2019 11:46:09
Gerhard
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
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellwerte aus Tabellenblättern kopieren
04.03.2019 12:07:21
hary
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
Anzeige
AW: Zellwerte aus Tabellenblättern kopieren
04.03.2019 12:10:47
Bernd
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
Anzeige
AW: Zellwerte aus Tabellenblättern kopieren
04.03.2019 12:15:46
EtoPHG
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
Anzeige
AW: Zellwerte aus Tabellenblättern kopieren
04.03.2019 13:50:06
Gerhard
Hallo zusammen,
Vielen Dank für Eure schnelle Hilfe
Die Makros funktionieren Alle
Vielen Dank
Gruß Gerhard

Forumthreads zu verwandten Themen

Makro funktioniert nicht richtig, Werte auslesen
Uwe

Hallo zusammen, habe folgendes Problem in dem beigefügtem Makro funktioniert es nicht das er die Werte 2 und 3 aus der Tabelle ausliest. Wert 1 geht wunderbar. Hat jemand eine Lösung?
Hallo Uwe,
unregelmäßig aufgebaute Tabellen per Makro abzuarbeiten ist immer ziemlich aufwendig zu prog...
07.11.2008 09:22:00
Thread-ID: 1022502
1 Beitrag
Spalten in 2 Tabellen vergleichen, aus andere Spalte Werte übernehmen
MaMe

Hallo zusammen, bin grade recht ratlos...
habe einige Formeln gefunden, die ich tw. verwenden kann - aber eben nicht so wie ich es bräuchte - kriege z.B. als Ergbenis nur 'ja / nein', jedoch nicht den Wert...
"meine" Formel: {=WENN(SUMME(ISTZAHL(SUCHEN(L10;Tabelle2$D:$D))*1);"ja";"off...
26.11.2019 19:55:29
Thread-ID: 1725684
2 Beiträge
Formeln und Formatierung übernehmen
maruseru

Hallo zusammen
Nochmals möchte ich mich für die bisherige Hilfe hier im Forum bedanken.
Ich habe aus einer anderen Arbeitsmappe jeweils eine Zeile (nur Werte) aus Tabelle 1 und 2 in die erste leere Zeile auf der aktuellen Mappe in die Tabellen ziel1 und ziel2 kopiert. Num möchte ich ger...
03.09.2007 20:02:00
Thread-ID: 903321
2 Beiträge
Anzeige
automatisierter Vergleich zweier untersch. Tabellen in Excel
koko15000
Hallo Liebe Community,

vielen Dank an jeden im voraus, der sich zeit für mein Problem nimmt!!

In Tabelle 1 stehen in jeder Zeile die Komponenten eines Artikels. Max. 18 Komponenten in der "Komp1 , 2 , ... 18 Spalte" , fängt fast immer mit L... an.

Diese Komponenten pro Art...
24.09.2023 16:49:18
Thread-ID: 1947196
5 Beiträge
Hilfe!!!
Keis

Ich habe ein riesen Problem. Ich bin gerade Praktikant in einer großen Firma und hab gerade eine Aufgabe in Excel bekommen. Da ich eine ziemliche Niete in Excel bin und grad am verzweifeln bin wie ich das hinbekommen soll, wollte ich fragen, ob ihr mir helfen könnt!
Also das Problem ist fol...
17.09.2008 12:10:44
Thread-ID: 1010256
14 Beiträge
Anzeige
Makro funktioniert nicht richtig
mike49
Hallo Leute,
ich habe ein Löschen-Makro, das in den Blättern Jan-Dez den Bereich E6:H36 und die Zelle R6 löschen soll.
Beim Drücken des Löschen-Buttons in einem Monatsblatt gehen auch die msg-Boxen auf und am Ende kommt auch die Meldung, dass alle Blätter auf Null gesetzt wurden, wenn dies g...
26.10.2022 22:11:40
Thread-ID: 1904586
27 Beiträge
aus Pivottab. Werte übernehmen
Swen

Hallo Excelexperten,
ich habe ein Problem mit der Datenübernahme aus einer Pivottabelle.
Wie geschrieben stehen die Werte in einer Pivottabelle und werden öfters aktualisiert.
Nun brauche ich diese Werte auch in einer anderen normalen Tabelle.
Die Werte habe ich am Anfang mit ="...
06.06.2007 22:53:31
Thread-ID: 876128
2 Beiträge
Anzeige
Datenimport aus anderen Excel-Tabellen
Martin

Hallo zusammen,
In einer Summendatei möchte ich Werte aus anderen Excel-Tabellen übernehmen. Der Name der Datei setzt sich aus dem Mitgliedsnamen zusammen, der Wert steht immer in einer bestimmten Zelle der Quelldatei. Die Quelldateien sollen dabei im Unterordner Punktelisten stehen. Zum Be...
05.01.2015 08:02:36
Thread-ID: 1400786
7 Beiträge
Zellen formatierung
malte

Guten Tag,
ich habe ein kleines Problem. In meinem Excel Dokument befinden sich cirka 6 Mappen. 3 davon sind sogenannte Plots (Tabellen, deren Form ein bestimmtes Bauteil darstellen). Die jeweiligen Zellen-Einträge im Plot sind mit einer Zelle auf einer anderen Mappe verlinkt. Innerhalb die...
17.11.2008 13:36:35
Thread-ID: 1025168
2 Beiträge
Werte und Formate aus Datei auslesen
Anita
Hallo zusammen,
Ich hatte letzte Woche bereits folgendes Problem hier angefragt:
Ich habe 2 Tabellen: Tabelle 1 enthält alle Werte in Spalte A-P. Ich möchte nun bei Eingabe eines Wertes in Tabelle 2 Spalte P diese Eingabe mit den Inhalten in Tabelle 1 Spalte P vergleichen und die komplette...
28.01.2004 10:05:20
Thread-ID: 371999
1 Beitrag
Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.05.2026 19:23:24
VBA - Blattschutz lässt sich mit Code nicht ausschalten
17.05.2026 13:47:03
Laufende Uhrzeit in einer Zelle
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum