Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Erklärung eines Makros
zurück: Summenprodukt - Inhalt der Zelle wird nicht als Wert erkannt weiter: Sortieren nach Quali Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Offen Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
sheldon
Gast


Verfasst am:
27. Sep 2013, 13:28
Rufname:


Erklärung eines Makros - Erklärung eines Makros

Nach oben
       Version: Office 2007

Hallo Zusammen,

vllt kann mir jemand dieses Makro mal erklären. Es wäre sehr hilfreich. Danke schonmal im vorraus.

Code:



Option Explicit

Dim vArr As Variant

Private Sub ComboBox1_Change()
   FilLCombo_Array ComboBox2, 2, ComboBox1.Value
End Sub

Private Sub ComboBox2_Change()
   FilLCombo_Array ComboBox3, 3, ComboBox1.Value & vbTab & ComboBox2.Value
End Sub

Private Sub ComboBox3_Change()
   FilLCombo_Array ComboBox4, 4, ComboBox1.Value & vbTab & ComboBox2.Value & vbTab & ComboBox3.Value
End Sub

Private Sub ComboBox4_Change()
   FilLCombo_Array TextBox1, 5, ComboBox1.Value & vbTab & ComboBox2.Value & vbTab & ComboBox3.Value & vbTab & ComboBox4.Value
End Sub

Private Sub UserForm_Initialize()
   vArr = Tabelle2.Cells(1).CurrentRegion
   FilLCombo_Array ComboBox1, 1
End Sub


Private Sub FilLCombo_Array(ByRef ctl As MSForms.Control, ByVal intSpalte As Integer, _
   Optional ByVal vntTest As String = "")
   
   Dim lZeile   As Long
   Dim iSpalte  As Integer
   Dim objDic   As Object
   Dim sID      As String
   
   If TypeName(ctl) = "ComboBox" Then ctl.Clear
   If TypeName(ctl) = "TextBox" Then ctl.Text = Empty
   
   Set objDic = CreateObject("Scripting.Dictionary")
   
   For lZeile = 2 To UBound(vArr)
      sID = ""
      For iSpalte = 1 To intSpalte - 1
         sID = sID & vbTab & vArr(lZeile, iSpalte)
      Next iSpalte
      sID = Mid(sID, 2)
      If sID = vntTest Then objDic(vArr(lZeile, intSpalte)) = lZeile
   Next lZeile
   
   If TypeName(ctl) = "ComboBox" Then ctl.List = objDic.keys
   If TypeName(ctl) = "TextBox" Then ctl.Text = Join(objDic.keys, "; ")
   'Ausgabe der Zeile(n)
   'If TypeName(ctl) = "TextBox" Then ctl.Text = Join(objDic.items, "; ")
   
   objDic.RemoveAll
   Set objDic = Nothing
   
End Sub



Ein angenehmes WE wünsche ich.[/quote]
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Makros / Module per VBA löschen 6 Ombre 18804 18. Dez 2013, 15:14
Lars75 Makros / Module per VBA löschen
Keine neuen Beiträge Excel Formeln: Wenn funktion Excel erklärung ? 1 Astalavista1990 106 27. Nov 2013, 06:58
lupo1 Wenn funktion Excel erklärung ?
Keine neuen Beiträge Excel Formeln: Bitte um Erklärung einer Transponierformel 6 B_Nutzer 92 06. Dez 2012, 17:50
lupo1 Bitte um Erklärung einer Transponierformel
Keine neuen Beiträge Excel Formeln: VBA Makro - Ausgabe in neues Tabellenblatt, Makros zusammenf 0 spätburgunder_weißherbst 398 20. Sep 2012, 11:10
spätburgunder_weißherbst VBA Makro - Ausgabe in neues Tabellenblatt, Makros zusammenf
Keine neuen Beiträge Excel Formeln: Erklärung zu Formel 7 Gast 178 08. Jul 2011, 12:41
Gast Erklärung zu Formel
Keine neuen Beiträge Excel Formeln: Erklärung Funktionsweise Matrixformel 6 Friedrich Fischer 310 02. Mai 2011, 19:42
Friedrich Fischer Erklärung Funktionsweise Matrixformel
Keine neuen Beiträge Excel Formeln: Erklärung für eine Wenn-Funktion 4 Axel Schweiß 1211 07. Apr 2011, 11:47
Axel Schweiß Erklärung für eine Wenn-Funktion
Keine neuen Beiträge Excel Formeln: Makros mit Excel 4.0 (KEIN VBA) 3 Pinsel63 903 06. Dez 2010, 23:20
shift-del Makros mit Excel 4.0 (KEIN VBA)
Keine neuen Beiträge Excel Formeln: Suche Excelformel + Erklärung 8 Springer90 1003 05. Feb 2010, 09:16
Springer90 Suche Excelformel + Erklärung
Keine neuen Beiträge Excel Formate: Berabeiten eines Makros 39 Andyen 1114 12. Jan 2010, 18:41
Andyen Berabeiten eines Makros
Keine neuen Beiträge Excel Formate: Formatierungsunterschiede eines programmierten Makros 0 fuenkchen0711 705 28. Okt 2009, 14:22
fuenkchen0711 Formatierungsunterschiede eines programmierten Makros
Keine neuen Beiträge Excel Formeln: Makros exportieren aus Excel 2003 2 Spitzmaus 2643 08. März 2009, 20:04
Sptizmaus Makros exportieren aus Excel 2003
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Excel Tipps