Das Archiv des Excel-Forums
VBA - Zeilen kopieren
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 |
 |