Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
296to300
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
296to300
296to300
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Arbeitsmappe anfügen

Arbeitsmappe anfügen
20.08.2003 13:09:16
Burton
Hallo zusammen,

also ich habe sozusagen eine Haupt Excel Datei wo alle Daten in einer Haupttabelle gespeichert werden und dann in 5 anderen Tabellen in verschieden Ansichten nochmal gezeigt wird.

Nun sollen die Außendienst Mitarbeiter genau die gleiche Datei bekommen mit der Gleichen Strucktur und nachher soll man in der Verwaltung einfach nur noch die Datei vom Außendienstmitarbeiter anfügen. So das der Datensatz ganz hinten drangehängt wird und ihm dann immer eine fortlaufende Nummer zugewiesen wird.

Wenn 45 die letzte war muss der angefügte nun die Numemr 46 bekommen

Wie könnte man das lösen am liebsten wäre mir es pber eine Userform wo man die Datei auswählt usw.

Schönen Gruß

David

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Arbeitsmappe anfügen
20.08.2003 15:14:24
ChrisL
Hi David

Im letzten Beitrag hattest du keine VBA Kenntnis, inzwischen sind sie gut, weshalb ich dir nachstehend ein paar Code-Schnipsel liefere, die dir hoffentlich weiterhelfen. Eine fertige Lösung ist sowieso nur möglich, wenn man den genauen Aufbau kennt.

' Datei öffnen
Application.Dialogs(xlDialogOpen).Show

Für den Kopiervorgang musst du die letzte Zeile ermitteln, was wie folgt geschieht:

Dim LetzteZeile as Long
LetzteZeile = ActiveWorkbook.Sheets("Tabelle1").Range("A65536").End(xlup).Row

Dann die Nummer in die neue Zeile eintragen...

Cells(LetzteZeile + 1, 1) = Cells(LetzteZeile, 1) + 1

Gruss
Chris


Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige