|
Hallo zusammen,
ich sitze gerad an einer VBA Lösung für einen Export einer Preisliste.
Ich habe ca. 50 verschiedene Preislisten und will diese in eine Tabelle zusammenführen. Stand jetzt wird der Tabellenblatt Name vom Makro gelesen und als Wert in die Spalte eingefügt. Ich hätte hier jedoch gerne eine andere Lösung in Form von Wenn Tabellenblattname = XXX dann Name YYY.
Ist dies in VBA abbildbar. Hier mein Codeschnippsel.
---------------------------------------------------------------------------
PreistafelBez = Worksheets(intSheet).Name
Workbooks("MergeData").Worksheets("OutputTarif").Cells(intRow2, 1) = PreistafelBez
intRow1 = intRow1 + 1
intRow2 = intRow2 + 1
Loop
intCol1 = intCol1 + 1
Loop
intSheet = intSheet + 1
Loop
Workbooks("MergeData").Worksheets("Admin").Cells(1, 2) = intRow2
End Sub
--------------------------------------------------------------------------
Vielen Dank schon mal und viele Grüße,
Marco
|