Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.04.2024 21:55:37
Preiserhöhung über mehrere Jahre berechnen
17.04.2024 20:19:32
Endzeitpunkt berechnen aus d:hh:mm errechnen
17.04.2024 18:57:33
Errinnerungsfunktion
17.04.2024 16:56:58
Stunden addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1152to1156
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
1152to1156
1152to1156
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen markieren und per VBA kopieren

Zeilen markieren und per VBA kopieren
Stefan
Hallo,
folgendes Problem:
ich habe mit folgendem Code (der mir hier netterweise zur Verfügung gestellt wurde):
Sub myCopy2()
Dim lngLastRow As Long
With Workbooks("Mappe1").Sheets(1)
lngLastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
Selection.Copy Destination:=.Cells(lngLastRow, 1).Offset(1, 0)
End With
End Sub
aus verschiedenen Quelldateien versucht markierte Zeilen in eine Zieldatei zu kopieren. Dabei wurden
die Daten aber überschrieben anstatt anzuhängen. Ich nutze Excel 2007. Kann mir jemand einen Tip geben was hier falsch gelaufen sein könnte? Bei einem vorherigen Test mit Excel2002 hat es noch geklappt. Ich habe keine Ahnung was schief gelaufen ist.
Vielen Dank
Stefan
AW: Zeilen markieren und per VBA kopieren
01.05.2010 07:12:22
fcs
Hallo Stefan,
dein Makro funktioniert ggf. nicht korrekt, wenn in Spalte A leere Zellen vorkommen.
Verwende eine der beiden Varianten zur Ermittlung der letzten Zeile mit Daten in der Zieltabelle.
Gruß
Franz 
Sub aamyCopy2()
Dim lngLastRow As Long
With Workbooks("Mappe1").Sheets(1)
lngLastRow = .UsedRange.Row + .UsedRange.Rows.Count - 1
'  lngLastRow = .Cells.SpecialCells(xlCellTypeLastCell).Row
Selection.Copy Destination:=.Cells(lngLastRow, 1).Offset(1, 0)
End With
End Sub

AW: Zeilen markieren und per VBA kopieren
04.05.2010 15:04:13
Stefan
Hallo,
dein Code funktioniert hervorragend. Hat mir sehr geholfen. Herzlichen Dank nochmal. Aber ich hätte noch ein Problem:
Gibt es die Möglichkeit die Zieldatei vor dem Kopieren automatisch zu öffnen und nach dem Kopieren wieder zu schließen, sodaß der Anwender mit dem Öffnen und Schließen der Zieldatei nichts mehr zu tun hat und die Ziedatei nicht ständig geöffnet sein muß?
Viele Grüße
Stefan
Anzeige
AW: Zeilen markieren und per VBA kopieren
04.05.2010 18:51:51
fcs
Hallo Stefan,
im Prinzip ja, setzt aber vorraus, dass alle Anwender mit dem gleichen Dateinamen arbeiten bzw. der Dateianame muss mit allgemeinen Parametern so erstellt werden, dass er bei jedem Anwender funktioniert.
Außerdem muss dann der logische BAlauf im Makro angepasst werden.
Gruß
Franz 
Sub aamyCopy2()
Dim lngLastRow As Long, wbZiel As Workbook, sDateiname, rngBereich As Range
On Error GoTo Fehler
sDateiname = "C:\users\Public\Test\Mappe1.xls"
Application.ScreenUpdating = False
Application.Interactive = False
Application.StatusBar = "Kopiervorgang läuft!"
Set rngBereich = Selection 'Selektion merken
'Zieldatei öffnen
Set wbZiel = Workbooks.Open(Filename:=sDateiname)
With wbZiel.Worksheets(1)
lngLastRow = .UsedRange.Row + .UsedRange.Rows.Count - 1
'  lngLastRow = .Cells.SpecialCells(xlCellTypeLastCell).Row
rngBereich.Copy Destination:=.Cells(lngLastRow, 1).Offset(1, 0)
End With
'Zieldatei speichern und schließen
wbZiel.Close savechanges:=True
Fehler:
Application.StatusBar = False
Application.ScreenUpdating = True
Application.Interactive = True
With Err
Select Case .Number
Case 0
Case Else
MsgBox "Fehler-Nr.: " & .Number & vbLf & .Description
End Select
End With
End Sub

Anzeige
AW: Zeilen markieren und per VBA kopieren
05.05.2010 20:10:18
Stefan
Hallo,
Vielen Dank für deine Mühe, ich werde es ausprobieren und dir Nachricht geben. Auf jeden Fall
Herzlichen Dank
Viele Grüße
Stefan
AW: Zeilen markieren und per VBA kopieren
05.05.2010 20:47:17
Stefan
Hallo nochmal,
ich habs ausprobiert und funktioniert, vielen Dank. Allerdings werden die kopierten Daten oben eingefügt und nicht unten angehängt. Das ist aber im Prinzip nicht weiter tragisch. Sollte es aber gehen, daß sie unten angefügt werden dann wäre das etwas besser. Ich hatte noch vergessen mitzuteilen daß ich Excel 2007 nutze.
Viele Grüße
Stefan
AW: Zeilen markieren und per VBA kopieren
05.05.2010 20:56:03
Stefan
Hallo,
ich habs nochmal ausprobiert und funktioniert einwandfrei. Also die Daten werden auch beim Kopieren unten angehängt in der Zieldatei. Sorry für den Schnellschuß eben.
Vielen Herzlichen Dank. Du hast mir sehr geholfen.
Viele Grüße
Stefan
Anzeige
AW: Zeilen markieren und per VBA kopieren
06.05.2010 14:22:41
Stefan
Hallo,
sorry, daß ich noch mal störe. Ich habe den obigen Code ausprobiert. Bekomme jetzt die Fehlermeldung "Index außerhalb des gültigen Bereichs Fehler 9". Was bedeutet das?
Viele Grüße
Stefan

19 Forumthreads zu ähnlichen Themen

Bereich markieren und kopieren
Thomas

Hi,
ich habe hier ein Makro das mir die Zeilen und Spalten markieren soll welche Daten enthalten in dem es mir die letzte befüllte Zeile und Spalte sucht, anschliessend diesen Bereich makiert und kopiert, dann ein anderes Tabellenblatt öffnet einen Range ("A6:K4") selectiert und dort die Da...
03.10.2008 22:42:00
Thread-ID: 1014101
2 Beiträge
Anzeige
Zeilen markieren und per VBA kopieren
Stefan

Hallo,
folgendes Problem:
ein Anwender soll in einer Excel-Liste die zuletzt gemachten Einträge in Tabelle 1 markieren und diese sollen dann per Klick auf ein Steuerelement in eine andere Arbeitsmappe (Tabelle1) angefügt (kopiert) werden.
Kann mir hiermit jemand helfen?
Viele Gr...
28.04.2010 19:04:31
Thread-ID: 1154379
11 Beiträge
Zeilen markieren und per VBA kopieren
Stefan

Hallo,
folgendes Problem:
ich habe mit folgendem Code (der mir hier netterweise zur Verfügung gestellt wurde):
Sub myCopy2() Dim lngLastRow As Long With Workbooks("Mappe1").Sheets(1) lngLastRow = .Cells(.Rows.Count, 1).End(xlUp).Row Selection.Copy Destination:=.Cells(lngLastRow, 1)....
29.04.2010 13:16:51
Thread-ID: 1154510
3 Beiträge
Anzeige
Zellen markieren und kopieren
Matthias

Hallo zusammen,
ich habe ein kleines Problem wo ich nicht weiterkomme. Vielleicht hat ja jemand einen kleine Tipp für mich:
Ich möchte auf einem Arbeitsblatt Zellen markieren und zwar nur:
Zellen von Spalten in denen in Zeile 1 ein "X" steht und davon auch nur die Zellen ab Zeile 1...
05.07.2015 18:56:24
Thread-ID: 1434856
2 Beiträge
Zeile markieren und in leere Zeile kopieren
Ali

Hallo, ich würde gerne eine bestimmte Zeile, die eine Bedingung erfüllt kopieren und in die erste leere Zeile eines neu erstellen Sheets einfügen. Das auslesen und die Bedingungen, sowie das Kopieren funktionieren soweit.
Leider funktioniert der Teil, bei dem ich einfügen möchte nicht. Kann...
26.06.2018 10:41:46
Thread-ID: 1630601
13 Beiträge
Spalten mit Namen XY markieren und kopieren
Sven

Hallo Zusammen,
ich habe eine Tabelle mit Spalten von A - ZZ. Ich möchte aber nur ein paar dieser Spalten nutzen und in ein neues Tabellenblatt kopieren.
Ich habe sowas schon einmal programmiert mit VBA und habe immer die Spalten angegeben A:B und J:K etc... Problem ist, die Tabelle bek...
07.11.2018 16:59:31
Thread-ID: 1656013
11 Beiträge
Datei öffnen, Zellbereich markieren und kopieren
stefan

Hallo!

Ich möchte während das Makro läuft, wenn ein Ereignis eintritt und die (schon vorhandene) Userform auftaucht, dass der User eine Datei öffnen kann und dort einen Datenbereich markieren kann, der dann anschließend vom Makro kopiert wird.

Konkret geht es darum, dass wenn ei...
19.08.2003 17:11:09
Thread-ID: 297070
7 Beiträge
Nochmal: variabler Bereich markieren und kopieren
Thomas K.
Hi,

das war mein prob:

ich habe eine Tabelle bestehend aus mehreren Spalten und Zeilen.
Wenn ich nun den Cursor in eine Zelle setze, sollen z.b. die darunterbefindlichen Zellen markiert und kopiert werden und diese dann in die Spalte daneben eingefügt werden sollen.

vi...
16.09.2003 07:22:41
Thread-ID: 310346
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
5
10
2
7
1
12
10
6
2
2
5
3
2
2
4
2
3
3