Thema Datum  Von Nutzer Rating
Antwort
21.04.2016 19:27:49 Simon
NotSolved
21.04.2016 19:43:18 Gast38668
NotSolved
Rot Fehler in Select Case Schleife
 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:
SimonColumns(Spalte)		 Datum:
21.04.2016 20:37:02		 Views:
693		 Rating:
     
Antwort:
  Ja
Thema:
Fehler in Select Case Schleife

Hey,

vielen Dank für die Hilfe. Das mit der Spalte automatisch einfügen hat funktioniert. Mit der Schleife stimmt aber immer noch irgendwas nicht. Ich habe mir nun mal vor jedem Schleifendurchlauf die aktuelle Zelle und nach jedem Lauf die Kosten ausgeben lassen. Es springt einfach jedes mal in den Else Case, selbst wenn ein anderer Case zutrift.

Die Schleife sieht nun folgendermaßen aus:

    Columns(Spalte).Activate
    
    Kosten = 0
    
    Do Until ActiveCell = ""
        ActiveCell.Offset(1, 0).Activate
        Debug.Print ActiveCell
            Select Case Bauteil
                Case "A-Pfosten"
                    Kosten = Kosten + 500
                Case "Stoßstange"
                    Kosten = Kosten + 2500
                Case Else
                    Kosten = Kosten + 0
                
            End Select
            Debug.Print Kosten
    Loop
    Debug.Print "Die Gesamtkosten betragen " & Kosten
            
End Sub

Als Ausgabe erhalte ich damit:

 

A-Pfosten
 0 
Stoßstange
 0 
Räder
 0 
A-Pfosten
 0 
Blende
 0 
Stoßstange
 0 
A-Pfosten
 0 
Heckleuchte
 0 
A-Pfosten
 0 

 0 
Die Gesamtkosten betragen 0

Was mache ich denn hier falsch?

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
21.04.2016 19:43:18 Gast38668
NotSolved
Rot Fehler in Select Case Schleife
 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