Office: (Office 2019) Daten Einlesen aus mehre Zellen in Verbindung einer Verbundene Zelle

Moin Allerseits,

mit Verlaub ich bin seit 5 Jahren aus der Materie raus, fange somit von Vorne an.

Frage:
Anpassung eines bereits Geschrieben Codes.

Verwendete Elemente:
Quelle> Tabelle "wsLK",
Daten> SpalteA: Pos. = 1, Spalte B: Art = LK1, LK2, LK3, LK4, LK5, LK6, LK7, LK8, LK9, LK10
Label> 1-10 (Teil einer UF)

Problem:
Der Code an sich Funktioniert.
Aber durch mehrere Anpassung am Tabellenblatt (Verbundene-Zellen) u. Zusätzlichen Zeilen passt es nicht mehr.

Ziel:
In Spalte A, Pos. 1 ist ein Fester Werte, die daraus Resultierenden Daten aus Zeile 2-11 (manuelle Eingabe) sollen in den Labels als Vorhanden od. nicht Vorhanden Angezeigte werden. Leider Funktioniert es nicht mehr nach dem ich nun mit Verbunde Zellen Arbeite.

Könnte mir jemand Helfen den Code Anzupassen?


Grus Leon

 

Hi,

da verbundene Zellen nur Probleme bereiten, verzichte drauf!

 

Hallo Leon,

mal abgesehen von den verbundenen Zellen der Spalte A im Blatt "wsLK" erklären sich die Zusammenhänge zumindest mir nicht ganz. Um jetzt eine Trefferausgabe in den Labels zu erhalten, braucht es doch zumindest die Positionsnummer. Diese wird in dem eher seltsamen Konstrukt weder abgefragt noch verwendet.

Ändere die Prozedur so:

Code:

Sub VorhandeneHM()
    Dim PosNr As Variant, arrPos(), i&, iZeile As Variant
    With frmForm1
        If .LB_Be.ListIndex = -1 Then Exit Sub
        PosNr = .LB_Be.List(.LB_Be.ListIndex, 0)
    End With
    With Tabelle2
        iZeile = Application.Match(PosNr, .Columns(1), 0)
        If IsError(iZeile) Then Exit Sub
        arrPos = .Range("B" & iZeile & ":B" & iZeile + 9).Value
    End With
    For i = 1 To 10
        With frmForm1.Controls("laLk" & i & "Vorhanden")
            If arrPos(i, 1) = "" Then
                .ForeColor = RGB(255, 0, 0)
                .Caption = "nicht Vorhanden"
            Else
                .ForeColor = RGB(0, 176, 80)
                .Caption = "Vorhanden"
            End If
        End With
    Next i
End Sub

Gruß Uwe

 

Hallo Leon,

ich habe mal dies Sache noch etwas komprimiert:

Code:

Sub VorhandeneHM()
    Dim PosNr As Variant, arrPos(), i&, iZeile As Variant
    With frmForm1
        If .LB_Be.ListIndex = -1 Then Exit Sub
        PosNr = .LB_Be.List(.LB_Be.ListIndex, 0)
        With Tabelle2
            iZeile = Application.Match(PosNr, .Columns(1), 0)
            If IsError(iZeile) Then Exit Sub
            arrPos = .Range("B" & iZeile & ":B" & iZeile + 9).Value
        End With
        For i = 1 To 10
            With .Controls("laLk" & i & "Vorhanden")
                .ForeColor = IIf(arrPos(i, 1) = "", RGB(255, 0, 0), RGB(0, 176, 80))
                .Caption = IIf(arrPos(i, 1) = "", "nicht Vorhanden", "Vorhanden")
            End With
        Next i
    End With
End Sub

Gruß Uwe

 

Danke für deine Antwort, allerdings bin ich aktuell drauf Angewiesen.

 

Hallo Uwe,

Erstmal Danke für deine Antwort u. Bemühungen.
Ich muss sagen das wenn es Probleme gibt es auch Lösungsansetze gibt.

OK. Nun zu deinem Lösungsvorschlag.
Ganz ehrlich würde ich mich aktiver mit VBA Befassen dann würde ich deinen Code Nachvollziehen können. Allerdings Schleift es hier u. da erheblich.

Trotz Namens Änderung des Tabellenblattes von Tabelle2 in wsLK, gibt mir meine UF kein Werte aus. Der Code den Ich geschrieben habe ist ein Originalen Auszug aus meiner UF.
Mit deiner Anpassung läuft meine UF auch nicht mehr.

Anbei hab ich eine 2.Mappe Angelegt wo die Alte u. Neue Version meiner UF zu sehen ist.
In Tabelle "wsLK-Alt", die Pos. 1 u. Wert in gleicher Zeile Spalte B sin Abhängig von einander in meiner UF. In dieser Version konnte ich nur ein Wert Vergeben zur Pos. 1.
In der Neuen Tabelle "wsLK-Neu" möchte ich dies nun Ändern, Die Pos. 1 hat nun nicht nur 1 Zeile sondern 10 Zeilen. Alle Werte sollen in der UF/Label angezeigt werden die Vorhanden sind.

Vielleicht kann man es so nachvollziehen was ich möchte.
Zweite Bsp. Mappe mit zwei Separaten UFs (alt/Neu)

Gruß Leon

 

Hallo Leon,

wenn kein Eintrag in der Listbox angeklickt ist, wird/muss um Fehler zu verhindern die Prozedur abgebrochen werden. Das muss so sein, da ja von irgendwo her die Positionsnummer bezogen werden muss.
Öffne diese Demodatei und starte das Userfom.
Klicke in der Listbox einen Datensatz an und die Labels werden passend gefüllt/gefärbt.

Gruß Uwe

Ich habe eben gesehen, dass du eine neue Datei hochgeladen hast, wo nun drinsteht was unter welcher tatsächlichen Bedingung ausgegeben werden soll. Da braucht man nur noch ein 2. Array mit den 10 abzufragenden Bedingungen.

 

Hallo Uwe

Danke für deine Hilfe, ja jetzt Funktioniert.
Werde es heute Abend in meine UF übernehmen..

Vielen, vielen Danke u. deiner Geduld!

Gruß Leon