Das Archiv des Excel-Forums

VBA - Zeilen kopieren

Bild

Betrifft: VBA - Zeilen kopieren
von: WalterK

Geschrieben am: 08.10.2003 23:22:52

Hallo und schönen Abend!

Kann folgendes realisiert werden?

Habe eine Tabelle mit Formeln und Formatierungen erstellt und bis Zeile 40 kopiert.
In Spalte A wird aufsteigend ab Ziffer 1 gezählt, in Spalte B werden Daten eingegeben. In den anderen Spalten finden dann die Berechnungen statt.

Nach der Eingabe und Verlassen der Zelle in Spalte B und wenn zugleich in Spalte A der zweithöchste Wert steht, soll die gesamte Zeile, in der der höchste Wert in Spalte A steht, in die nächsten 5 Zeilen kopiert werden usw.

Es soll also immer die letzte Zeile ohne Daten (aber mit Formeln und Formatierungen) in die nächsten 5 Zeilen kopiert werden.

Besten Dank im voraus
Walter
Bild


Betrifft: AW: VBA - Zeilen kopieren
von: Matthias G
Geschrieben am: 09.10.2003 00:40:45

Hallo Walter,
folgender Lösungsvorschlag (falls ich dich richtig verstanden habe):

in ein normales Modul folgender Code:
Option Explicit
Sub FillLine(z As Long)
Const LetzteSpalte = 5 'bis Spalte E
Const AnzahlZeilen = 5
Dim t As Range
Set t = ActiveCell
Application.ScreenUpdating = False
Application.EnableEvents = False
Range("A12:C12").Select
Range(Cells(z, 1), Cells(z, LetzteSpalte)).Select
Selection.AutoFill Destination:=Range(Cells(z, 1), Cells(z + AnzahlZeilen, LetzteSpalte)), Type:=xlFillDefault
Cells(z + 1, 2).ClearContents 'Sicherheitshalber löschen
t.Select
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

Im Beispiel werden die Spalten bis E runterkopiert (Konstante "LetzteSpalte")
Du kannst "AnzahlZeilen" auch auf "1" setzen und immer nur eine Zeile runterkopieren.
Der ScreenUpdating-Befehl ist da, damit es nicht so flackert.


Als Nächstes in das Codemodul der betreffenden Tabelle folgenden Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row = Range("A65536").End(xlUp).Row Then _
FillLine (Target.Row)
End Sub

Wichtig ist, dass das SelectionChange-Modul in das Codemodul der Tabelle kommt (im Projektexplorer des VBA-Editors Doppelklick auf (z.B.) "Tabelle1"!
Sonst wird es beim Selection-Change-Ereignis nicht ausgeführt.

Viel Erfolg,
Matthias


Bild


Betrifft: AW: VBA - Zeilen kopieren
von: WalterK
Geschrieben am: 09.10.2003 01:05:47

Hallo Matthias!

Vielen Dank erstmal, werde es gleich ausprobieren!

Servus, Walter


 Bild

Excel-Beispiele zum Thema " VBA - Zeilen kopieren"

Zeilenhöhe in cm festlegen download Summe gefilterter Zeilen download
Zeilenumbruch download Leere Zeilen löschen download
Spalten/Zeilen aus- und einblenden download Zeilenumbruch in Formel erzwingen download
Zeilen und Spalten über ein Drehfeld ein- und ausblenden download Alle Kopf-/Fußzeilen-Festlegungen löschen download
Fußzeilen beim Öffnen eintragen download Zellinhalte zeilenweise sortieren download
Zeilen markieren download Über VBA Schriftgröße von Fußzeilen bestimmen download
Einige Zeilen in einer sequentiellen Datei ersetzen download Zeilen oberhalb der markierten Zellen einfügen download
Anzahl der einzufügenden Zeilen abfragen download Leere Zeilen beim Drucken unterdrücken download
Beim Kopieren auch die Zeilenhöhe und Spaltenbreite übernehmen download Zeilen löschen, wenn in bestimmten Spalten keine Werte stehen download
Alle nichtleeren Zeilen markieren download Zeilen mit leeren Formeln beim Druck unterdrücken download
Zeilen bedingt durch SpinButton verschieben download Auf Doppelklick Zeilenumbruch und "X" download
Leere Zeilen beim Druck ausblenden download Menüpunkte zum Einfügen und Löschen von Zeilen hinzufügen download
Zeilenweise sortieren download Leere Zeilen und Spalten in ausgewähltem Bereich löschen download
Alle leeren Zeilen und Spalten entfernen download Kopf-/Fußzeilen-Festlegungen übernehmen download
Zeilen mit Zellen mit rotem Hintergrund ausblenden download Nur Zeilen mit einer "2" drucken download
Nur Zeilen mit bestimmtem Inhalt in HTML-Datei konvertieren download Schriftart in Zeilen wechselweise fett/nicht-fett formatieren download
Zeilenweise von Blatt zu Blatt kopieren download Doppelte Datensätze und Leerzeilen löschen download
Alle Zeilen außer der mit dem höchsten Wert löschen download In einem zweiten Tabellenblatt vorgegebene Zeilen beschriften download
Mit InputBoxes Zeilennummern abfragen und Summe bilden download Kofpzeilenwerte angekreuzter Zellen multiplizieren download
Zeilen eines zweiten Blattes im ersten über Drehfeld anzeigen download Zeilenumbrüche im aktiven Blatt entfernen download
Werte von jeweils zwei Zeilen verbinden download Bei Zeileneintrag Anzeige von "erledigt" download
Werte aus Tabelle1 mit zusätzlichen Leerzeilen in Tabelle2 download Zeilenumbrüche in eine *.CSV-Datei übernehmen download
Druckstart- und endzeilen über InputBox abfragen download Zeilen in Abhängigkeit des Wertes in Spalte A kopieren download
Abfrage zum Kopierbereich von Startzelle, Zeilen- und Spaltenanzahl download Zeilen einfügen, Werte und Bezüge zu den Werten eintragen download
Tabellenzeilen in Abhängigkeit einer zweiten Tabelle einblenden download Tabellen vergleichen und Zeilen ersetzen download
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
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
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
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