AW: Automatische Auswertung von Zuordnungen
18.04.2008 23:15:26
Zuordnungen
Hallo Johannes,
bitte arbeite nicht mit verbundenen Zellen, das erschwert nur die maschinelle Auswertung einer Tabelle und ist auch optisch so gut wie nie nötig. Ansonsten: wenn Du nur die genutzten Verfahren haben willst, lösch einfach aus nachfolgendem Makro die Zeilen, in denen b vorkommt.
Sub Zuordnen()
Dim wb1 As Worksheet, wb2 As Worksheet
Dim i As Long, j As Long, k As Long, l As Long, m As Long, b As Boolean
Set wb1 = ThisWorkbook.Worksheets(1)
Set wb2 = ThisWorkbook.Worksheets(2)
i = wb1.Cells(65536, 1).End(xlUp).Row
j = wb1.Cells(2, 256).End(xlToLeft).Column
m = 1
For k = 3 To i
If Not b Then m = m + 1
b = False
wb2.Cells(m, 1) = wb1.Cells(k, 1)
For l = 2 To j
If wb1.Cells(k, l) = "x" Then
wb2.Cells(m, 2) = wb1.Cells(2, l)
m = m + 1
b = True
End If
Next
Next
Set wb1 = Nothing
Set wb2 = Nothing
End Sub
Schönes Wochenende
Roland Hochhäuser