|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
 Variable2 = Variable1.Offset |
30.08.2020 11:04:28 |
Gangerl_61 |
|
|
|
30.08.2020 11:25:46 |
Mase |
|
|
|
30.08.2020 12:39:29 |
Gangerl_61 |
|
|
|
30.08.2020 12:52:07 |
Mase |
|
|
|
30.08.2020 12:54:53 |
Mase |
|
|
|
30.08.2020 14:31:58 |
Gangerl_61 |
|
|
|
30.08.2020 14:39:10 |
Mase |
|
|
|
30.08.2020 15:24:37 |
Gangerl_61 |
|
|
|
30.08.2020 11:30:33 |
Werner |
|
|
|
30.08.2020 12:14:06 |
Gast31355 |
|
|
|
30.08.2020 12:28:34 |
Gangerl_61 |
|
|
|
30.08.2020 12:33:34 |
Werner |
|
|
|
30.08.2020 12:30:00 |
Werner |
|
|
|
30.08.2020 12:49:12 |
Gangerl_61 |
|
|
|
30.08.2020 14:23:42 |
Werner |
|
|
|
30.08.2020 14:44:03 |
Gangerl_61 |
|
|
|
30.08.2020 20:10:37 |
Gangerl_61 |
|
|
Von:
Gangerl_61 |
Datum:
30.08.2020 11:04:28 |
Views:
781 |
Rating:
|
Antwort:
|
Thema:
Variable2 = Variable1.Offset |
|
Hallo,
bin mehr oder weniger blutiger Amateur in Excel Vba und weiß nicht mehr weiter.
In meiner Tabelle stehen in Spalte 1 Hersteller und in Spalte 2 die Produkte. über eine UserForm mit zwei Comboboxen versuche ich nun, Hersteller und ein dazugehörendes Produkt anzuzeigen.
Option Explicit
Dim cell1 As Variant
Dim cell2 As Range
Dim cell3 As Variant
Dim cell4 As Variant
Private Sub UserForm_Initialize()
Sheets("Tabelle2").Select
For Each cell1 In Range("A2:A7")
If Not cell1.Text = "" Then
ComboBox1.AddItem cell1.Text
End If
Next
End Sub
Private Sub ComboBox1_Change()
Sheets("Tabelle2").Select
Set cell2 = ActiveSheet.Cells.Find(what:=ComboBox1.Value)
If Not cell2 Is Nothing Then cell3 = cell2.Offset(, 1).Address
Range(cell3).Select
cell4 = ActiveCell.Offset(3, 0).Adress
'ComboBox2.List = Range(cell3) & (cell3.Offset(3, 0).Address)
ComboBox2.RowSource = (cell3) & (cell4)
End Sub
Bei cell4 = ...
bekomme ich Laufzeitfehler 438
Die Zeile ComboBox2.List funzt auch nicht
Vielen Dank im voraus
Gangerl_61
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
Variable2 = Variable1.Offset |
30.08.2020 11:04:28 |
Gangerl_61 |
|
|
|
30.08.2020 11:25:46 |
Mase |
|
|
|
30.08.2020 12:39:29 |
Gangerl_61 |
|
|
|
30.08.2020 12:52:07 |
Mase |
|
|
|
30.08.2020 12:54:53 |
Mase |
|
|
|
30.08.2020 14:31:58 |
Gangerl_61 |
|
|
|
30.08.2020 14:39:10 |
Mase |
|
|
|
30.08.2020 15:24:37 |
Gangerl_61 |
|
|
|
30.08.2020 11:30:33 |
Werner |
|
|
|
30.08.2020 12:14:06 |
Gast31355 |
|
|
|
30.08.2020 12:28:34 |
Gangerl_61 |
|
|
|
30.08.2020 12:33:34 |
Werner |
|
|
|
30.08.2020 12:30:00 |
Werner |
|
|
|
30.08.2020 12:49:12 |
Gangerl_61 |
|
|
|
30.08.2020 14:23:42 |
Werner |
|
|
|
30.08.2020 14:44:03 |
Gangerl_61 |
|
|
|
30.08.2020 20:10:37 |
Gangerl_61 |
|
|