Daten in andere Tabelle übertragen?
11.11.2007 15:34:58
Peter
habe in Excel 2003 eine Mappe mit 4 Tabellenblättern.
Und zwar: Bewertung, Gesamtauswertung, Männer und Frauen
Auf dem Blatt Erfassung kann man auf die Frage
"Sind sie ein Mann" mit Ja oder Nein antworten.
Dazu wird ein entsprechendes X in die Zelle gemacht.
Nun soll mittels Makro dieses ausgelesen werden und in
das Tabellenblatt Gesamtauswertung, sowie Männer bei Ja bzw.
Frauen bei Nein eingetragen werden.
Dabei soll der Wert immer höher gezählt werden, wenn
ein weiterer Eintrag ausgewertet wird.
Mit dem folgenden Code funktioniert es mit einer Eintragung
in die Gesantauswertung:
Private Sub Werteübertragen_Click()
Dim rngZelle As Range
Dim wshGesamt As Worksheet
Dim intZeile As Integer, intSpalte As Integer
Set wshGesamt = Sheets("Gesamtauswertung")
Set rngZelle = [A:A].Find("Gesamt")
If rngZelle Is Nothing Then
MsgBox "Zelle 'Gesamt' in Spalte A nicht gefunden !", _
vbOKOnly + vbCritical, "Auswertung nicht möglich !"
Else
wshGesamt.Unprotect
'wshGesamt.unprotect "passwort" 'falls Passwort vergeben wurde
For intZeile = 6 To rngZelle.Row - 1
For intSpalte = 3 To 8 'Spalten C:H
If UCase(Cells(intZeile, intSpalte)) = "X" Then
wshGesamt.Cells(intZeile, intSpalte) = _
Val(wshGesamt.Cells(intZeile, intSpalte)) + 1
End If
Next
Next
wshGesamt.Protect
'wshGesamt.protect "passwort" 'falls Passwort vergeben werden soll
End If
End Sub
Gruß Peter