|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
24.02.2009 15:46:35 |
Kuntscher |
|
|
|
24.02.2009 18:07:31 |
Holger |
|
|
|
25.02.2009 10:46:47 |
Jürgen Kuntscher |
|
|
 Aw:Aw:Aw:An-/Einfügen einer Datenreihe |
26.02.2009 10:21:06 |
Holger |
|
|
Von:
Holger |
Datum:
26.02.2009 10:21:06 |
Views:
1871 |
Rating:
|
Antwort:
|
Thema:
Aw:Aw:Aw:An-/Einfügen einer Datenreihe |
Hallo Jürgen,
im Grunde habe ich schon fast alles geschieben.
Sei eine UserForm mit Textbox1 bis -n zur Erfassung der Daten und einem Commandbutton1 für Übertragung ins Tabellenblatt und Sortierung erstellt. Ferner seien in der ersten Zeile der Tabelle Überschriften, die nicht mitsortiert werden sollen. Dann erfüllt in Excel 2007 folgende Sub deine Wünsche:
Private Sub CommandButton1_Click()
lz = Cells(Rows.Count, 1).End(xlUp).Row + 1
Cells(lz, 1) = TextBox1 'z.B. Name
Cells(lz, 2) = TextBox2 'z.B. Vorname
Cells(lz, 3) = TextBox3 'z.B. Anrede
'...
With ActiveSheet.Sort
.SortFields.Clear
.SortFields.Add Key:=Range("a1") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.SetRange Range(Cells(1, 1), Cells(lz, 100))
.Header = xlYes
.Apply
End With
End Sub
Solltest du eine ältere Excel-Version verwenden und das Makro funktioniert nicht, zeichne den Makroteil zur Sortierung auf und integrieren das Aufgezeichnete in obigen Code.
Gruß
Holger
Jürgen Kuntscher schrieb am 25.02.2009 10:46:47:
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ß |
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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 |
|
|
|
24.02.2009 18:07:31 |
Holger |
|
|
|
25.02.2009 10:46:47 |
Jürgen Kuntscher |
|
|
Aw:Aw:Aw:An-/Einfügen einer Datenreihe |
26.02.2009 10:21:06 |
Holger |
|
|