Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Fehler in Select Case Schleife |
21.04.2016 19:27:49 |
Simon |
|
|
|
21.04.2016 19:43:18 |
Gast38668 |
|
|
|
21.04.2016 20:37:02 |
SimonColumns(Spalte) |
|
|
|
21.04.2016 20:56:27 |
Gast79068 |
|
|
|
21.04.2016 21:19:46 |
Simon |
|
|
Von:
Simon |
Datum:
21.04.2016 19:27:49 |
Views:
1162 |
Rating:
|
Antwort:
|
Thema:
Fehler in Select Case Schleife |
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
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
Fehler in Select Case Schleife |
21.04.2016 19:27:49 |
Simon |
|
|
|
21.04.2016 19:43:18 |
Gast38668 |
|
|
|
21.04.2016 20:37:02 |
SimonColumns(Spalte) |
|
|
|
21.04.2016 20:56:27 |
Gast79068 |
|
|
|
21.04.2016 21:19:46 |
Simon |
|
|