an JÜRGEN bzgl EINGABEBOX??????
01.04.2005 20:06:32
Oberschlumpf
Dieser neue Thread deswegen, weil der alte, in dem alles steht, ab morgen hier nicht mehr angezeigt wird.
Deine letzte Frage kann ich mit JA beantworten :-)
Die gewünschte Abfrage ist eingefügt.
Du hast nun 2 Möglichkeiten.
a) Du legst selbst Hand an...am VBA-Code ;-)
b) Du lädtst die neue Datei vom Server
wobei ich aber nicht weiß, ob es so einfach ist, Deine schon vielen? Einträge aus der alten in die neue Tabelle zu kopieren
Möglichkeit a) würde so aussehen:
1. Öffne den VBA-Editor (mit ALT-F11)
2. Klick im Projeckt-Explorer doppelt auf MODUL1
(wenn nicht sichtbar, dann mit STRG-R anzeigen)
3. Bewege im rechten Code-Fenster die Maus an das Ende irgendeiner Zeile die lautet:
End Sub
und drück auf die Enter-Taste (neue Zeile einfügen)
4. Kopiere diesen Code-Block:
(einschliesslich BEIDER SUB-Zeilen)
Sub ErgebnisVorhanden()
Dim liPaarSuche As Integer, liFrage As Integer
With Sheets(1)
For liPaarSuche = 3 To Cells(Rows.Count, 1).End(xlUp).Row
If .Range("A" & liPaarSuche).Value = Userform1.cmbTeam1.Text And _
.Range("B" & liPaarSuche).Value = Userform1.cmbTeam2.Text Then
lizeile = liPaarSuche
Exit For
End If
Next
For liPaarSuche = 3 To Cells(2, Columns.Count).End(xlToLeft).Column
If .Cells(2, liPaarSuche).Value = Userform1.cmbJahrwahl.Text Then
If .Cells(lizeile, liPaarSuche).Value <> "" Then
liFrage = MsgBox("Für Ihre Auswahl wurde schon ein Ergebnis eingetragen." _
& vbCrLf & "Soll dieses Ergebnis überschrieben werden?", _
vbExclamation + vbYesNo, "vorhandenen Eintrag überschreiben?")
If liFrage = vbYes Then
ErgebnisEintragen
Exit For
End If
Else
ErgebnisEintragen
Exit For
End If
End If
Next
End With
End Sub
im VBA-Editor genau an die Stelle, an der sich gerad der Text-Cursor befindet.
5. Nun klickst Du wieder im Project-Explorer doppelt auf USERFORM1 (befindet sich im Ordner "Formulare")
6. Nun wird rechts das Formular so angezeigt, wie es beim Start in der Exceltabelle erscheint
Klick Jetzt doppelt auf den OK-Button
7. Den ganzen Code, beginnend mit
Private Sub cmdOK_Click() und endend mit End Sub
tauschst Du aus mit diesem Code-Block:
Private Sub cmdOK_Click()
ErgebnisVorhanden
'--------- schnipp ----------
'alle zeilen von einschliesslich "schnipp" bis einschliesslich "schnapp" löschen,
'wenn du nicht sehen willst, wieviel du noch eintragen musst
esFehlenNoch
'--------- schnapp ----------
End Sub
8. Nun kannst Du den VBA-Editor wieder schließen und mal testen, ob alles funktioniert :-)
Wenn doch irgendwas schief gelaufen ist, dann musst Du halt doch die neue Tabelle
https://www.herber.de/bbs/user/20508.zip
vom Server laden, und all Deine Ergebnisse aus der alten Tabelle kopieren und in die neue einfügen.
Ich warte auf Deine Rückmeldung :-)
Ciao Thorsten
