| ||||||||||||||
With Sheets(i)
Sub FindeDaten()
Dim i As Integer
Dim c As Range
Dim Zeile(0 To 3) As Long
Dim Blatt()
'Blattnamen:
Blatt = Array("Tabelle1", "Tabelle2", "Tabelle3", "Tabelle4")
For i = 0 To 3
With Sheets(Blatt(i))
Set c = .Range("A:A").Find(What:=Date)
If c Is Nothing Then
Zeile(i) = 0
Else
Zeile(i) = c.Row
End If
End With
Next i
'Zur Demo:
For i = 0 To 3
Debug.Print Zeile(i)
Next i
End Sub
'Summe:
Dim Summe
Summe = 0
For i = 0 To 3
Debug.Print Zeile(i)
If Zeile(i) > 0 Then Summe = Summe + Sheets(Blatt(i)).Cells(Zeile(i), 2)
Next i
MsgBox Summe
Sub FindeDaten()
Dim i As Integer
Dim c As Range
Dim Zelle(0 To 3) As Range
Dim Blatt()
Dim Summe As Double
'Blattnamen:
Blatt = Array("Tabelle1", "Tabelle2", "Tabelle3", "Tabelle4")
For i = 0 To 3
With Sheets(Blatt(i))
Set Zelle(i) = .Range("A:A").Find(What:=Date)
End With
Next i
'Summe:
Summe = 0
For i = 0 To 3
If Not Zelle(i) Is Nothing Then
Summe = Summe + Zelle(i).Offset(0, 1).Value 'Spalte B
End If
Next i
MsgBox Summe
End Sub
Sub FindeDaten()
Dim i As Integer
Dim Blatt()
Dim Zelle() As Range
Dim Summe As Double
'Blattnamen (kann erweitert werden):
Blatt = Array("Tabelle1", "Tabelle2", "Tabelle3", "Tabelle4", "Tabelle5")
'ZellenArray redimensionieren, je nach Anzahl der Blätter:
ReDim Zelle(0 To UBound(Blatt)) As Range
'Array Zellen() füllen:
For i = 0 To UBound(Blatt)
With Sheets(Blatt(i))
Set Zelle(i) = .Range("A:A").Find(What:=Date)
End With
Next i
'Summe ermitteln:
Summe = 0
For i = 0 To UBound(Blatt)
If Not Zelle(i) Is Nothing Then
Summe = Summe + Zelle(i).Offset(0, 1).Value 'Spalte B: von A aus 1 nach rechts
End If
Next i
'Summe in Tabelle eintragen:
Dim lz As Long
With Sheets("Gesamtauswertung")
lz = .Cells(Rows.Count, 2).End(xlUp).Row + 1
.Cells(lz, 2) = Summe
End With
End Sub
Sub FindeDaten()
Dim Blatt()
Dim Summe As Double
Dim bl
Dim z As Range
'Blattnamen (kann erweitert werden):
Blatt = Array("Tabelle1", "Tabelle2", "Tabelle3", "Tabelle4", "Tabelle5")
'Spalte A aller Blätter durchsuchen und in B liegende Werte addieren
For Each bl In Blatt
Debug.Print bl
Set z = Sheets(bl).Range("A:A").Find(What:=Date)
If Not z Is Nothing Then Summe = Summe + z.Offset(0, 1).Value
Next bl
'Summe in Tabelle eintragen:
Dim lz As Long
With Sheets("Gesamtauswertung")
lz = .Cells(Rows.Count, 2).End(xlUp).Row + 1
.Cells(lz, 2) = Summe
End With
End Sub
'Prozedur Blattsumme:
'Argumente: dat nach diesem Datum wird gesucht
' Spalte: Addiert die Werte der Blätter in dieser Spalte
' Ergebnisspalte: in diese Spalte wird die Summe geschrieben
Sub Blattsumme(dat As Date, Spalte As Integer, Ergebnisspalte As Integer)
Dim Blatt()
Dim Summe As Double
Dim bl
Dim z As Range
'Blattnamen (kann erweitert werden):
Blatt = Array("Tabelle1", "Tabelle2", "Tabelle3", "Tabelle4", "Tabelle5")
'Spalte A aller Blätter durchsuchen und in [Spalte] liegende Werte addieren
For Each bl In Blatt
Debug.Print bl
Set z = Sheets(bl).Range("A:A").Find(What:=dat)
If Not z Is Nothing Then Summe = Summe + z.Offset(0, Spalte - 1).Value
Next bl
'Summe in Tabelle eintragen:
Dim lz As Long
With Sheets("Gesamtauswertung")
lz = .Cells(Rows.Count, Ergebnisspalte).End(xlUp).Row + 1
.Cells(lz, Ergebnisspalte) = Summe
End With
End Sub
'Test: Summiert die Treffen der Spalten B-K
Sub test()
Dim i As Integer
For i = 2 To 11 'Spalte B-K
Blattsumme Date, i, i
Next i
End Sub
'Test: Summiert die Treffen der Spalten B-K, ohne F und G
Sub test()
Dim i As Integer
For i = 2 To 5 'Spalte B-E
Blattsumme Date, i, i
Next i
For i = 8 To 11 'Spalte H-K
Blattsumme Date, i, i-2
Next i
End Sub
'Summe in Tabelle eintragen:
Dim lz As Long
With Sheets("Gesamtauswertung")
'Suche Datum in Spalte A von Gesamtauswertung
Set z = .Range("A:A").Find(What:=dat)
If z Is Nothing Then
'nicht gefunden, dann neue Zeile anlegen
lz = .Cells(Rows.Count, Ergebnisspalte).End(xlUp).Row + 1
.Cells(lz, 1) = dat
Else
'gefunden, dann diese Zeile verwenden
lz = z.Row
End If
.Cells(lz, Ergebnisspalte) = Summe
End With
End Sub
.Cells(lz, Ergebnisspalte) = Summe
If Ergebnisspalte = 5 Then .Range("B3") = Summe
End With
End Sub
'Summe:
Dim Summe
Summe = 0
For i = 0 To 3
Debug.Print Zeile(i)
If Zeile(i) > 0 Then Summe = Summe + Sheets(Blatt(i)).Cells(Zeile(i), 2)
Next i
MsgBox Summe
Sub FindeDaten()
Dim i As Integer
Dim c As Range
Dim Zelle(0 To 3) As Range
Dim Blatt()
Dim Summe As Double
'Blattnamen:
Blatt = Array("Tabelle1", "Tabelle2", "Tabelle3", "Tabelle4")
For i = 0 To 3
With Sheets(Blatt(i))
Set Zelle(i) = .Range("A:A").Find(What:=Date)
End With
Next i
'Summe:
Summe = 0
For i = 0 To 3
If Not Zelle(i) Is Nothing Then
Summe = Summe + Zelle(i).Offset(0, 1).Value 'Spalte B
End If
Next i
MsgBox Summe
End Sub