Thema Datum  Von Nutzer Rating
Antwort
24.02.2009 15:46:35 Kuntscher
NotSolved
24.02.2009 18:07:31 Holger
NotSolved
Rot Aw:Aw:An-/Einfügen einer Datenreihe
25.02.2009 10:46:47 Jürgen Kuntscher
NotSolved
26.02.2009 10:21:06 Holger
NotSolved

Ansicht des Beitrags:
Von:
Jürgen Kuntscher
Datum:
25.02.2009 10:46:47
Views:
1557
Rating: Antwort:
  Ja
Thema:
Aw:Aw:An-/Einfügen einer Datenreihe
Hallo Holger

Danke für das erste Feedback. Das Problem stellt sich wie folgt. In einem Tabellenblatt werden die Daten sämtlicher Geschäftspartner erfasst. In den Zeilen stehen Daten wie Name, Vorname, Telefonnummern ect. Um die Erfassung zu vereinfachen, sollen die Daten eines neuen Geschäftspartners mittels UserForm erfasst werden. Nach Beendigung und Schließung der Eingabemaske sollen die Daten automatisch an das Ende der Liste angefügt und alphabetisch sortiert werden. Natürlich können man die Daten auch manuell ans Ende schreiben. Bei über 6.000 Geschäftspartnern deutschlandweit ist mir das zu umständlich.

Ich hoffe das Problem nun näher definiert zu haben.

Mit freundlichen Grüßen

Jürgen




Holger schrieb am 24.02.2009 18:07:31:

Hallo Kuntscher,
die Zeilennummer der Zelle unter der letzten beschriebene Zelle einer Spalte findest du mit
lz = Cells(Rows.Count, Spaltennummer).End(xlUp).Row+1
wobei die Zählung der Spalten mit 1 beginnt (A=1, B=2,...).
Die Zelle ist Cells(lz,Spaltennummer).
Die Zuweisung von Werten in eine Zelle kann z.B. in einer oder mehreren For-Next-Schleifen mit
Cells(Zeile, Spalte)=Wert
oder, wenn dies nicht auf dem aktiven Tabellenblatt geschehen soll, mit
sheets("Tabellenname").Cells(Zeile, Spalte)=Wert
erfolgen.
Konkretere Hinweise sind bei deiner vagen Beschreibung leider nicht möglich.
Gruß
Holger


Kuntscher schrieb am 24.02.2009 15:46:35:

Hallo Zusammen

Ich bewege mich noch auf wackeligen Beinen und benötige Eure Hilfe. In einer Mappe werden Daten mittels UserForm erfasst. Mit Bestätigung und Schließung der Eingabemaske sollen die erfassten Daten automatisch unter die bereits bestehenden Datenreihen geschrieben werden.

Über ein kurzes Feedback würde ich mich sehr freuen.

Vorab besten Dank.

Gruß

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
24.02.2009 15:46:35 Kuntscher
NotSolved
24.02.2009 18:07:31 Holger
NotSolved
Rot Aw:Aw:An-/Einfügen einer Datenreihe
25.02.2009 10:46:47 Jürgen Kuntscher
NotSolved
26.02.2009 10:21:06 Holger
NotSolved