title image


Smiley Nachtrag: SummeWenn-Funktion per VBA erstellen
Hallo JerryB,



hier nochmal der gesamte VBA-Code:



-------------------------------------------------------------------



Sub Auswertungen()



Dim Tabname As String

Dim i As Integer

Dim LetzteZeile As Integer

Dim AuswertungsZeile As Integer



Dim Bereich As Range

Dim Suchkriterium As Range

Dim Summe_Bereich As Range



Tabname = "ZZZ"



Worksheets("ZZZ_Auswertungen").Select



ActiveSheet.Cells.Value = ""



' Generieren der Überschriften



ActiveSheet.Cells(1, 1).Value = "Name"

ActiveSheet.Cells(1, 2).Value = "Beschäftigungsart"

ActiveSheet.Cells(1, 3).Value = "Betrag"



For i = 1 To Sheets.Count

If Sheets(i).Name = Tabname Then

Exit For

End If





ActiveSheet.Cells(i + 2, 1).Value = Sheets(i).Name

ActiveSheet.Cells(i + 2, 2).Value = Sheets(i).Cells(1, 1).Value

ActiveSheet.Cells(i + 2, 3).Value = Sheets(i).Cells(31, 7).Value



Next i



LetzteZeile = ActiveSheet.UsedRange.Rows.Count

AuswertungsZeile = LetzteZeile + 2



ActiveSheet.Cells(AuswertungsZeile, 2).Value = "Vollzeit"



Set Bereich = ActiveSheet.Range(Cells(3, 2), Cells(LetzteZeile, 2)) 'Bereich wird festgelegt



Set Suchkriterium = ActiveSheet.Cells(AuswertungsZeile, 2)



Set Summe_Bereich = ActiveSheet.Range(Cells(3, 3), Cells(LetzteZeile, 3))



ActiveSheet.Cells(AuswertungsZeile, 3).Select

ActiveSheet.Cells(AuswertungsZeile, 3).Formula = "=sumif(" & Bereich & ";" & Suchkriterium & ";" & Summe_Bereich & ")"



End Sub

-------------------------------------------------------------------

Vielleicht kann mein Fehler jetzt besser lokalisiert werden.



Im voraus vielen lieben Dank



Gruß

Toni



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: