Thema Datum  Von Nutzer Rating
Antwort
21.04.2016 19:27:49 Simon
NotSolved
Blau Fehler in Select Case Schleife
 21.04.2016 19:43:18 Gast38668
NotSolved
21.04.2016 20:37:02 SimonColumns(Spalte)
NotSolved
21.04.2016 20:56:27 Gast79068
Solved
21.04.2016 21:19:46 Simon
NotSolved

Ansicht des Beitrags:
Von:
Gast38668		 Datum:
21.04.2016 19:43:18		 Views:
713		 Rating:
     
Antwort:
  Ja
Thema:
Fehler in Select Case Schleife

Moin!

Probiere es mal so. Anstelle von C1 wird jetzt die Spalte aktiviert. Alternativ die Variante die auskommentiert ist nehmen. Dort wir die 1 Zelle der Spalte aktiviert. Und beim Slect case, muss Bauteil den Wert haben, der bei den Case überprüft wird. Den Darfst du nicht später zuweisen. VG

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; "."
     
    Columns(Spalte).Activate   'cells(1,Spalte).Activate
    
     
    Kosten = 0
     
    Do Until ActiveCell = ""
        ActiveCell.Offset(1, 0).Activate
        Bauteil = ActiveCell
        
            Select Case Bauteil
                Case "A-Pfosten"
                   Kosten = Kosten + 500
                Case "Stoßstange"
                    Kosten = Kosten + 2500
                Case Else
                    Kosten = 0
                 
            End Select
             
    Loop
    Debug.Print "Die Gesamtkosten betragen " & Kosten
             
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
21.04.2016 19:27:49 Simon
NotSolved
Blau Fehler in Select Case Schleife
 21.04.2016 19:43:18 Gast38668
NotSolved
21.04.2016 20:37:02 SimonColumns(Spalte)
NotSolved
21.04.2016 20:56:27 Gast79068
Solved
21.04.2016 21:19:46 Simon
NotSolved