Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Abhängig von Spalteninhalt Daten einlesen

Abhängig von Spalteninhalt Daten einlesen
15.11.2007 13:27:00
Spalteninhalt
Hallo zusammen,
in die ComboBox (cboDaten) werden Daten aus Tabelle2 Spalte A
eingelesen und in ComboBox (cboServiceNr) aus Spalte B bzw. Spalte C.
Nun möchte ich beim Klick auf die ComboBox (cboServiceNr) den Wert
aus Tabelle2 Spalte F in Tabelle1 D4 einlesen.
Wenn dieSpalte B nicht leer ist, hier:
.Cells(iRow, 2).Value = cboServiceNr.Value Then
Cells(4, 4).Value = .Cells(iRow, 6).Value
dann funktioniert es.
Wenn ader die Spalte B leer ist soll:
.Cells(iRow, 3).Value = cboServiceNr.Value Then
Cells(4, 4).Value = .Cells(iRow, 6).Value
trotzdem der Wert aus Spalte F in D4 eingelesen werden.
habe mit: .Cells(iRow, 2).Value Or .Cells(iRow, 3).Value = cboServiceNr.Value Then
probiert funktioniert nicht.
Hier die Beispiel-Datei:
https://www.herber.de/bbs/user/47741.xls
Damit alles funktioniert muss Aktualisiert werden.
Hat jemand eine Idee und kann helfen?
Vielen Dank im Voraus.
Grüße

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Abhängig von Spalteninhalt Daten einlesen
17.11.2007 19:19:00
Spalteninhalt
Hallo edie,
passe die Change-Prozedur der Box wie folgt an, dann sollte sie Auswahl korrekt abgearbeitte werden.

Private Sub cboServiceNr_Change()
Dim iRow As Integer
iRow = 2
With Worksheets("Tabelle2")
On Error Resume Next
Cells(4, 4).Value = ""
Do Until IsEmpty(.Cells(iRow, 1))
If .Cells(iRow, 1).Value = cboDaten.Value Then
If .Cells(iRow, 2).Value = cboServiceNr.Value Or (.Cells(iRow, 2).Value = "" _
And .Cells(iRow, 3).Value = cboServiceNr.Value) Then
Cells(4, 4).Value = .Cells(iRow, 6).Value
Exit Do
End If
End If
iRow = iRow + 1
Loop
End With
End Sub


Gruß
Franz

Anzeige
AW: Abhängig von Spalteninhalt Daten einlesen
17.11.2007 20:46:54
Spalteninhalt
Hallo Franz,
habe alle Hoffnung verloren, dass meine Frage noch
erwidert wird. Es funktioniert.
Tausend mal Danke.
Grüße
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige