Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
26.04.2024 11:38:46
Acrobat PDF Formularfelder mit Excel ausfüllen
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1016to1020
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
1016to1020
1016to1020
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Zeilen kopieren bis...

VBA Zeilen kopieren bis...
13.10.2008 13:13:04
Silvi
Hallo,
kann mir bitte mal jemand bei folgendem Makro helfen:
'Rows("2:2").Select
Selection.Copy
Range("A3").Activate
Do Until ActiveCell.Value = ""
ActiveCell.Offset(1, 0).Activate
Loop
ActiveSheet.Paste
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Das Makro soll Formel aus Zeile 2 in die letzte Zeile kopieren und danach in Werte setzen, wieder in Zeile 2 springen, kopieren und wieder in die letzte freie Zeile springen und in Werte einfügen usw. bis der Wert in der letzten Zeile 0 ist.
Hoffentlich versteht mich jemand... wenn nicht lade ich nochmal eine Datei hoch.
Vielen Dank im voraus!
Gruß
Silvi

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Zeilen kopieren bis...
13.10.2008 13:30:33
Chris
Servus Silvi,

Sub tt()
Do
Rows(2).Copy Range("A65536").End(xlUp).Offset(1, 0)
Loop Until Range("A65536").End(xlUp).Offset(0, 0) = 0 'Or Range("A65536").End(xlUp).Offset(0, 0) _
.Row = 20
End Sub


Man sollte allerdings ein zusätzliches Abbruchkriterium miteinführen. Es könnte ja sein, dass die Formel niemals 0 wird.
das wäre hier z.B. das Or....Row = 20, nach 20 Zeilen wird abgebrochen.
Gruß
Chris

Anzeige
AW: Hab's wohl falsch verstanden...
13.10.2008 13:39:05
Chris
... allerdings ist mir immer noch nicht klar, was du eigentlich erreichen willst.
Gruß
Chris
Nö, Chris, Du hast es eher verstanden als ich. owT
13.10.2008 13:45:00
Yal
.
AW: VBA Zeilen kopieren bis...
13.10.2008 13:44:39
Silvi
Hallo,
vielen Dank, hat geklappt und funktioniert wuderbar!!!
Gruß
Silvi
AW: VBA Zeilen kopieren bis...
13.10.2008 14:05:05
Silvi
Hallo Chris,
tschuldigung, es funktioniert zwar, aber fehlt doch noch was, und zwar soll die Formel dann in der letzten Zeile immer in Werte gesetzt werden sonst habe ich bis in Zeile 5000 Formeln stehen, was ich vermeiden möchte.
Gruss
Silvi
AW: VBA Zeilen kopieren bis...
13.10.2008 14:19:02
Chris
servus Silvi,
dann so:

Sub tt()
Dim lngReihe as Long
Do
Rows(2).Copy  Range("A65536").End(xlUp).Offset(1, 0)
lngReihe = Range("A65536").End(xlUp).Offset(0,0).Row
Rows(lngReihe).Copy
Range("A65536").End(xlUp).Offset(0,0).PasteSpecial Paste:=xlPasteValues
Loop Until Range("A65536").End(xlUp).Offset(0, 0) = 0 'Or Range("A65536").End(xlUp).Offset( _
0, 0) _
.Row = 20
Application.CutCopyMode = False
End Sub


Gruß
Chris

Anzeige
AW: VBA Zeilen kopieren bis...
13.10.2008 14:26:00
Silvi
Danke Chris, das war's, jetzt gehts!
AW: VBA Zeilen kopieren bis...
13.10.2008 13:33:00
Yal
Hallo Sigi,

Sub Test()
Rows("2:2").Copy
ActiveSheet.Range("A65536").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub


Nicht getestet.
Viel Erfolg
Yal

AW: VBA Zeilen kopieren bis...
13.10.2008 14:16:00
Silvi
Danke Yal,
aber das funktioniert nicht, weil dann ja immer der gleiche Wert in die letzte Zeile geschrieben wird. Hast Du meine Beispieldatei gesehen? Vielleicht wird dann mein Problem verständlich.
Gruss
Silvi
AW: VBA Zeilen kopieren bis...
13.10.2008 14:37:05
Yal
Hallo Silvi,
Jetzt ... habe ich deine Datei angechaut.
Also, Du möchtest in Tabelle1 die Formeln der Zeile 2 nach unten erweitern bis es genauso viele Zeile werden wie in Tabelle2 sind, diese Formeln aktualisieren und dann durch Wert ersetzen.
Soll diese "Durch Wert ersetzen" auch für die Zeile 2 gelten? Wenn Ja, ersetzte die 2 "A3" in "A2"

Sub Test()
Dim LetzteSpalte#
Dim LetzteZeile#
With Worksheets("Tabelle2")
LetzteSpalte = .Range("A2").End(xlToRight).Column
LetzteZeile = .Range("A1").End(xlDown).Row
End With
With Worksheets("Tabelle1")
.Range(.Range("A2"), .Cells(LetzteZeile, 1)).Select
Selection.FillDown
.Range(.Range("A2"), .Cells(LetzteZeile, LetzteSpalte)).Select
Selection.FillRight
ActiveSheet.Calculate 'Bei mir ist die aut. Berechnung ausgeschaltet!
.Range(.Range("A3"), .Cells(LetzteZeile, LetzteSpalte)).Copy
.Range("A3").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End With
End Sub


Viel Erfolg
Yal

Anzeige
AW: VBA Zeilen kopieren bis...
13.10.2008 14:17:00
Yal
Hallo Silvi,
Probiere folgendes (Vorsichtig rangehen: löscht Daten --> "ClearContents")

Sub Test()
Rows("2:2").Copy
ActiveSheet.Range("A65536").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Selection.Range("A1").Select
On Error GoTo Catch
Do While Selection.Value  0
Selection.Offset(0, 1).Select 'Verursacht Fehler nach Spalte 256
Loop
GoTo Finally 'Keine Fehler: keine Null-Wert
Catch:
Intersect(Selection, Selection.EntireRow).ClearContents
Finally:
End Sub


Viel Erfolg
Yal

Anzeige

312 Forumthreads zu ähnlichen Themen

Wert bestimmt Anzahl der zu kopierenden Zeilen VBA
Maja

Hallo,
ich Suche eine Formel mit der ich folgenden Code modifizieren kann:
Sub Uebergabe() Dim i As Integer Dim k As Integer Dim iRowT As Integer Const zz = 1 flagg = False Sheets("Vorlage_Angebot_Sicht").Activate Sheets("Vorlage_Angebot_Sicht").Range("D2").Select i = 0 iRowT = 10 Do...
18.12.2008 13:24:00
Thread-ID: 1033843
5 Beiträge
Anzeige
Funktion kopieren bis Ende Tabelle
jo_cindy

Hallo, für euch ist das sicher einfach, aber ich bekomme folgenden Schritt nicht hin. Ich habe über Makro aufnehmen eine einfache Funktion. Es sollen 4 aufeinanderfolgende Werte in einer Zeile addiert werden. Nun soll sich aber in dem Makro diese Formel selbstständig über alle Zeilen kopieren,...
14.10.2009 17:23:17
Thread-ID: 1109648
5 Beiträge
Wert in einer Spalte eintragen bis Ende
Nicole

Hallo alle zusammen,
ich möchte eigentlich einfach nur in Spalte A ein "X" eingefügt haben, solange in Spalte Y ein Wert steht.
Steh da irgendwie gerade auf dem Schlauch. Mit meiner Formel gibt es kein Ende, es wird alles ausgefüllt.
Do Until IsEmpty(ZelleA)
Set ZelleA = rgQuell...
09.12.2009 16:51:44
Thread-ID: 1122662
4 Beiträge
Anzeige
Spalte mit VBA um eine Spalte nach rechts kopieren
Hagen

Hallo zusammen,
ich benötige mal eure Hilfe!
Ich möchte mit einem VBA Code den Bereich A10:A20 nach B10:B20 kopieren, bei erneutem Ablauf des Macros sollte dann der Bereich von B nach C und das nächte mal von C nach D usw Kopiert werde
Ich habe dazu aber leider keine Lösung! und hof...
24.02.2010 12:35:31
Thread-ID: 1141023
8 Beiträge
VBA: Vergleich und Texteil suchen - Zeile kopieren
Joe

Hallo liebe Experten,
ich bräuchte mal wieder etwas Hilfe von euch.
Folgende Ausgangssituation:
Es gibt eine Adressliste. In dieser Adressliste stehen in Spalte H Nummern (es können pro Adresse mehrere Nummer in einer Zelle vorkommen - ich weiß, dass ist nicht optimal, es geht leide...
08.04.2010 18:18:00
Thread-ID: 1150703
5 Beiträge
VBA Spalte kopieren und mehrfach (X-mal) einfügen
Sebastian

Hallo,
ich habe folgendes Problem:
Ich habe ein Excel Tabelle und möchte dort die komplette Spalte M kopieren und direkt rechts daneben mehrmals wieder einfügen (wenn möglich nicht nur die Inhalte sondern inkl. aller Formatierungen).
Die Menge, wie oft diese Spalte wieder eingefügt...
21.07.2010 15:44:35
Thread-ID: 1168151
6 Beiträge
VBA Zeilenhöhe kopieren
jens

Hallo Excel-Profis,
ich hatte heute ein Problem beim kopieren von Daten:
Die Zeilenhöhe wurde nicht mitkopiert und schon paßte nichts mehr.
Habe dann rausgefunden, dass man die gesamte Zeile kopieren kann und er nimmt die Zeilenhöhe mit. Das ist in meinem Fall aber mit viel Löscharb...
12.03.2011 09:09:39
Thread-ID: 1205376
15 Beiträge
VBA Diverse Spalten einer Zeile kopieren
gemanna

Hallo Excel Freunde,
suche schon seit tagen nach der Lösung für mein Problem, komme aber nicht weiter.
Ich habe mehrere Tabelen mit verschidenen Artikeln und Preisen. Ich habe die Artikeln in 4 verschidene Gruppen unterteilt (TT, AT, PP, IT). Für die 4 Gruppen müssen 4 neue Tabelenblät...
18.04.2011 06:49:59
Thread-ID: 1210776
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
4
2
4
3
2
7
4
5
14
2
7
3
2
4
1
2
6
6
6
2
7
2
7
7
7