Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1100to1104
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
Inhaltsverzeichnis

Daten per Klick in ein anderes Tabellenblatt

Daten per Klick in ein anderes Tabellenblatt
Dirk
Hallo @all,
möchte gerne verschiedene Daten aus dem Tabellenblatt Lieferschein (neu) in das Tabellenblatt Datenbank per Klick übernehmen. Dann wieder neue Daten eingeben im Lieferschein und wieder klick...und die Daten müssten dann wieder in das Tabellenblatt Datenbank eine Zeile Tiefer (+1) geschrieben werden.
Ich bräuchte diese Daten später um die eine Rechnung zu schreiben.
Anbei der momentane Lieferscheinaufbau und im Tabellenblatt DATENBANK bereits die Felder aus dem Lieferschein (neu) https://www.herber.de/bbs/user/64309.xls
Vielen Dank im voraus

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Daten per Klick in ein anderes Tabellenblatt
10.09.2009 09:58:37
Rudi
Hallo,
nicht die schnellste aber die einfachste Lösung:
Sub Daten_In_DB()
Dim lngRow As Long
Dim wksLS As Worksheet, wksDB As Worksheet
Application.ScreenUpdating = False
Set wksLS = Worksheets("lfs (neu)")
Set wksDB = Worksheets("Datenbank")
With wksDB
lngRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Cells(lngRow, 1) = wksLS.Range("G17")
.Cells(lngRow, 2) = wksLS.Range("B3")
.Cells(lngRow, 3) = wksLS.Range("B10")
'und so weiter
End With
Application.ScreenUpdating = True
End Sub

Gruß
Rudi
AW: Daten per Klick in ein anderes Tabellenblatt
13.09.2009 19:30:09
Dirk
Danke klappt super !!!
Gruss
DIRK
Anzeige

315 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige