VBA - Zeilen kopieren

• VBA - Zeilen kopieren von WalterK vom 08.10.2003 23:22:52
  • AW: VBA - Zeilen kopieren - von Matthias G am 09.10.2003 00:40:45
    • AW: VBA - Zeilen kopieren - von WalterK am 09.10.2003 01:05:47

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


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




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

Excel-Beispiele zum Thema " VBA - Zeilen kopieren"

Zeilenhöhe in cm festlegen		Summe gefilterter Zeilen
Zeilenumbruch		Leere Zeilen löschen
Spalten/Zeilen aus- und einblenden		Zeilenumbruch in Formel erzwingen
Zeilen und Spalten über ein Drehfeld ein- und ausblenden		Alle Kopf-/Fußzeilen-Festlegungen löschen
Fußzeilen beim Öffnen eintragen		Zellinhalte zeilenweise sortieren
Zeilen markieren		Über VBA Schriftgröße von Fußzeilen bestimmen
Einige Zeilen in einer sequentiellen Datei ersetzen		Zeilen oberhalb der markierten Zellen einfügen
Anzahl der einzufügenden Zeilen abfragen		Leere Zeilen beim Drucken unterdrücken
Beim Kopieren auch die Zeilenhöhe und Spaltenbreite übernehmen		Zeilen löschen, wenn in bestimmten Spalten keine Werte stehen
Alle nichtleeren Zeilen markieren		Zeilen mit leeren Formeln beim Druck unterdrücken
Zeilen bedingt durch SpinButton verschieben		Auf Doppelklick Zeilenumbruch und "X"
Leere Zeilen beim Druck ausblenden		Menüpunkte zum Einfügen und Löschen von Zeilen hinzufügen
Zeilenweise sortieren		Leere Zeilen und Spalten in ausgewähltem Bereich löschen
Alle leeren Zeilen und Spalten entfernen		Kopf-/Fußzeilen-Festlegungen übernehmen
Zeilen mit Zellen mit rotem Hintergrund ausblenden		Nur Zeilen mit einer "2" drucken
Nur Zeilen mit bestimmtem Inhalt in HTML-Datei konvertieren		Schriftart in Zeilen wechselweise fett/nicht-fett formatieren
Zeilenweise von Blatt zu Blatt kopieren		Doppelte Datensätze und Leerzeilen löschen
Alle Zeilen außer der mit dem höchsten Wert löschen		In einem zweiten Tabellenblatt vorgegebene Zeilen beschriften
Mit InputBoxes Zeilennummern abfragen und Summe bilden		Kofpzeilenwerte angekreuzter Zellen multiplizieren
Zeilen eines zweiten Blattes im ersten über Drehfeld anzeigen		Zeilenumbrüche im aktiven Blatt entfernen
Werte von jeweils zwei Zeilen verbinden		Bei Zeileneintrag Anzeige von "erledigt"
Werte aus Tabelle1 mit zusätzlichen Leerzeilen in Tabelle2		Zeilenumbrüche in eine *.CSV-Datei übernehmen
Druckstart- und endzeilen über InputBox abfragen		Zeilen in Abhängigkeit des Wertes in Spalte A kopieren
Abfrage zum Kopierbereich von Startzelle, Zeilen- und Spaltenanzahl		Zeilen einfügen, Werte und Bezüge zu den Werten eintragen
Tabellenzeilen in Abhängigkeit einer zweiten Tabelle einblenden		Tabellen vergleichen und Zeilen ersetzen
Blätter in andere Arbeitsmappen kopieren		Module von Mappe zu Mappe kopieren
Arbeitsblatt 40 mal kopieren		Schriftgröße beim Kopieren verdoppeln
Tabellencode nach Kopieren des Blattes löschen		Arbeitsmappe blitzschnell kopieren
VBE-Namen der Blattmodule beim Kopieren festlegen		Blattinhalt von einer zur anderen Arbeitsmappe kopieren
Formel bis zur letzten Zeile der Nebenspalte kopieren		Datei kopieren, wenn noch nicht vorhanden
Erste Druckseite in eine neue Arbeitsmappe kopieren		Durch DoppelKlick Spalte in zweites Arbeitsblatt kopieren
Teilergebnisse einer Serie von Tabellen in anderes Blatt kopieren		Bei Eintrag in Spalte A aktuelle Zeile kopieren
Filtern und Kopieren		Zeile mit aktiver Zelle in anderes Blatt kopieren
Einen von einer Schlüsselziffer abhängigen Bereich kopieren		Vorgegebene Anzahl von Einträgen in 2. Blatt kopieren
Über InputBox festzulegenden Bereich kopieren		Passwortgeschützte Mappe öffnen, Daten kopieren, schliessen
Tabellenblatt kopieren und dreistellig fortlaufend numerieren		Jede zweite Zelle kopieren
Werte aus UserForm-ComboBox suchen und Fundstelle kopieren		Gruppe von Optionsfeldern kopieren und Makro zuweisen
Nicht zusammenhängenden Bereich in nächste Zeile kopieren		Wert aus UserForm-TextBox suchen und Fundstelle kopieren
Nur sichtbare Zellen in anderes Arbeitsblatt kopieren		Zeile in Abhängigkeit zur Eingabe in Blätter kopieren
Werte prüfen und kopieren		Bei Eintrag von X Zeile in andere Tabelle kopieren
Daten kopieren wenn kein Datum oder Datum > Heute		Blattinhalte dreier Blätter in neues Blatt kopieren
Kopieren und Umbenennen eines Blattes		Nur Zeilen mit bestimmtem Inhalt kopieren
Artikelnummern nach Kriterien suchen und Datensätze kopieren		Bild in zweites Blatt an gleiche Position kopieren
Alle Zeilen ohne Wert in vorgegebener Spalte kopieren		Bei Eintrag Zeile in 2. Blatt kopieren und Tabellen sortieren
Bildergruppe in anderes Blatt kopieren		Bei Eingabe Formel in der Nebenspalte nach unten kopieren
Auswahl in andere Arbeitsmappe kopieren, speichern, schließen		Begriff suchen und Fundzeilen in anderes Blatt kopieren
Aktive Zeile kopieren und löschen		Datensätze, die öfter als 3 mal vorkommen, kopieren
Den jeweils darüberliegenden Wert in Leerzellen kopieren		Alle Zeilen mit einem Suchbegriff in nächstes Blatt kopieren
Dateien listen und Blätter in neue Arbeitsmappe kopieren