Formel als VBA FUnktion

Hallo zusammen,
wir nehmen Daten über eine App auf diese zieh ich mir das per Daten aus web in mein Excel. Die Exceldatei hat 5 Reiter in der jeweils gewisse Zellen ausgefüllt werden. Dies mache ich mit einem Sverweis. Da dieser doch sehr verschachtelt und etwas komplizierter ist kommen einige Kollegen hiermit nicht klar. Nun möchte ich in VBA den Sverweis in eine Funktion schreiben damit Kollege "A" nur =Riss in das Feld eingeben muss. Meine Frage lautet wie Funktioniert das mit Folgender Formel :
{=WENNNV(SVERWEIS($E$2&$A7&$B7&$D7&$D$3;WAHL({1.2.3.4.5}; Data_accessToken_f3abXXXXXXXe7818db4af953f311d6XXXXXXXXXX[[#Alle]; [Column1.data.RepeatGroup.Typ]]&Data_accessToken_f3abXXXXXXXe7818db4af953f311d6XXXXXXXXXX[[#Alle]; [Column1.data.RepeatGroup.Rinnen_Achse]]&Data_accessToken_f3abXXXXXXXe7818db4af953f311d6XXXXXXXXXX[[#Alle]; [Column1.data.RepeatGroup.Rinnen_Nr]]&Data_accessToken_f3abXXXXXXXe7818db4af953f311d6XXXXXXXXXX[[#Alle]; [Column1.data.RepeatGroup.Rinnen_Auskleidung]]&Data_accessToken_f3abXXXXXXXe7818db4af953f311d6XXXXXXXXXX[[#Alle]; [Jahr2]];Data_accessToken_f3abXXXXXXXe7818db4af953f311d6XXXXXXXXXX[[#Alle]; [Column1.data.RepeatGroup.Rinne]]);2;FALSCH);"") }
Vielen Dank für eure Hilfe

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Maxi,
wenn Du VBA lernen möchstest, sei willkommen. Wenn Du nur eine Lösung möchtest, fange damit an.
Je weniger über ein Thema man weisst, desto idealisierter stellt man sich die Sache vor. VBA ist keine gedankenlesende Zauberstab. Du wirst schnell eine funktionierende VBA-Lösung haben. Es wird aber genauso schnell in den Vorgaben, Datenlieferung oder was auch immer sich was ändern, dass dein VBA nicht mehr funktioniert. Du solltest bis dahin soviel VBA-Wissen oder zumindest Lösungsverstand eingeeignet haben, dass Du schnell und selbständig die Anpassung in VBA machen kannst.
Hier einen -unvollständige- Starthilfe. Die erste Aufgabe wird daran bestehen, es zu verstehen und zu ergänzen.


Public Sub LesenAblegen()
Dim LR As ListRow
For Each LR In Worksheets("Tabelle1").ListObjects(1).ListRows
Select Case LCase(LR.Range(2))
Case "schachtdeckel"
With Worksheets("Schachtdeckel").Cells(.Rows.Count, 1) 'letzte befüllte Zeile in Spalte 1
.Offset(1, 0) = LR.Range(3) 'Deckel_Achse, in Zelle 1 nach unten, 0 nach rechts
.Offset(1, 1) = LR.Range(4) 'Deckel_Nr, in Zelle 1 nach unten, 1 nach rechts
.Offset(1, 2) = LR.Range(5) 'Deckel_Form
.Offset(1, 3) = LR.Range(6) 'Deckel_Hersteller
.Offset(1, 4) = LR.Range(7) 'Deckel
.Offset(1, 5) = LR.Range(8) 'Deckel_2
.Offset(1, 6) = LR.Range(9) 'Deckel_3
.Offset(1, 7) = LR.Range(10) 'Schrauben_1
.Offset(1, 8) = LR.Range(11) 'Schrauben_2
.Offset(1, 9) = LR.Range(12) 'Schrauben_3
.Offset(1, 10) = LR.Range(13) 'SONSTIGES_DECKEL
End With
Case "dehnfugen", "dehnfuge"
With Worksheets("Dehnfugen").Cells(.Rows.Count, 1) 'letzte befüllte Zeile in Spalte 1
.Offset(1, 0) = LR.Range(14) 'Dehnfugen_Achse
.Offset(1, 1) = LR.Range(15) 'Dehnfugen_Nr
.Offset(1, 2) = LR.Range(16) 'Dehnfugen_Laenge
.Offset(1, 3) = LR.Range(17) 'Dehnfugen_Material
.Offset(1, 4) = LR.Range(18) 'Fuge_1
.Offset(1, 5) = LR.Range(19) 'Fuge_2
.Offset(1, 6) = LR.Range(20) 'Betonkante_1
.Offset(1, 7) = LR.Range(21) 'Dichtstoff_1
.Offset(1, 8) = LR.Range(22) 'SONSTIGES_DEHNFUGE
End With
Case "rinnen / pumpensümpfe", "rinne"
'jetzt Du
Case "schwellen / aufkantungen", "schwellen"
Case "dichtfläche  (grün)", "fläche"
Case Else
End Select
Next
End Sub

VG
Yal

Beliebteste Forumthreads (12 Monate)

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread