Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 10:27:00
Zusammenführen / Synchronisieren von zwei Dateien
15.10.2025 09:51:49
Wenns mit Zahl und Buchstaben
15.10.2025 08:22:15
Privat Sub ObjExcel_Sheet Change....deaktivieren
14.10.2025 19:08:54
Verbindung von Excel mit maps
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
892to896
892to896
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Drücken und kopieren bereich

Forumthread: Drücken und kopieren bereich

Drücken und kopieren bereich
07.08.2007 14:02:03
Karel
Hallo
Ich will gerne von Tabelle 1 über eine Button bereich B2:H17 ausdrücken und anschließend auch von Tabelle 1 bereich N3:O3 werte kopieren nach Tabelle 2 nach B3:P3, jede neue Datensatz der kopiert wird muss unter drangehängt werde (untereinander kopieren).
freundliche Grüße
Karel

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Drücken und kopieren bereich
10.08.2007 23:34:00
fcs
Hallo Karel,
ein entsprechendes Makro schaut etwa wie folgt aus. Ich kann allerdings die für das Kopieren vorgesehenen Bereiche nicht ganz nachvollziehen.
Werte aus Tabelle1 Bereich N3:O3 sollen kopiert werden nach Bereich B3:P3 in Tabelle2 und dann immer darunter. N3:O3 sind nur 2 Spalten, B3:P3 sind mehr als 2 Spalten, das funktioniert nicht. Der Zielbereich muss die gleiche Spaltenzahl haben wie der Quellbereich. Das Makro von mir kopiert die Werte aus N3:O3 immer jeweils nach Spalte B und C. ggf. muss du den Bereich für die zu kopierenden Daten und/oder die Spalte ab der die Daten eingefügt werden sollen anpassen.
Gruß
Franz

Private Sub CommandButton1_Click()
Dim wks1 As Worksheet, wks2 As Worksheet
Dim strKopie As String, strDruck As String
Set wks1 = Worksheets("Tab1")
Set wks2 = Worksheets("Tab2")
strDrucken = "B2:H17"
strKopie = "N3:O3"
'Bereich drucken
wks1.Range(strDrucken).PrintOut Copies:=1
'Werte in Bereich nach Tabelle 2 kopieren
wks1.Range(strKopie).Copy
If IsEmpty(wks2.Range("B3")) Then
wks2.Range("B3").PasteSpecial Paste:=xlPasteValues
Else
wks2.Cells(wks2.Rows.Count, 2).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
End If
Application.CutCopyMode = False
End Sub


Anzeige
AW: Drücken und kopieren bereich
Karel
Danke, habe is leicht angepasst
Karel
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige