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:
871		 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

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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