Das Archiv des Excel-Forums

Kopieren und inhalte einfügen Makro

Bild

Betrifft: Kopieren und inhalte einfügen Makro
von: Matty

Geschrieben am: 18.07.2008 14:31:44

Hallo Herber Team!
Ich habe ein Makro mit dem ich aus verschiedenen Einzeltabellenblättern die Werte in eine Liste GESAMT kopiere. Die Spaltenorganisation ist sowohl in den Einzelblättern als auch in dem Tabellenblatt GESAMT die gleiche. Da ich in den Einzellistenblättern mit Formeln arbeite, haut es mir diese nach dem Kopieren in GESAMT durcheinander. Wie muss das MAKRO lauten, um einfach nur die Inhalte der Zellen in Gesamt zu kopieren, sodass in der GESAMT Liste nicht mehr die Formeln aus den Einzelblättern auftauchen!?
Gruß und Tausend Dank für die Hilfe
Matty
Makro:


Sub JoinTab1()
Dim i%, k%, strTab$
Dim Spa As Long
strTab = "Gesamt"      'Name anpassen
strTab2 = "Annahmen"
strTab3 = "Uebersicht"
'alle aktuellen Werte löschen
Sheets("Gesamt").Select
Rows("2:2").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Application.ScreenUpdating = False
For i = 1 To Sheets.Count
If Sheets(i).Name <> strTab Then
If Sheets(i).Name <> strTab2 Then
If Sheets(i).Name <> strTab3 Then
Spa = Sheets(i).Cells(Rows.Count, 1).End(xlUp).Row '1 steht für 1te Spalte also  _
_
A
Sheets(i).Rows("2:" & Spa).Copy Sheets(strTab).Cells(Rows.Count, 1).End(xlUp).  _
_
Offset(1, 0)
k = k + Spa
End If
End If
End If
Next i
Application.ScreenUpdating = True
Sheets("Uebersicht").Select
End Sub


Bild

Betrifft: AW: Kopieren und inhalte einfügen Makro
von: Rudi Maintaire
Geschrieben am: 18.07.2008 15:08:18
Hallo,
so:
Sheets(strTab).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Resize(Spa - 1, 256).Value = _
Sheets(i).Rows("2:" & Spa).Value
Gruß
Rudi

Bild

Betrifft: AW: Kopieren und inhalte einfügen Makro
von: Matty

Geschrieben am: 18.07.2008 16:33:07
Hallo... vielen Dank.
und an welcher Stelle muss die neue Zeile eingesetzt werden!? Was muss ich ersetzen?

Bild

Betrifft: AW: Kopieren und inhalte einfügen Makro
von: Matty
Geschrieben am: 18.07.2008 16:35:28
Alles klar hat sich erledigt. Ich hab´s selbst geschafft! ;-)
Gruß und vielen dank nochmal!
matty

 Bild

Excel-Beispiele zum Thema "Kopieren und inhalte einfügen Makro"

Blätter in andere Arbeitsmappen kopieren download Module von Mappe zu Mappe kopieren download
Arbeitsblatt 40 mal kopieren download Schriftgröße beim Kopieren verdoppeln download
Beim Kopieren auch die Zeilenhöhe und Spaltenbreite übernehmen download Tabellencode nach Kopieren des Blattes löschen download
Arbeitsmappe blitzschnell kopieren download VBE-Namen der Blattmodule beim Kopieren festlegen download
Blattinhalt von einer zur anderen Arbeitsmappe kopieren download Formel bis zur letzten Zeile der Nebenspalte kopieren download
Datei kopieren, wenn noch nicht vorhanden download Zeilenweise von Blatt zu Blatt kopieren download
Erste Druckseite in eine neue Arbeitsmappe kopieren download Durch DoppelKlick Spalte in zweites Arbeitsblatt kopieren download
Teilergebnisse einer Serie von Tabellen in anderes Blatt kopieren download Bei Eintrag in Spalte A aktuelle Zeile kopieren download
Filtern und Kopieren download Zeile mit aktiver Zelle in anderes Blatt kopieren download
Zeilen in Abhängigkeit des Wertes in Spalte A kopieren download Einen von einer Schlüsselziffer abhängigen Bereich kopieren download
Vorgegebene Anzahl von Einträgen in 2. Blatt kopieren download Über InputBox festzulegenden Bereich kopieren download
Passwortgeschützte Mappe öffnen, Daten kopieren, schliessen download Tabellenblatt kopieren und dreistellig fortlaufend numerieren download
Jede zweite Zelle kopieren download Werte aus UserForm-ComboBox suchen und Fundstelle kopieren download
Gruppe von Optionsfeldern kopieren und Makro zuweisen download Nicht zusammenhängenden Bereich in nächste Zeile kopieren download
Wert aus UserForm-TextBox suchen und Fundstelle kopieren download Nur sichtbare Zellen in anderes Arbeitsblatt kopieren download
Zeile in Abhängigkeit zur Eingabe in Blätter kopieren download Werte prüfen und kopieren download
Bei Eintrag von X Zeile in andere Tabelle kopieren download Daten kopieren wenn kein Datum oder Datum > Heute download
Blattinhalte dreier Blätter in neues Blatt kopieren download Kopieren und Umbenennen eines Blattes download
Nur Zeilen mit bestimmtem Inhalt kopieren download Artikelnummern nach Kriterien suchen und Datensätze kopieren download
Bild in zweites Blatt an gleiche Position kopieren download Alle Zeilen ohne Wert in vorgegebener Spalte kopieren download
Bei Eintrag Zeile in 2. Blatt kopieren und Tabellen sortieren download Bildergruppe in anderes Blatt kopieren download
Bei Eingabe Formel in der Nebenspalte nach unten kopieren download Auswahl in andere Arbeitsmappe kopieren, speichern, schließen download
Begriff suchen und Fundzeilen in anderes Blatt kopieren download Aktive Zeile kopieren und löschen download
Datensätze, die öfter als 3 mal vorkommen, kopieren download Den jeweils darüberliegenden Wert in Leerzellen kopieren download
Alle Zeilen mit einem Suchbegriff in nächstes Blatt kopieren download Dateien listen und Blätter in neue Arbeitsmappe kopieren download
Einlesen von Zellinhalten in Variablen download Zellinhalte zeilenweise sortieren download
Textprogramm starten und Inhalte von Zelle A1 eingeben download Wiederherstellung des alten Zellinhaltes bei unerlaubten Werten download
Bereiche in Abhängigkeit eines Zellinhaltes drucken download Die tatsächliche Anzeige eines Zellinhaltes per VBA abrufen download
Zellinhalte in Verbindung mit Variablen in Textdatei schreiben download Zellinhalte aus Einzelblättern in Deckblatt übertragen download
Excel-Zellinhalte in Worddokument einlesen um per Email versenden download Zellinhalte über VBA verbinden download
Zellinhalte vor dem Verbinden der Zellen zusammenfassen download In mehrere Spalten doppelte Inhalte entfernen download
UserForm-TextBox-Inhalte mit Grafik-Hyperlinks einfügen download Zellinhalte in MultiPage-TextBoxes einlesen download
Benennung und Aktivierung von CheckBoxes gem. Zellinhalten download Tabellenblattinhalte in getrennten Textdateien speichern download
Schaltflächen gem. Tabelleninhalten anlegen und benennen. download In Namensliste TextBox-Inhalte suchen download
Aufteilen mehrzeiliger Zellinhalte in UserForm-ListBox download Formate und Zellinhalte ausblenden download
Textinhalte zusammenfügen download