AW: Select Case, Summe Spalte 2
30.09.2021 16:20:54
Andreas
Hallo Daniel,
danke für deine Nachricht.
Ich rufe aus einer anderen Datei die Quelldatei (https://www.herber.de/bbs/user/148371.xlsx) auf.
Die Quelldatei soll Spalte B durchlaufen und nach Kontobereich 0-7000 und 8000 bis 9999 separieren.
Wenn separiert müssten die Werte aus Spalte E+F jeweils für den Kontenbereich aufsummiert und übergeben werden.
https://www.herber.de/bbs/user/148371.xlsx
Hier mein bisheriger Code:
Public Sub Daten_aus_Bewertung()
Dim strPfad As String, strDatei As String,
Dim wbQuelle As Workbook
'Pfad an Bedürfnisse anpassen
strPfad = "\\NAS-2T\Bau\Projekte\Verschoben auf Server\0005 Baustellenbewertungen\Lexware_Bew_Export\Kostenstelle_1000_1001\"
strDatei = "Lexware*.xlsx"
'loSuchbegriff = ActiveSheet.Range("J1")
'Bildschirmaktualisierung aus
Application.ScreenUpdating = False
'Datei öffnen
Set wbQuelle = Workbooks.Open(strPfad & strDatei)
With wbQuelle.Worksheets("Auswertung Kostenstellen")
Select Case Cells(4, 2).Value
Case 0 To 7999
a = Cells(4, 5).Value
b = Cells(4, 6).Value
c = a + b
Debug.Print a
End Select
End With
'Quelldatei ohne Speichern schließen
wbQuelle.Close (False)
'Variable aufräumen
Set wbQuelle = Nothing
'Bildschirmaktualisierung an
Application.ScreenUpdating = True
End Sub