Fragen und Diskussionen rund um die Arbeit mit SPSS. Für allgemeine Statistik-Themen, die nicht mit SPSS zusammenhängen, bitte das Statistik-Forum nutzen.
vielleicht kann mir jemand folgende Frage beantworten:
Ich lassen mir die Häufigkeiten mehrerer Variablen in Tabellen ausgeben. Dabei wir für jede Variable eine Tabelle angelegt. Ich hätte aber gerne eine Tabelle die Häufigkeiten mehrerer Variablen. Wie bekomme ich das hin???
Das Thema wurde hier schon mal diskutiert, aber über "Analysieren -> Tabellen" ist mir nicht klar, was genau ich tun muss, um das einzustellen.
Schwierig. Fällt mir nur eine Lösung über Script ein. Und das erfordert gute VBA Kenntnisse objektorientierter Programmierung.
Aber wie wär's ganz einfach mit Export über Excel und dann die Spalten löschen, die nicht gefragt sind. Ein wenig Bastelarbeit. Nicht gerade elegant, aber wirksam.
mit Excel versuche ich es mal. Das wird sicher klappen.
Vielleicht würde ich die Lösung über "Skript" (?) hinbekommen, wenn ich eine konkrete Anleitung hätte. Wäre es möglich das etwas genauer zu beschreiben oder ist das zu umständlich zu erklären?
Einfach mal ein SPSS-Buch lesen: am besten Bühl (SPSS)
Hier ein Script, das man anpassen könnte:
'This script creates a new Viewer document with a pivot table inserted
'in it. The cells of the table are populated by the script.
'To run this script, open SPSS And run.
'Script level constants
Const cCOLUMN As String = "Column"
Const cCOLUMNS As String = "Columns"
Const cROW As String = "Row"
Const cROWS As String = "Rows"
Const cLAYER As String = "Layer"
Const cLAYERS As String = "Layers"
Const cNEWTABLE As String = "New table"
Sub Main
Dim objOutputDoc As ISpssOutputDoc
Dim objLabels As ISpssLabels ' Column label arrays
Dim objLayerLabels As ISpssLayerLabels ' Column label arrays
Dim objItems As ISpssItems
Dim objItem As ISpssItem
Dim objPivotTable As PivotTable
Dim objDataCells As ISpssDataCells
Dim objPivMgr As ISpssPivotMgr
Dim objLayerDim As ISpssDimension
Dim index As Long
Dim nRows As Integer
Dim nCols As Integer
Dim nLayers As Integer
Dim intCol As Integer ' Number of columns in label array.
Dim intRow As Integer ' Number of rows in label array
Dim intLay As Integer ' Number of layers in table
Dim intR As Integer ' Loop Counter
Dim intC As Integer ' Loop Counter
Dim intL As Integer ' Loop Counter
Dim nItems As Integer
'Dimensions of new table
nRows = 5
nCols = 4
nLayers = 3
' Create a new Viewer window and make it visible
Set objOutputDoc = objSpssApp.NewOutputDoc
objOutputDoc.Visible = True
' Insert a blank table
index = objOutputDoc.InsertTable( cNEWTABLE, nRows,nCols,nLayers)
Set objItems = objOutputDoc.Items
Set objItem = objItems.GetItem(objItems.Count-1)
Set objPivotTable = objItem.ActivateTable
objPivotTable.UpdateScreen=False
' Set column labels
Set objLabels = objPivotTable.ColumnLabelArray
objLabels.ValueAt(0,0) = cCOLUMNS
intCol = objLabels.NumColumns
For intC = 0 To intCol - 1
objLabels.ValueAt(1,intC) = cCOLUMN & " " & CStr(intC)
Next intC
' Set row labels
Set objLabels = objPivotTable.RowLabelArray
objLabels.ValueAt(0,0) = cROWS
intCol = objLabels.NumColumns
intRow = objLabels.NumRows
For intR = 0 To intRow - 1
objLabels.ValueAt(intR,1) = cROW & " " & CStr(intR)
Next intR
' Get table layer information
Set objLayerLabels = objPivotTable.LayerLabelArray
Set objPivMgr = objPivotTable.PivotManager
Set objLayerDim = objPivMgr.LayerDimension(0)
intLay = objLayerDim.NumCategories
' Set layer dimension name
objLayerDim.DimensionName = cLAYERS
' Walk the layers
For intL = intLay - 1 To 0 Step -1
objLayerDim.CurrentCategory = intL
' Set data
Set objDataCells = objPivotTable.DataCellArray
intCol = objDataCells.NumColumns
intRow = objDataCells.NumRows
For intC = 0 To intCol - 1
For intR = 0 To intRow - 1
objDataCells.ValueAt(intR,intC) = Str(intL*100 + intC*10 + intR)
Next intR
Next intC
Next intL
