Thema Datum  Von Nutzer Rating
Antwort
Rot VBA/Excel - Probleme mit Maske
 18.07.2016 17:49:09 vbanoob
NotSolved

Ansicht des Beitrags:
Von:
vbanoob		 Datum:
18.07.2016 17:49:09		 Views:
1254		 Rating:
     
Antwort:
  Ja
Thema:
VBA/Excel - Probleme mit Maske

Hallo community,

bin quasi Neuling und möchte eine Maske für ein Excel-Tabellenblatt erstellen. Versuche es anhand des Screenshots zu erklären. Es geht um eine "Pseudo"-Datenbank. Die Maske soll die Eingabe für Leute vereinfachen, die nicht so mit Excel vertraut sind.

"Listenfeld "FLA"": Hier sollen Daten aus einer Spalte ausgelesen werden. In den Textfeldern werden dann in der Zeile die zugehörigen Daten aus anderen Spalten angezeigt. Das habe ich dank eurer Hilfe bereits hinbekommen.

Über einen CommandButton ("OK") sollen über die Maske vollzogene Änderungen in den Textfeldern in das Tabellenblatt übernommen worden. Seltsamerweise funktioniert das bisher nur in dem Textfeld, das die identischen Daten des Listenfelds anzeigt (Textfeld3).

Filter "Status": In einer anderen Spalte ist jede Person mit einem bestimmten Status beschrieben (es gibt nur zwei verschiedene). Dieser Status soll quasi als Filter für das Listenfeld vorgeschaltet werden. Wählt man als Status A, sollen im Listenfeld nur die Personen angezeigt werden, die diesen Status haben.

 

Füge unter dem Screenshot mal den bisherige Code ein und hoffe eure Hilfe. Danke.

 

 

?
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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
Private Sub ComboBox1_Click()
spalte = 21
zeile = (ComboBox1.ListIndex + 2)
End Sub
 
 
Private Sub ListBox1_Click()
spalte = 3
zeile = (ListBox1.ListIndex + 2)
Me.TextBox3 = Worksheets(10).Cells(zeile, spalte)
Me.TextBox4 = Worksheets(10).Cells(zeile, spalte + 1)
Me.TextBox5 = Worksheets(10).Cells(zeile, spalte + 2)
Me.TextBox6 = Worksheets(10).Cells(zeile, spalte + 3)
Me.TextBox7 = Worksheets(10).Cells(zeile, spalte + 4)
Me.TextBox8 = Worksheets(10).Cells(zeile, spalte + 5)
Me.TextBox9 = Worksheets(10).Cells(zeile, spalte + 6)
Me.TextBox10 = Worksheets(10).Cells(zeile, spalte + 7)
Me.TextBox11 = Worksheets(10).Cells(zeile, spalte + 8)
Me.TextBox14 = Worksheets(10).Cells(zeile, spalte + 11)
Me.TextBox17 = Worksheets(10).Cells(zeile, spalte + 14)
Me.TextBox18 = Worksheets(10).Cells(zeile, spalte + 15)
Me.TextBox19 = Worksheets(10).Cells(zeile, spalte + 16)
Me.TextBox30 = Worksheets(10).Cells(zeile, spalte + 27)
Me.TextBox32 = Worksheets(10).Cells(zeile, spalte + 29)
Me.TextBox33 = Worksheets(10).Cells(zeile, spalte + 30)
Me.TextBox34 = Worksheets(10).Cells(zeile, spalte + 31)
Me.TextBox35 = Worksheets(10).Cells(zeile, spalte + 32)
Me.TextBox36 = Worksheets(10).Cells(zeile, spalte + 33)
Me.TextBox37 = Worksheets(10).Cells(zeile, spalte + 34)
Me.TextBox38 = Worksheets(10).Cells(zeile, spalte + 35)
Me.TextBox39 = Worksheets(10).Cells(zeile, spalte + 36)
Me.TextBox40 = Worksheets(10).Cells(zeile, spalte + 37)
Me.TextBox41 = Worksheets(10).Cells(zeile, spalte + 38)
Me.TextBox42 = Worksheets(10).Cells(zeile, spalte + 39)
Me.TextBox43 = Worksheets(10).Cells(zeile, spalte + 40)
Me.TextBox44 = Worksheets(10).Cells(zeile, spalte + 41)
End Sub
 
Private Sub CommandButton1_Click()
spalte = 3
zeile = (ListBox1.ListIndex + 2)
Worksheets(10).Cells(zeile, spalte) = Me.TextBox3
Worksheets(10).Cells(zeile, spalte + 1) = Me.TextBox4
Worksheets(10).Cells(zeile, spalte + 2) = Me.TextBox5
Worksheets(10).Cells(zeile, spalte + 3) = Me.TextBox6
Worksheets(10).Cells(zeile, spalte + 4) = Me.TextBox7
Worksheets(10).Cells(zeile, spalte + 5) = Me.TextBox8
Worksheets(10).Cells(zeile, spalte + 6) = Me.TextBox9
Worksheets(10).Cells(zeile, spalte + 7) = Me.TextBox10
Worksheets(10).Cells(zeile, spalte + 8) = Me.TextBox11
Worksheets(10).Cells(zeile, spalte + 11) = Me.TextBox14
Worksheets(10).Cells(zeile, spalte + 14) = Me.TextBox17
Worksheets(10).Cells(zeile, spalte + 15) = Me.TextBox18
Worksheets(10).Cells(zeile, spalte + 16) = Me.TextBox19
Worksheets(10).Cells(zeile, spalte + 27) = Me.TextBox30
Worksheets(10).Cells(zeile, spalte + 29) = Me.TextBox32
Worksheets(10).Cells(zeile, spalte + 30) = Me.TextBox33
Worksheets(10).Cells(zeile, spalte + 31) = Me.TextBox34
Worksheets(10).Cells(zeile, spalte + 32) = Me.TextBox35
Worksheets(10).Cells(zeile, spalte + 33) = Me.TextBox36
Worksheets(10).Cells(zeile, spalte + 34) = Me.TextBox37
Worksheets(10).Cells(zeile, spalte + 35) = Me.TextBox38
Worksheets(10).Cells(zeile, spalte + 36) = Me.TextBox39
Worksheets(10).Cells(zeile, spalte + 37) = Me.TextBox40
Worksheets(10).Cells(zeile, spalte + 38) = Me.TextBox41
Worksheets(10).Cells(zeile, spalte + 39) = Me.TextBox42
Worksheets(10).Cells(zeile, spalte + 40) = Me.TextBox43
Worksheets(10).Cells(zeile, spalte + 41) = Me.TextBox44
End Sub
 
Private Sub CommandButton2_Click()
Unload UserForm1
End Sub

 

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 VBA/Excel - Probleme mit Maske
 18.07.2016 17:49:09 vbanoob
NotSolved