Thema Datum  Von Nutzer Rating
Antwort
Rot Userform Auslesen Schleife
 21.11.2017 09:24:48 Izzettin
NotSolved
21.11.2017 09:36:07 Izzettin
NotSolved
21.11.2017 10:22:06 Gast28643
*****
Solved
21.11.2017 10:54:35 Izzettin
NotSolved

Ansicht des Beitrags:
Von:
Izzettin		 Datum:
21.11.2017 09:24:48		 Views:
1159		 Rating:
     
Antwort:
  Ja
Thema:
Userform Auslesen Schleife

Hallo zusammen,

ich habe folgedes Problem: Der Code funktioniert, jedoch habe ich sehr viele Combo - und Textboxen (>>>15) . Gibt es eine Möglichkeit mit einer weiteren Schleife von Combobox1 bzw. Textbox1 zu Combobox2 bzw. Textbox2 usw. zu springen?

 

Vielen Dank im Voraus.

 

Liebe Grüße Izzettin

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
'gayray: String Array mit 13 Einträgen (0-12)
'state: Int Wert zwischen 0-4
 
For j = 0 To 12 Step 1
With addstation 'meine userform
If .ComboBox1.Value = gayray(j) Then
      NeuerName = gayray(j) & .TextBox1.Value
      i = Sheets.Count 'nicht zu betrachten (nzb)
      Sheets("Fragenkatalog").Copy After:=Sheets(i)'nzb
      ActiveSheet.Name = NeuerName 'nzb
      Selection.AutoFilter Field:=10 + state, Criteria1:="x" 'nzb
      Selection.AutoFilter Field:=20 + j, Criteria1:="x" 'nbzb
      End If
 
If .ComboBox1.Value = gayray(j) Then
      NeuerName = gayray(j) & .TextBox2.Value
      i = Sheets.Count
      Sheets("Fragenkatalog").Copy After:=Sheets(i)
      ActiveSheet.Name = NeuerName
      Selection.AutoFilter Field:=10 + state, Criteria1:="x"
      Selection.AutoFilter Field:=20 + j, Criteria1:="x"
      End If
 
If .ComboBox1.Value = gayray(j) Then
      NeuerName = gayray(j) & .TextBox3.Value
      i = Sheets.Count
      Sheets("Fragenkatalog").Copy After:=Sheets(i)
      ActiveSheet.Name = NeuerName
      Selection.AutoFilter Field:=10 + state, Criteria1:="x"
      Selection.AutoFilter Field:=20 + j, Criteria1:="x"
      End If
Next

 

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
Rot Userform Auslesen Schleife
 21.11.2017 09:24:48 Izzettin
NotSolved
21.11.2017 09:36:07 Izzettin
NotSolved
21.11.2017 10:22:06 Gast28643
*****
Solved
21.11.2017 10:54:35 Izzettin
NotSolved