Thema Datum  Von Nutzer Rating
Antwort
Rot Auswertung einer Excel Tabelle kumuliert in eine andere
08.03.2018 10:15:10 PhilC
NotSolved
08.03.2018 10:29:39 Gast26026
NotSolved
08.03.2018 10:32:02 Gast41822
NotSolved
08.03.2018 10:34:57 Gast18954
NotSolved
08.03.2018 10:38:28 Gast89266
NotSolved

Ansicht des Beitrags:
Von:
PhilC
Datum:
08.03.2018 10:15:10
Views:
249
Rating: Antwort:
  Ja
Thema:
Auswertung einer Excel Tabelle kumuliert in eine andere

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
 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Auswertung einer Excel Tabelle kumuliert in eine andere
08.03.2018 10:15:10 PhilC
NotSolved
08.03.2018 10:29:39 Gast26026
NotSolved
08.03.2018 10:32:02 Gast41822
NotSolved
08.03.2018 10:34:57 Gast18954
NotSolved
08.03.2018 10:38:28 Gast89266
NotSolved