AW: Ereignis Tabelle Activate bedingt unterdrücken
27.08.2003 21:59:22
Ulf
Hallo Ramses, hallo PeterW,
PeterW fragt nach dem Code. Hier ist er. Ich habe auf dem Blatt "Info" eine Tabelle, die ich mit meinem Code in dem Blatt "Auswertung" eintragen will. Nun kommt immer meine UserForm, die beim aktivieren des Blattes "Auswertung" erscheint (hier Frage ich eine Eingabe vom Benutzer ab). Und die möchte ich eben für den Ablaufes meiner Prozedur unterdrücken.
Info an Ramses: Deinen Tipp schaue ich mir gleich mal an, ob er mir weiter hilft. Da ich aber noch Anfänger bin, kann es eine Weile dauern, bis ich weiß, ob er mir weiter hilft.
Schönen Dank an Euch beide und ich hoffe, ihr versteht, was ich möchte.
Gruß Ulf
Sub TabelleUebernehmen()
Dim Verein As String
Dim Spiele As Byte
Dim TorePlus As Integer
Dim ToreMinus As Integer
Dim TD As Integer
Dim Tore As String
Dim Punkte As Integer
Dim ZeilenNummer As Integer
Dim ZeilenNrZwei As Integer
ZeilenNummer = 20
ZeilenNrZwei = 5
For i = 1 To 18
Worksheets("Info").Activate
Range("B" & ZeilenNummer).Select
Verein = ActiveCell.Offset(0, 0).Value
TorePlus = ActiveCell.Offset(0, 1).Value
ToreMinus = ActiveCell.Offset(0, 2).Value
TD = ActiveCell.Offset(0, 3).Value
Punkte = ActiveCell.Offset(0, 4).Value
Spiele = ActiveCell.Offset(0, 5).Value
Tore = TorePlus & " : " & ToreMinus
ZeilenNummer = ZeilenNummer + 1
Worksheets("Auswertung").Activate
Range("AF" & ZeilenNrZwei).Select
ActiveCell.Offset(0, 0).Value = Verein
ActiveCell.Offset(0, 1).Value = Spiele
ActiveCell.Offset(0, 2).Value = Tore
ActiveCell.Offset(0, 3).Value = TD
ActiveCell.Offset(0, 4).Value = Punkte
ZeilenNrZwei = ZeilenNrZwei + 1
Next i
Worksheets("Auswertung").Activate
Range("AF5:AJ22").Select
Selection.Sort Key1:=Range("AJ5"), Order1:=xlDescending, Key2:=Range( _
"AI5"), Order2:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase _
:=False, Orientation:=xlTopToBottom
Range("AF4").Select
End Sub