|
Hallo zusammen,
ich habe folgendes Problem:
Eine Tabelle 1 enthält Daten einer Auswertung, bei der es vorkommen kann, dass mehrere Antworten bei einer Frage angeklickt wurden und auch manche Fragen übersprungen wurden. Nun soll eine äußere Schleife mit Zellen durchlaufen werden, eine innere soll für die bestimmte Zelle alle Spalten durchlaufen und prüfen.
Die obersten Zellen sollen jeweils mit einer FrageNr versehen werden. Wenn ein Teilnehmer der Umfrage mindestens 1 Antwort angekreuzt hat, soll für die entsprechende Zelle eine 1 und sonst eine 0 geschrieben werden.
Bisher öffnet es nur ein neues Sheet, die Daten werden allerdings nicht geschrieben.
Hier mein bisheriger Code:
Sub Makro1()
Dim z As Integer, s As Integer, FrageNr As Integer
Sheets.Add
ActiveSheet.Name = "Tabelle3"
For z = 6 To 676
For s = 1 To 60
If IsNumeric(Cells(4, s)) Then
FrageNr = Cells(4, s)
Sheets("Tabelle3").Cells(z - 5, FrageNr).Text = 0
Sheets("Tabelle3").Cells(z - 5, FrageNr).Text = Sheets("Tabelle1").Cells(4, s).Text
End If
If Cells(z, s) <> "" Then
Sheets("Tabelle3").Cells(z - 5, FrageNr).Text = 1
End If
Next s
Next z
End Sub
Vielen Dank schon mal im voraus.
Gruß Philipp
|