Auswertung mit VBA

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
UserForm ListBox TextBox


Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Auswertung mit VBA
von: günther
Geschrieben am: 19.06.2002 - 18:15:09

Ich möchte per Buttonklick in meiner Userform alle Datenreihen auslesen und in ein neu geöffnetes Tabellenblatt einfügen, welche eine bestimmte Voraussetzung erfüllen.
Im konkreten: Auswahl aus einer Combobox - Kontaktperson Müller
-> alle Firmen bei der Müller als Kontaktperson vorkommt in neues Tabellenblatt

Kann mir jemand weiterhelfen?
ciao günther

nach oben   nach unten

Re: Auswertung mit VBA
von: Rolf, Lgh.
Geschrieben am: 19.06.2002 - 18:49:01

Hallo Günther,
vielleicht ein Ansatz:
Text-Index: 176802
Thema: Dialog
Betrifft: Nach TextBoxeingabe Datensätze in UserForm-ListBox übernehmen
Excel-Version: XL 8/10
Frage: Bei Eingabe der vierstelligen Auftragsnummer in eine UserForm-TextBox sollen die entsprechenden Datensätze in eine UserForm-ListBox übernommen werden.
Antwort: Mit Alt+F11 in die Entwicklungsumgebung wechseln, die UserForm doppelklicken und in das sich jetzt öffnende Modul den nachfolgenden Code eingeben.
 
'frmValues:

Private Sub cmdCancel_Click()
   Unload Me
End Sub

Private Sub txtValue_Change()
   Dim arr() As Variant
   Dim iRow As Integer, iCol As Integer, iCounter As Integer
   If txtValue.TextLength = 4 Then
      iRow = 2
      Do Until IsEmpty(Cells(iRow, 1))
         If Cells(iRow, 1) = txtValue.Text Then
            iCounter = iCounter + 1
            ReDim Preserve arr(1 To 4, 1 To iCounter)
            For iCol = 1 To 4
               arr(iCol, iCounter) = Cells(iRow, iCol).Value
            Next iCol
         End If
         iRow = iRow + 1
      Loop
      lstValues.Column = arr
   End If
End Sub


'Modul1:

Sub DialogAufruf()
   frmValues.Show
End Sub


Gruß Rolf
nach oben   nach unten

und ...
von: Rolf, Lgh.
Geschrieben am: 19.06.2002 - 19:07:23

https://www.herber.de/mailing/174502h.htm
https://www.herber.de/mailing/147201h.htm



nach oben   nach unten

Re: und ...
von: Günther
Geschrieben am: 20.06.2002 - 10:32:11

klappt tadellos!!!

vielen dank und schöne grüsse
günther


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Auswertung mit VBA"