ich durchlaufe mit Select Case in Spalte B verschiedene Zahlenbereiche (Konten) (z.B. 0-4000).
In Spalte E und F stehen jeweils die zugeordneten Beträge.
Wie kann ich im Case jeweils die Summen aus Spalte E und F abfragen/auswerten.
Danke
Andreas
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