Anzeige
Archiv - Navigation
388to392
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
388to392
388to392
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Suchs leere Zeile für neue Daten

Suchs leere Zeile für neue Daten
27.02.2004 15:49:02
Erik Hempel
Hallo
Ich habe eine Materialdatei und möchte einige neue Daten eintragen, ohne die Daten in die Materialdatei zu schreiben. Dies soll über ein anderes Tabellenblatt erfolgen. Dort trägt man die Daten ein und sie werden automatisch in eine leere Zeile einer festgelegten Spalte eingetragen. Danach drückt man ein Button und die Daten der Spalte werden neu Sortiert und die nächste leere Zeile wird gesucht, wo beim nächsten Mal neue Daten eingegeben werden können.
Gruß Erik

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Suchs leere Zeile für neue Daten
27.02.2004 18:20:52
geri
Hallo Erik
so kann man sowas lösen

Sub DatenübernahmeTabelle()
Dim i As Integer
i = Sheets("geschriebene Rechnungen").Cells(Cells.Rows.Count, 1).End(xlUp).Row + 1
If i < 4 Then i = 4 'Startzeile
' ZIELBEREICH                   'QUELLBEREICH
Sheets("geschriebene Rechnungen").Cells(i, 1) = Sheets("Rechnung").Cells(13, 1) 'Kd-Nummer
Sheets("geschriebene Rechnungen").Cells(i, 2) = Sheets("Rechnung").Cells(18, 1) ' Rech. Nr
Sheets("geschriebene Rechnungen").Cells(i, 3) = Sheets("Rechnung").Cells(1, 6) 'Rech-Dat
Sheets("geschriebene Rechnungen").Cells(i, 4) = Sheets("Rechnung").Cells(9, 1) 'Name/Vorname
Sheets("geschriebene Rechnungen").Cells(i, 5) = Sheets("Rechnung").Cells(10, 1) 'Strasse
Sheets("geschriebene Rechnungen").Cells(i, 6) = Sheets("Rechnung").Cells(11, 1) 'PLZ/Ort
Sheets("geschriebene Rechnungen").Cells(i, 7) = Sheets("Rechnung").Cells(42, 6) 'Betrag
'cells(zeile,spalte) anpassen
End Sub


kopiere dies in ein Modul und passe den Bereich an ebenso QUELLE u. Ziel
meine Blätter heissen Rechnung (Quelle) und geschrieben Rechnungen (Ziel)
beim ersten mal beginnt der Datenübertrag in Zeile 5 ebenso musst du die Spalten und Zeilennummern anpassen
hoffe es hilft Dir weiter
gruss geri
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige