9. November 2006 17:10
Datensatz 1
- Wert 1
- Wert 2
Datensatz 2
- Wert 1
- Wert 2
10. November 2006 11:17
10. November 2006 12:44
Sub Gruppieren()
Dim lngStartzeile, lngEndzeile, lngZeile As Long
Dim txtZelle, txtWert, txtBereich As String
lngStartzeile = 0
lngEndzeile = 0
lngZeile = 0
txtZelle = ""
txtWert = ""
For Each rw In Worksheets("Projekt").Rows
lngZeile = rw.Row
txtBereich = "D" + CStr(lngZeile)
txtWert = CStr(Range(txtBereich).Text)
If txtWert = "MEK" Then
lngStartzeile = rw.Row
lngEndzeile = lngStartzeile + 9
txtBereich = "" + CStr(lngStartzeile) + ":" + CStr(lngEndzeile) + ""
Rows(txtBereich).Select
'Selection.Rows.Group
End If
Next rw
End Sub
14. Oktober 2008 18:30
Alez hat geschrieben:Ich würde das ganz aber lieber als Funktion mit in den Report übernehmen, weil das doch ein ziemlich spezielles Makro ist, dass ich erstmal nicht für weitere Anwendungen verwenden kann. Bloß wie kann ich das ganze dann in Excel übergeben?