Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
552to556
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
552to556
552to556
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zeile automatisch in neues Blatt kopieren

Zeile automatisch in neues Blatt kopieren
22.01.2005 12:00:59
opaharry
Ich habe eine Mappe mit meheren Arbeitsblättern.
Wenn ich jetzt in einem Blatt in einer Zeile diverse Daten (Text,Zahlen)
eintrage ,möchte ich das diese Zeile automatisch in ein neues Blatt
in die nächste leere Zeile kopiert wird.
Das soll aber mit allen Blättern möglich sein.
Das neue Blatt soll quasi eine Gesamtliste sein die sich bei jedem Neueintrag
in einem der anderen Blätter aktualisiert.
Mein VBA-Kenntnisse sind recht bescheiden.
Ich hab schon über den Makrorecorder versucht was hinzukriegen ,aber leider klappts nicht so richtig.
Über Anregungen und Vorschläge würde ich mich freuen.
Gruss Opaharry

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeile automatisch in neues Blatt kopieren
22.01.2005 13:27:20
HerbertH
ein Ansatz:


'ins Tabellenmodul wo du Einträge machst...
Private Sub Worksheet_Change(ByVal Target As Range)
Call zeile_kopieren
End Sub
'in ein Modul
Public Sub zeile_kopieren()
Dim lz%, sh As Worksheet
  Set sh = Worksheets("Tabelle2")
  lz = sh.Cells(Rows.Count, 1).End(xlUp).Row + 1
Rows(ActiveCell.Row).Copy sh.Rows(lz)
End Sub

     gruß Herbert
Anzeige

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige