Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema ListBox
BildScreenshot zu ListBox ListBox-Seite mit Beispielarbeitsmappe aufrufen

Sortieren über UF

Betrifft: Sortieren über UF von: Heinz H
Geschrieben am: 08.10.2007 14:59:23

Hallo Leute

Habe einen Code in UF1 der mir von txt Boxen die Daten in Sheets "Liste" einträgt.
Im 2 Makro möchte ich die Liste sortieren von A2:M998

Könnte man das in UF1 nicht vereinen ?

Also nach Prinzip

UF1 > Eintragen > Eintrag sortieren.

Könnte mir Bitte dabei jemand weiterhelfen.

Gruß Heinz

'----UF1-------

Private Sub cmdOK_Click()
ActiveSheet.Unprotect
Dim lngLR As Long
   
   With Sheets("Liste")    'Name evt. anpassen
      lngLR = .Cells(Rows.Count, 1).End(xlUp).Row + 1
      .Cells(lngLR, 1) = Me.txtFamilienname
      .Cells(lngLR, 2) = Me.txtVorname
      .Cells(lngLR, 3) = Me.txtAdresse
      .Cells(lngLR, 4) = Me.txtOrt
      .Cells(lngLR, 5) = Me.txtPLZ
      .Cells(lngLR, 6) = Me.txtBundesland
      .Cells(lngLR, 7) = Me.txtTelefonPrivat
      .Cells(lngLR, 8) = Me.txtHandyPrivat
      .Cells(lngLR, 9) = Me.txtTelefonFirma
      .Cells(lngLR, 10) = Me.txtFax
      .Cells(lngLR, 11) = Me.txtEmail
      .Cells(lngLR, 12) = Me.txtWeb
      .Cells(lngLR, 13) = Me.txtGeburtstag
   
   End With
   'erweiterung Textboxen leeren
   Me.txtFamilienname = ""
   Me.txtVorname = ""
   Me.txtAdresse = ""
   Me.txtOrt = ""
   Me.txtPLZ = ""
   Me.txtBundesland = ""
   Me.txtTelefonPrivat = ""
   Me.txtHandyPrivat = ""
   Me.txtTelefonFirma = ""
   Me.txtFax = ""
   Me.txtEmail = ""
   Me.txtWeb = ""
   Me.txtGeburtstag = ""
Cells(lngLR, 1).Clear  ' Löscht den alten Eintrag
ActiveSheet.Protect
End Sub



'---Allg.Modul mit Recorder für Tab.Blatt "Liste" ---

Sub Sortieren()

Application.ScreenUpdating = False

Columns("A:M").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A1").Select
Dim i
For i = 2 To 998
Rows(i).Select
With Selection.Interior
.ColorIndex = 19
.Pattern = xlSolid
End With
i = i + 1
Next i
Application.ScreenUpdating = True
End Sub


  

Betrifft: AW: Sortiermakro einfach dranhängen von: Chaos
Geschrieben am: 08.10.2007 15:17:15

Servus,

im UF-Code zwischen

Cells(lngLR, 1).Clear ' Löscht den alten Eintrag

' hier

ActiveSheet.Protect

Gruß

Chaos


  

Betrifft: AW: Sortiermakro einfach dranhängen von: Heinz H
Geschrieben am: 08.10.2007 15:25:49

Hallo Chaos

Leider das Funkt. nicht.

Gruß Heinz

Private Sub cmdOK_Click()
ActiveSheet.Unprotect
Dim lngLR As Long
   
   With Sheets("Liste")    'Name evt. anpassen
      lngLR = .Cells(Rows.Count, 1).End(xlUp).Row + 1
      .Cells(lngLR, 1) = Me.txtFamilienname
      .Cells(lngLR, 2) = Me.txtVorname
      .Cells(lngLR, 3) = Me.txtAdresse
      .Cells(lngLR, 4) = Me.txtOrt
      .Cells(lngLR, 5) = Me.txtPLZ
      .Cells(lngLR, 6) = Me.txtBundesland
      .Cells(lngLR, 7) = Me.txtTelefonPrivat
      .Cells(lngLR, 8) = Me.txtHandyPrivat
      .Cells(lngLR, 9) = Me.txtTelefonFirma
      .Cells(lngLR, 10) = Me.txtFax
      .Cells(lngLR, 11) = Me.txtEmail
      .Cells(lngLR, 12) = Me.txtWeb
      .Cells(lngLR, 13) = Me.txtGeburtstag
   
   End With
   'erweiterung Textboxen leeren
   Me.txtFamilienname = ""
   Me.txtVorname = ""
   Me.txtAdresse = ""
   Me.txtOrt = ""
   Me.txtPLZ = ""
   Me.txtBundesland = ""
   Me.txtTelefonPrivat = ""
   Me.txtHandyPrivat = ""
   Me.txtTelefonFirma = ""
   Me.txtFax = ""
   Me.txtEmail = ""
   Me.txtWeb = ""
   Me.txtGeburtstag = ""
Cells(lngLR, 1).Clear  ' Löscht den alten Eintrag

Columns("A:M").Select
    Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Range("A1").Select
Dim i
For i = 2 To 998
Rows(i).Select
With Selection.Interior
.ColorIndex = 19
.Pattern = xlSolid
End With
i = i + 1
Next i
ActiveSheet.Protect
End Sub




  

Betrifft: AW: Sortiermakro einfach dranhängen von: Chaos
Geschrieben am: 08.10.2007 15:33:46

Servus Heinz,

und warum nicht ? Welche Fehlermeldung kriegst du denn?

Gruß

Chaos


  

Betrifft: AW: Sortiermakro einfach dranhängen von: Heinz H
Geschrieben am: 08.10.2007 15:47:07

Hallo Chaos

Bekomme keine Fehlermeldung.
Trägt die Werte normal ein .... Aber er Sortiert nicht

Gruß Heinz


  

Betrifft: AW: Sortiermakro einfach dranhängen von: Peter Feustel
Geschrieben am: 08.10.2007 15:38:41

Hallo Heinz

setz die Punkte vor Cells/Columns/Range

.Cells(lngLR, 1).Clear ' Löscht den alten Eintrag

.Columns("A:M").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
.Range("A1").Select

Gruß Peter


  

Betrifft: AW: Sortiermakro einfach dranhängen von: Heinz H
Geschrieben am: 08.10.2007 15:45:49

Hallo Peter

Dann bekomme ich Fehlermeldungen.

Hab die Datei mal hochgeladen.

Danke Heinz

https://www.herber.de/bbs/user/46615.xls


  

Betrifft: AW: Sortiermakro einfach dranhängen von: Peter Feustel
Geschrieben am: 08.10.2007 17:10:17

Hallo Heinz,

ich habe folgendes geändert:

Sub Sortieren()

Application.ScreenUpdating = False

Worksheets("Liste").Activate

und

Private Sub cmdOK_Click()
ActiveSheet.Unprotect
Dim lngLR As Long

With Sheets("Liste") 'Name evt. anpassen
lngLR = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Cells(lngLR, 1) = Me.txtFamilienname
.Cells(lngLR, 2) = Me.txtVorname
.Cells(lngLR, 3) = Me.txtAdresse
.Cells(lngLR, 4) = Me.txtOrt
.Cells(lngLR, 5) = Me.txtPLZ
.Cells(lngLR, 6) = Me.txtBundesland
.Cells(lngLR, 7) = Me.txtTelefonPrivat
.Cells(lngLR, 8) = Me.txtHandyPrivat
.Cells(lngLR, 9) = Me.txtTelefonFirma
.Cells(lngLR, 10) = Me.txtFax
.Cells(lngLR, 11) = Me.txtEmail
.Cells(lngLR, 12) = Me.txtWeb
.Cells(lngLR, 13) = Me.txtGeburtstag

Call Sortieren

damit wurde bei mir einwandfrei sortiert.

Gruß Peter


  

Betrifft: AW: Sortiermakro einfach dranhängen von: Heinz H
Geschrieben am: 08.10.2007 17:21:52

Hallo Peter

Recht herzlichen DANK !!!

Funkt.wunderbar .

Danke & Gruß Heinz


  

Betrifft: AW: Sortiermakro einfach dranhängen von: Gerd
Geschrieben am: 08.10.2007 17:36:21

Hi,

du solltest das Copyright von Heinz Holzmann auf Herber-Forum ändern.

mfg Gerd


  

Betrifft: AW: Sortiermakro einfach dranhängen von: Heinz H
Geschrieben am: 08.10.2007 21:00:55

Hallo Gerd

Ja natürlich

DANKE

Gruß Heinz


  

Betrifft: AW: Sortiermakro einfach dranhängen von: Peter Feustel
Geschrieben am: 08.10.2007 22:13:44

Hallo Heinz,

ich habe dir noch ein paar Extras eingebaut (löschen, ändern, Großschreibung der Wörter, Str usw. wird zu Straße geändert) schau mal ob es dir so gefällt.

https://www.herber.de/bbs/user/46621.xls

Gruß Peter


  

Betrifft: AW: Sortiermakro einfach dranhängen von: Heinz H
Geschrieben am: 09.10.2007 00:21:19

Hallo Peter

Bist Du Hellseher ??????? Mit löschen & ändern,wären meine-unsere nächsten Aufgaben gewessen !!!

Das ist einfach G R E N Z G EN I A L !!!!!!!!!!

Jetzt lässt dieses Herber Telefonbuch glaube ich keine wünsche mehr offen.

Recht herzlichen Dank besonsders an DICH sowie an alle anderen die mir in diesen Super Forum geholfen haben !!

Nochmals Danke & Gruß Heinz


  

Betrifft: AW: Sortiermakro einfach dranhängen von: Peter Feustel
Geschrieben am: 09.10.2007 13:27:32

Hallo Heinz,

warum eigentlich zwei UserForm(ulare), wenn eines vollauf genug ist?

UserForm1 könnte gelöscht werden - sieh die beigefügte Mappe. https://www.herber.de/bbs/user/46638.xls



Gruß Peter


  

Betrifft: AW: Sortiermakro einfach dranhängen von: Heinz H
Geschrieben am: 09.10.2007 13:33:14

Hallo Peter

Da ist glaube ich mit dem hochladen etwas schief gegangen "Daten wurden verloren"

Könntest du es eventuell nochmals vorher testen,und dann nochmals hochladen.

Gruß Heinz


  

Betrifft: AW: Sortiermakro einfach dranhängen von: Peter Feustel
Geschrieben am: 09.10.2007 14:40:19

Hallo Heinz,

vielleicht geht es so besser ??? https://www.herber.de/bbs/user/46643.xls

Gruß Peter


  

Betrifft: AW: Sortiermakro einfach dranhängen von: Heinz H
Geschrieben am: 09.10.2007 14:50:01

Hallo Peter

Hatte den selben Fehler wieder,
Auch bei der Datei per mail.

Hatte sie dann über Umwegen öffnen können und Deinen Code reinkopiert.

Funkt auf den ersten Blick EINFACH G E N I A L !!!!


Melde mich wieder im Forum und werde die Datei hochladen.


Echt Super Arbeit von Dir.

DANKE

Heinz


  

Betrifft: AW: Sortiermakro einfach dranhängen von: Heinz H
Geschrieben am: 09.10.2007 15:24:50

Hallo Peter

Kannst jetzt das fast ganz fertige Tel.Buch ansehen.

Nur 2 Kleinigkeiten bitte noch: Beim Sortieren. Wird nach Spalte A "Fam.Name" Sortiert, Es sollte nach "Fam.Name" und dann nach "Vorname" Spalte B sortieren.

Weiters komme ich in der "ListBox1" nicht ganz mit,
Wenn du zum Beispiel "Pro" zum suchen eingibst werden in der ListBox1 die Zeichen abgeschnitten.
Es liegt glaube ich an der Zeichenlänge.Weiss aber nicht wie man diese Einstellt.

Gruß Heinz



https://www.herber.de/bbs/user/46645.xls


  

Betrifft: AW: Sortiermakro einfach dranhängen von: Peter Feustel
Geschrieben am: 09.10.2007 17:02:09

Hallo Heinz,

hier kannst du nach Namen, Vornamen, Straße sortieren.
In der ListBox habe ich die Spalte1 etwas vergrößert, aber ich habe auch mit der alten Größe auch die Raiffeisenbank Wartberg angezeigt bekommen.

https://www.herber.de/bbs/user/46647.xls

Gruß Peter


  

Betrifft: AW: Sortiermakro einfach dranhängen von: Heinz H
Geschrieben am: 09.10.2007 20:43:17

Hallo Peter

Jetzt ist die Datei DANK Deiner großen Hilfe glaube ich P E R F E K T !!!!

Zum 100.mal RECHT HERZLICHEN DANK,für Deine Geduld & Hilfe.

Gruß Heinz


  

Betrifft: AW: Sortiermakro einfach dranhängen von: Heinz H
Geschrieben am: 11.10.2007 11:10:44

Hallo Peter & Co

Habe mal die wie ich finde das tolle Telefonbuch hochgeladen.
Hätte eventuell noch eine Idee !!

Könnte man beim suchen nicht auch die Spalte B miteinbeziehen.

Als das man entweder nach Spalte A "Familienname" oder nach Spalte B "Vorname" im Sheets "Liste"

suchen könnte.

Gruß Heinz



https://www.herber.de/bbs/user/46680.xls


  

Betrifft: AW: Sortiermakro einfach dranhängen von: Peter Feustel
Geschrieben am: 11.10.2007 13:08:28

Hallo Heinz,

du bekommst beim Suchen doch alle zum Suchbegriff passenden Einträge in der ListBox angezeigt und kannst dann den gesuchten Teilnehmer mit Klick auswählen.

Gruß Peter


  

Betrifft: AW: Sortiermakro einfach dranhängen von: Heinz H
Geschrieben am: 11.10.2007 16:31:06

Hallo Peter

Also bei mir geht zum suchen nur Spalte A.

Gruß Heinz


  

Betrifft: AW: Sortiermakro einfach dranhängen von: Peter Feustel
Geschrieben am: 11.10.2007 17:03:04

Hallo Heinz,

etwas anderes habe ich auch nicht geschrieben - aber wie gesagt:

du bekommst beim Suchen (gemäß Spalte A) doch alle zum Suchbegriff passenden Einträge in der ListBox angezeigt und kannst dann dort den gesuchten Teilnehmer mit Klick auswählen.

Gruß Peter


 

Beiträge aus den Excel-Beispielen zum Thema "Sortieren über UF"