Thema Datum  Von Nutzer Rating
Antwort
Rot ComboBox mit Verknüpfung
 12.11.2021 10:52:49 Gast35577
NotSolved

Ansicht des Beitrags:
Von:
Gast35577		 Datum:
12.11.2021 10:52:49		 Views:
1393		 Rating:
     
Antwort:
  Ja
Thema:
ComboBox mit Verknüpfung

Hallo Ihr Lieben

Ich bin eine absolute Anfängerin bezüglich VBA. Ich hoffe ihr versteht meine Frage....

Für die Arbeit habe ich eine "Such-Datenbank" via VBA erstellt.

Im ersten Tabellenblatt kann man auf einen Button klicken und ein Pop-Up Fenster öffnet sich. In diesem Fenster kann man einen Suchbegriff eingeben und es werden mehrere Werte dazu angezeigt. Diese Werte sind im einem weiteren Tabellenblatt (mit dem Namen ZZFFF2) eingetragen. 

Dieses Tabellenblatt (ZZFFF2) ist aber mit einer anderen Excel-Datei verknüpft, damit man aktualisierungen in dieser anderen Excel-Liste machen kann und diese dann auch automatisch im Tabellenblatt (ZZFFF2) aktualisiert werden.

Zuerst habe ich ohne die Verknüpfung diese Datenbank erstellt und alles hat hervoragend funktioniert, weil die erste Zeile (Suchzeile) nicht verknüpft war. Wenn ich aber diese erste Zeile auch verknüpft haben möchte, kann ich nichts mehr in der Suchfunktion eintragen. 

Was muss ich für einen Code eingeben, dass auch in der ersten Zeile die Verknüpfung funktioniert?

Hoffe Irgendjemand versteht, was ich meine... Ich kann es leider nicht besser erklären, da ich selber nicht genau weiss, was ich da mache. ; ) 

Besten Dank

?
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
'''8_1_##########
If ComboBox1_Suche.Value <> "" Then
AAAZ = CDbl(ZZFFF2.Range("A2:A5002").Cells.Find(What:=ComboBox1_Suche.Value, lookat:=xlWhole).Row)
TextBox2_STK.Value = ZZFFF2.Cells(AAAZ, 2).Value
TextBox3_TelSTK.Value = ZZFFF2.Cells(AAAZ, 3).Value
TextBox4_STV.Value = ZZFFF2.Cells(AAAZ, 4).Value
TextBox5_TelSTV.Value = ZZFFF2.Cells(AAAZ, 5).Value
TextBox6_Division.Value = ZZFFF2.Cells(AAAZ, 6).Value
End If
'''8_1_##########
_____________
 
Private Sub UserForm_Initialize()
'''2_1_##########
On Error GoTo EERR
With UserForm1
.Height = 400
.Width = 600
End With
   
'''3_1_##########
ZZFFF2.Activate
With ZZFFF2
ComboBox1_Suche.RowSource = .Range(.Cells(2, 1), .Cells(.Cells(Rows.Count, 1).End(xlUp).Row, 1)).Address(External:=True)
End With
'''3_1_##########

 

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 ComboBox mit Verknüpfung
 12.11.2021 10:52:49 Gast35577
NotSolved