Re: Werte werden nicht in tabelle summiert
10.01.2003 08:18:25
Andi
Ich glaube es ist besser ich schicke Dir mal meinen Code
DANKE
Gruß
AndreasSub Verbergen()
Worksheets("Daten").Visible = True
Charts("Diagramm1").Visible = True
Worksheets("Grafik").Visible = xlVeryHidden
End Sub
Private Sub bsAbbrechen_Click()
Unload Me
End Sub
Private Sub bsEintragen_Click()
text1 = ComboBox1.Text
text2 = ComboBox2.Text
text3 = ComboBox3.Text
Set c = Sheets(text3).Range("A2:A200").Find(text1, LookIn:=xlValues)
If Not c Is Nothing Then
Zeile = c.Row
Else
MsgBox text1 & " nicht gefunden!"
End If
Set b = Sheets(text3).Range("D1:J1").Find(text2, LookIn:=xlValues)
If Not c Is Nothing Then
Spalte = b.Column
Else
MsgBox text2 & " nicht gefunden!"
End If
If Not tfText = "" Then
Sheets(text3).Cells(Zeile, Spalte).Value = tfText
Else
MsgBox "Wert in Textfeld eingeben!"
tfText.SetFocus
End If
End Sub
Private Sub ComboBox1_Change()
mark1 = ComboBox1.ListIndex
mark2 = ComboBox2.ListIndex
mark3 = ComboBox3.ListIndex
If mark1 >= 0 And mark2 >= 0 And mark3 >= 0 Then tfText.Visible = True
End Sub
Private Sub ComboBox2_Change()
mark1 = ComboBox1.ListIndex
mark2 = ComboBox2.ListIndex
mark3 = ComboBox3.ListIndex
If mark1 >= 0 And mark2 >= 0 And mark3 >= 0 Then tfText.Visible = True
End Sub
Private Sub ComboBox3_Change()
mark1 = ComboBox1.ListIndex
mark2 = ComboBox2.ListIndex
mark3 = ComboBox3.ListIndex
If mark1 >= 0 And mark2 >= 0 And mark3 >= 0 Then tfText.Visible = True
End Sub
Private Sub UserForm_Initialize()
Dim wks As Worksheet
ComboBox1.AddItem "Abramowski"
ComboBox1.AddItem "Ahlvers"
ComboBox1.AddItem "Alms"
ComboBox1.AddItem "Aquino"
ComboBox1.AddItem "Arndt"
ComboBox1.AddItem "Aytun"
ComboBox1.AddItem "Bachstein"
ComboBox1.AddItem "Bähre"
ComboBox1.AddItem "Bauer"
ComboBox1.AddItem "Belger"
ComboBox1.AddItem "Bickmeyer"
ComboBox1.AddItem "Birko"
ComboBox1.AddItem "Bode"
ComboBox1.AddItem "Bode"
ComboBox1.AddItem "Bolm"
ComboBox1.AddItem "Borchert"
ComboBox1.AddItem "Brielich"
ComboBox1.AddItem "Brock"
ComboBox1.AddItem "Brunotte"
ComboBox1.AddItem "Büker"
ComboBox1.AddItem "Colshorn"
ComboBox1.AddItem "Czechan"
ComboBox1.AddItem "Czypryniak"
ComboBox1.AddItem "Dartscht"
ComboBox1.AddItem "Deya"
ComboBox1.AddItem "Dittmar"
ComboBox1.AddItem "Duwalin"
ComboBox1.AddItem "Dyck"
ComboBox1.AddItem "Eckstein"
ComboBox1.AddItem "Ede"
ComboBox1.AddItem "Edling"
ComboBox1.AddItem "Elster"
ComboBox1.AddItem "Ende"
ComboBox1.AddItem "Fenske"
ComboBox1.AddItem "Franke"
ComboBox1.AddItem "Franke S."
ComboBox1.AddItem "Füge"
ComboBox1.AddItem "Funke"
ComboBox1.AddItem "Gaschler"
ComboBox1.AddItem "Gebauer"
ComboBox1.AddItem "Geng"
ComboBox1.AddItem "Gleis"
ComboBox1.AddItem "Glembozky"
ComboBox1.AddItem "Gorzkowski"
ComboBox1.AddItem "Gräschus"
ComboBox1.AddItem "Grimme"
ComboBox1.AddItem "Gust"
ComboBox1.AddItem "Hadlich"
ComboBox1.AddItem "Hartmann"
ComboBox1.AddItem "Hartmann"
ComboBox1.AddItem "Haschenz"
ComboBox1.AddItem "Hecht"
ComboBox1.AddItem "Hellmann"
ComboBox1.AddItem "Hempel"
ComboBox1.AddItem "Henschel"
ComboBox1.AddItem "Hentrich"
ComboBox1.AddItem "Hildebrandt"
ComboBox1.AddItem "Hohmann"
ComboBox1.AddItem "Holenstein"
ComboBox1.AddItem "Horst, E."
ComboBox1.AddItem "Horst, P."
ComboBox1.AddItem "Hutt"
ComboBox1.AddItem "Idczak"
ComboBox1.AddItem "Imsen"
ComboBox1.AddItem "Isik, Aytekin"
ComboBox1.AddItem "Jahnke"
ComboBox1.AddItem "Jauernig"
ComboBox1.AddItem "Jennert"
ComboBox1.AddItem "Jeske"
ComboBox1.AddItem "Junghahn"
ComboBox1.AddItem "Kador"
ComboBox1.AddItem "Kahle"
ComboBox1.AddItem "Kahle"
ComboBox1.AddItem "Käse"
ComboBox1.AddItem "Kempa"
ComboBox1.AddItem "Kiehn"
ComboBox1.AddItem "Kienow"
ComboBox1.AddItem "Kleinert"
ComboBox1.AddItem "Klingebeil"
ComboBox1.AddItem "Kluske"
ComboBox1.AddItem "Kneipel"
ComboBox1.AddItem "Kocks"
ComboBox1.AddItem "Kocur"
ComboBox1.AddItem "Kolipost"
ComboBox1.AddItem "Konietzko"
ComboBox1.AddItem "Krings"
ComboBox1.AddItem "Krolikowski"
ComboBox1.AddItem "Krull"
ComboBox1.AddItem "Kubatzky"
ComboBox1.AddItem "Kukuk"
ComboBox1.AddItem "Lehmann"
ComboBox1.AddItem "Lemke"
ComboBox1.AddItem "Lewandowski"
ComboBox1.AddItem "Lichter"
ComboBox1.AddItem "Lohmann"
ComboBox1.AddItem "Lünsmann"
ComboBox1.AddItem "Markiewicz"
ComboBox1.AddItem "Marquardt"
ComboBox1.AddItem "Matezki"
ComboBox1.AddItem "Maya"
ComboBox1.AddItem "Maya"
ComboBox1.AddItem "Mehler"
ComboBox1.AddItem "Miehe"
ComboBox1.AddItem "Morgan"
ComboBox1.AddItem "Mullan"
ComboBox1.AddItem "Neiber"
ComboBox1.AddItem "Nitschke"
ComboBox1.AddItem "Odermann"
ComboBox1.AddItem "Paul"
ComboBox1.AddItem "Penner"
ComboBox1.AddItem "Podnar"
ComboBox1.AddItem "Pryzybilla"
ComboBox1.AddItem "Riedel"
ComboBox1.AddItem "Rogoll"
ComboBox1.AddItem "Rose"
ComboBox1.AddItem "Rösemeier"
ComboBox1.AddItem "Rösenberg"
ComboBox1.AddItem "Rössing"
ComboBox1.AddItem "Rozowski"
ComboBox1.AddItem "Rubel"
ComboBox1.AddItem "Rühl"
ComboBox1.AddItem "Rydzak"
ComboBox1.AddItem "Schack"
ComboBox1.AddItem "Schade"
ComboBox1.AddItem "Scheffel"
ComboBox1.AddItem "Schenkemeyer"
ComboBox1.AddItem "Schilling"
ComboBox1.AddItem "Schilling"
ComboBox1.AddItem "Schneider"
ComboBox1.AddItem "Scholz"
ComboBox1.AddItem "Schölzel"
ComboBox1.AddItem "Schön"
ComboBox1.AddItem "Schuster"
ComboBox1.AddItem "Seifert"
ComboBox1.AddItem "Spatz"
ComboBox1.AddItem "Specht"
ComboBox1.AddItem "Speisekorn"
ComboBox1.AddItem "Steinhusen"
ComboBox1.AddItem "Steins"
ComboBox1.AddItem "Stropp"
ComboBox1.AddItem "Sylla, Allassane"
ComboBox1.AddItem "Teihs"
ComboBox1.AddItem "Tiffert"
ComboBox1.AddItem "Unger"
ComboBox1.AddItem "Vahlberg"
ComboBox1.AddItem "Vasile"
ComboBox1.AddItem "Verkerk"
ComboBox1.AddItem "Vogler"
ComboBox1.AddItem "Wall"
ComboBox1.AddItem "Wasgihen"
ComboBox1.AddItem "Weber"
ComboBox1.AddItem "Wehrhahn"
ComboBox1.AddItem "Wehrhahn"
ComboBox1.AddItem "Wehrs"
ComboBox1.AddItem "Wilgoschesky"
ComboBox1.AddItem "Wittel"
ComboBox1.AddItem "Wittmershaus"
ComboBox1.AddItem "Wöhler"
ComboBox1.AddItem "Wolf"
ComboBox1.AddItem "Wollner"
ComboBox1.AddItem "Zagorac"
ComboBox1.AddItem "Zeffler"
ComboBox1.AddItem "Zierenberg"
ComboBox1.AddItem "Zimpel"
ComboBox2.AddItem "So"
ComboBox2.AddItem "Mo"
ComboBox2.AddItem "Di"
ComboBox2.AddItem "Mi"
ComboBox2.AddItem "Do"
ComboBox2.AddItem "Fr"
ComboBox2.AddItem "Sa"
For Each wks In Worksheets
ComboBox3.AddItem wks.Name
Next wks
End Sub