Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
924to928
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
924to928
924to928
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
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

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

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige