Thema Datum  Von Nutzer Rating
Antwort
Rot Suchen und Ändern Probleme
 05.08.2013 23:42:33 Matthias H
NotSolved

Ansicht des Beitrags:
Von:
Matthias H		 Datum:
05.08.2013 23:42:33		 Views:
2391		 Rating:
     
Antwort:
  Ja
Thema:
Suchen und Ändern Probleme
?
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
Hallo Community,
 
Ich möchte eine Userform erstellen in einem Hauptmenü, welche eine Art Suchen und ersetzen funktion wiederspiegeln soll.
Diese Userform soll auf Daten aus einer speziellen Arbeitsmappe zugreifen.
 
<strong>Jedoch ohne Erfolg bzw. ich sehe keine Daten in der Userform!
Ebenso kann ich keine Daten ändern in den Textformen, welche dann die Daten aus der Datenbank aktualisiert --> wenn ich ändere!
 
</strong>
Ebenso wollte ich vor die Combobox eine weitere Combobox basteln welche nur bestimmte Daten dann in diese Combobox zeigen soll.
Nach dem Prinzip:
 
Ball --> Basketball      Sport --> Fussball
 
     --> Fussball              --> Tennis
 
Jedoch fehlt mir hierzu der Ansatz im Code.  
 
 
Über eure Hilfe wäre ich sehr sehr dankbar.
 
 
Vielen Dank
 
 
mfg Matthias
?
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
74
75
76
77
<em><strong>Code:
</strong></em>
Private Sub ComboBox1_Click()
If ComboBox1.ListIndex <> 0 Then
    TextBox1 = Cells(ComboBox1.ListIndex + 1, 1)
    TextBox2 = Cells(ComboBox1.ListIndex + 1, 2)
    TextBox3 = Cells(ComboBox1.ListIndex + 1, 3)
    TextBox4 = Cells(ComboBox1.ListIndex + 1, 4)
    TextBox5 = Cells(ComboBox1.ListIndex + 1, 5)
    TextBox6 = Cells(ComboBox1.ListIndex + 1, 6)
Else
    TextBox1 = ""
    TextBox2 = ""
    TextBox3 = ""
    TextBox4 = ""
    TextBox5 = ""
    TextBox6 = ""
End If
End Sub
 
Private Sub CommandButton1_Click()
If ComboBox1.ListIndex > 0 Then
    Rows(ComboBox1.ListIndex + 1).Delete
    TextBox1 = ""
    TextBox2 = ""
    TextBox3 = ""
    TextBox4 = ""
    TextBox5 = ""
    TextBox6 = ""
    UserForm_Initialize
End If
End Sub
 
Private Sub CommandButton2_Click()
Dim xZeile As Long
If TextBox1 = "" Then Exit Sub
If ComboBox1.ListIndex = 0 Then
    xZeile = [A65536].End(xlUp).Row + 1
Else
    xZeile = ComboBox1.ListIndex + 1
End If
Cells(xZeile, 1) = TextBox1
Cells(xZeile, 2) = TextBox2
Cells(xZeile, 3) = TextBox3
Cells(xZeile, 4) = TextBox4
Cells(xZeile, 5) = TextBox5
Cells(xZeile, 6) = TextBox6
 
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
 
Sheet("Kunde").Columns("A:H").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
UserForm_Initialize
End Sub
 
Private Sub CommandButton3_Click()
Unload Me
End Sub
 
 
Private Sub UserForm_Initialize()
Dim aRow, i As Long
Application.EnableEvents = False
ComboBox1.Clear
aRow = [A65536].End(xlUp).Row
ComboBox1.AddItem "Kundenname"
For i = 2 To aRow
    ComboBox1.AddItem Cells(i, 1)
Next i
ComboBox1.ListIndex = 0
Application.EnableEvents = True
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 Suchen und Ändern Probleme
 05.08.2013 23:42:33 Matthias H
NotSolved