VBA labelgegevens uit ander excel sheet halen.

Status
Niet open voor verdere reacties.
B

Bosswilly

Gebruiker
Lid geworden
28 mrt 2016
Berichten
110
Goedendag,

Hoe kan ik in Userform (Formulier2_Kabelberekeningen) bij de blauwe markering (text Lbl202) dat hij uiteindelijk de waarde moet vinden uit sheet (Origineel1) aan de hand van groep/voeding L1 (zie blauwe vak links).

Hij moet dan de waarde van kolom F, K of U vinden, als deze ingevuld is.

Voorbeeld:

Ik heb een verdeler L1 met groepsnummer 1, waardoor ik L1-1 krijg. Deze wordt in sheet Origineel1 in kolom A gevonden. Aan de hand daarvan wil ik de waarde overnemen van kolom F, K of U. Waar de waarde is ingevuld.

Hoe doe ik dit.

Bijlage: Bekijk bijlage 333320
 
Code: 
Private Sub Txt102_Change()


Lbl103.Caption = Txt101.Text & "-" & Txt102.Text
[COLOR=#0000ff]With Sheets("origineel1")[/COLOR]
[COLOR=#0000ff]  r = Application.Match(Lbl103, .Columns(1), 0)[/COLOR]
[COLOR=#0000ff]  If Not IsError(r) Then Lbl202 = .Cells(r, 6) & "-" & .Cells(r, 11) & "-" & .Cells(r, 21)[/COLOR]
[COLOR=#0000ff]End With[/COLOR]
End Sub
 
Super, dit zocht ik.

Hartelijke dank hiervoor.

Nogmaals dank, dank en dank.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan