Hallo zusammen,

ich stehe glaube ich vor einem relativ einfachen Problem aber ich finde meinen Fehler nicht. Der erste Teil funktioniert problemlos. Es soll in einer anderen Excel-Datei eine bestimmte Spalte gefunden werden. Gefunden wird schließlich die dritte Spalte. Meine erste Frage wäre, wie ich diese Spalte automatisch aufrufen kann, dort, wo momentan noch [C1] steht? Anstelle von C1 hätte ich gerne, dass das C automatisch auf die Variable 'Spalte' gesetzt wird.

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

Im zweiten Teil des Codes möchte ich diese Spalte nach Bauteilen durchsuchen und diesen Kosten zuordnen und aufsummieren. Ich schaffe es aber nicht, dass der Code in den richtigen Case springt. D.h, wenn in der Zelle das Wort "Stoßstange" steht springt es trotzdem in den Else Case. Da ich mich mit VBA nicht wirklich auskenne könnte es sein, dass ich bei der Select-Case Sache totalen Blödsinn geschrieben haben. Ich bedanke mich schonmal für jede Hilfe im Voraus, Gruß Simon