| ||||||||||||||
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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen