Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 08:04:28
4-fach verschachtelte WENN-Funktion
22.04.2024 22:36:13
Marko automatisch ausführen
22.04.2024 21:15:10
PQ - Wenn der Jahrgang fehlt, dann...
22.04.2024 16:32:43
Excelformel für Arbeitszeitberechnung 08-16:30 Uhr
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
892to896
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

Links zu Excel-Dialogen

CommandButton

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige