Sub KostenBerechnen()
Dim Aktuell As Workbook
Dim Quelle As Workbook
Dim Spalte As Integer
Dim Kosten As Variant
Dim Bauteil As String
Set Aktuell = ThisWorkbook
Set Quelle = Workbooks.Open("C:\Desktop\Test.xlsx")
[A1].Activate
Do Until ActiveCell = ""
ActiveCell.Offset(0, 1).Activate
If ActiveCell = "GesuchteSpalte" Then
Spalte = ActiveCell.Column
End If
Loop
Debug.Print "Die gesuchte Spalte ist die " & Spalte; "."
[C1].Activate
Kosten = 0
Do Until ActiveCell = ""
ActiveCell.Offset(1, 0).Activate
Select Case Bauteil
Case ActiveCell = "A-Pfosten"
Kosten = Kosten + 500
Case ActiveCell = "Stoßstange"
Kosten = Kosten + 2500
Case Else
Kosten = 0
End Select
Loop
Debug.Print "Die Gesamtkosten betragen " & Kosten
End Sub