Aus Liste daten übertragen, dynamisch

Hallo Liebe Leute,
ich komme gar nicht weiter, weil ich keine Idee habe wie ich das Problem lösen soll. Ich hoffe ihr könnt mir helfen. Ich habe deshalb schon mal einmal angefragt, aber da kam leider nichts. Aus dem Grund versuche ich es nochmal.
Ich habe ein Makro geschrieben der mir ein Leistungsverzeichnis ausgibt. Jetzt möchte ich gerne, dass zu den jeweiligen Positionen Preise eingefügt werden in die Spalte F. Die ich in den Tabellenblatt (Preisliste) hinterlegt habe.
Meine Überlegung war das mit einer Dropdownliste zu machen in dem ich einen Unternehmer aussuche und das dann die Preise von dem ausgesuchten Unternehmer zu den jeweiligen Positionen einfügt.
Das Leistungsverzeichnis ist aber nicht immer gleich es können Positionen dazu kommen oder wegfallen.
Mit Funktionen die ich in die Spalte hinterlege kann ich auch nicht Arbeiten, weil das Marko was ich vorher geschrieben habe das ganze Tabellenblatt (LV) löscht und dann die entsprechenden Positionen einfügt.
Ein Beispiel wie das Aussieht habe ich beigefügt, damit man sich das besser vorstellen kann was ich genau meine.
https://www.herber.de/bbs/user/146836.xlsx

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo,


Option Explicit
Private Sub ComboBox1_Change()
Dim LV As Worksheet, PL As Worksheet, i As Long
Dim raUnternehmer As Range, raPosition As Range
Dim strWert As String
Set LV = Worksheets("LV")
Set PL = Worksheets("Preisliste")
strWert = ComboBox1.Value
Set raUnternehmer = PL.Columns("A").Find(what:=strWert, LookIn:=xlValues, lookat:=xlWhole)
If Not raUnternehmer Is Nothing Then
For i = 3 To LV.Cells(LV.Cells.Rows.Count, "A").End(xlUp).Row
If LV.Cells(i, "A")  "" Then
Set raPosition = PL.Rows(1).Find(what:="Pos. " & LV.Cells(i, "A"), _
LookIn:=xlValues, lookat:=xlWhole)
If Not raPosition Is Nothing Then
LV.Cells(i, "A").Offset(, 5) = PL.Cells(raUnternehmer.Row, raPosition.Column)
Else
LV.Cells(i, "A").Offset(, 5) = "Preis nv"
End If
End If
Next i
End If
Set LV = Nothing: Set PL = Nothing: Set raUnternehmer = Nothing: Set raPosition = Nothing
End Sub

Code ins Codemodul des Tabellenblattes "LV"
Rechtsklick auf den Tabellenblattreiter - Code anzeigen - Code rechts ins Codefenster kopieren
Gruß Werner

Beliebteste Forumthreads (12 Monate)

Aus Liste daten übertragen, dynamisch

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Aus Liste daten übertragen, dynamisch

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread