Makro verändern
Marky
Ich habe ein Makro (das durch die Genies in diesem Forum generiert wurde) mit folgendem Code:
Sub MarkierteDatenKopieren()
Dim sh As Worksheet
Dim shZiel As Worksheet
On Error GoTo Sheet_Einfügen
Set shZiel = ThisWorkbook.Sheets("Zusammenfassung")
On Error GoTo 0
With shZiel
For Each sh In ThisWorkbook.Worksheets
If sh.Name .Name Then
If WorksheetFunction.CountIf(sh.Range("j:j"), "*") > 0 Then
Intersect(sh.Range("C:D"), sh.Range("j:j") _
.SpecialCells(xlCellTypeConstants).EntireRow).Copy
.Cells(Rows.Count, 3).End(xlUp).Offset(1, 0).PasteSpecial xlPasteAll
.Range(.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0), _
.Cells(Rows.Count, 3).End(xlUp).Offset(0, -2)).Value = sh.Name
End If
End If
Next
End With
Application.CutCopyMode = False
Exit Sub
Sheet_Einfügen:
ThisWorkbook.Sheets.Add after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
ActiveSheet.Name = "Zusammenfassung"
Resume
End Sub
1) nur jene C:D Zellinhalte kopiert, wenn in der Spalte J ein x steht (und nicht irgendwas)
2) dass die zu übertragenen Daten in das Sheet "Zusammenfassung" erst in zeile 3 übertragen werden, und nicht so wie jetzt in Zeile 2
3) Die Datenübertragung sollte in Zusammenfassung sollte so aussehen:
Der Blattnahme in Spalte B, Der Zellinhalt von C in Spalte F; Der Zellinhalt von D in Spalte G
Beispielmappe:
https://www.herber.de/bbs/user/68645.xls
Wäre echt nett wenn das einer von euch hinbekommen könnte.
LG
Marky