title image


Smiley Daten von mehreren Blättern mit Bedingung zusammenfassen
Hi Zusammen,

Im EWAF (übrigens eine hervorragende Nachschau) habe ich für meine aktuelle Anwendung eine VBA gefunden, mit der ich Daten von mehreren Blättern zusammenfassen kann. Diese VBA möchte ich jetzt gerne mit einer Bedingung erweitert haben: Es soll immer nur DIE Zeile kopiert werden, wenn in Spalte B der Zeile jeweils ein Wert >0 steht. Wo und vor allem wie muss dieser Befehl in der nachfolgenden Prozedur eingebaut werden? Vielen Dank schon mal für die Hilfe

Grüße von Dieter







Sub speichern()

Dim Zeile!, letzteZ!

'Auswertungsblatt löschen

Worksheets("Zusammenfassung").Delete

'Auswertungsblatt einfügen

Worksheets.Add after:=Sheets(Sheets.Count)

ActiveSheet.Name = "Zusammenfassung"

'Variable, die dafür sorgt, daß die zusammen-

'gefaßten Daten untereinander stehen

'hier ab Zeile 1

Zeile = 1

'Von Blatt 1 bis Blatt 3 zusammenfassen

For i = 1 To 3

Worksheets(i).Select

'Beliebige Zelle in der Datenbank in Spalte A auswählen

[A3].Select

letzteZ = Cells(Rows.Count, 1).End(xlUp).Rows.Row

'Datenbereich (hier bis Spalte 5) auswählen

Range(Cells(1, 1), Cells(letzteZ, 5)).Select

'Kopieren

Selection.Copy

'Auswertungsblatt auswählen

Sheets("Zusammenfassung").Select

'Zielzelle auswählen

Cells(Zeile, 1).Select

'Einfügen

ActiveSheet.Paste

'Variable Zeile erhöhen

Zeile = Zeile + letzteZ

Next

End Sub



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: