Bestimmen das Code für mehrere Tabellen greift

Computer: Software & Programmierung Visual Basic
#1

Hallo,
brauche nochmal etwas Hilfe.
Ich habe hier einen Code der gebraucht wird um in einer Mannschaftstabelle Änderungen oder Korrekturen vornehmen zu können. (überschreiben)
Der Code funktioniert.
Ich möchte jetzt aber das dieser Code für 17 weitere Tabellenblätter
zuständig ist. Die Tabellenblätter sind alle gleich aufgebaut und formatiert.
Die Tabellenblätter heissen: „LG Schüler frei Mannsch.“ - „LG Jugend frei Mannsch.“ - „LG Junioren frei Mannsch.“ usw.
Haben also alle die gleiche Endbezeichnung „Mannsch.“
Die Bezeichnung „LG“ gilt auch für die Tabellen „Einel“
Könnte man vielleicht die Endbezeichnung „Mannsch.“ dafür benutzen, oder weiss jemand eine andere Lösung???
Mit bestem Dank im voraus.
Gruß Skaletti!
Hier der jetzige Code für ein Tabellenblatt:

Private Sub CommandButton1\_Click()
Dim lngZeile As Long
Dim wks3 As Worksheet
Dim lngLetzteZeile As Long 

'ändern-überschreiben (Tabelle27 Mannschaften)für Korrekturen
Set wks3 = ActiveWorkbook.Worksheets("LG frei Schüler Mannsch.")

lngLetzteZeile = wks3.Cells(wks3.Rows.Count, 1).End(xlUp).Row

For lngZeile = 3 To lngLetzteZeile 
'Mannschaftsnummer suchen in SpalteB, SpalteC Mannschaftsname überschreiben(Text)
If wks3.Cells(lngZeile, 2).Text = Me.TextBox1.Text Then
 If Me.TextBox2.Text wks3.Cells(lngZeile, 3).Text Then
 wks3.Cells(lngZeile, 3).Value = Me.TextBox2.Text
 End If
 End If
 'Mannschaftsnummer suchen in SpalteB, SpalteD Startnummer überschreiben(Zahl)
 If CInt(wks3.Cells(lngZeile, 2).Value) = CInt(Me.TextBox1.Text) Then
 If CDbl(Me.TextBox3) CDbl(wks3.Cells(lngZeile, 4).Value) Then
 wks3.Cells(lngZeile, 4).Value = CDbl(Me.TextBox3.Text)
 End If
 End If
 'Mannschaftsnummer suchen in SpalteB, SpalteE Name überschreiben(Text)
 If wks3.Cells(lngZeile, 2).Text = Me.TextBox1.Text Then
 If Me.TextBox4.Text wks3.Cells(lngZeile, 5).Text Then
 wks3.Cells(lngZeile, 5).Value = Me.TextBox4.Text
 End If
 End If
 'Mannschaftsnummer suchen in SpalteB, SpalteF Ergebnis überschreiben(Zahl)
 If CInt(wks3.Cells(lngZeile, 2).Value) = CInt(Me.TextBox1.Text) Then
 If CDbl(Me.TextBox5) CDbl(wks3.Cells(lngZeile, 6)) Then
 wks3.Cells(lngZeile, 6).Value = CDbl(Me.TextBox5.Text)
 End If
 End If
 'Mannschaftsnummer suchen in SpalteB, SpalteG Startnummer überschreiben(Zahl)
 If CInt(wks3.Cells(lngZeile, 2)) = CInt(Me.TextBox1.Text) Then
 If CDbl(Me.TextBox6.Text) CDbl(wks3.Cells(lngZeile, 7).Value) Then
 wks3.Cells(lngZeile, 7).Value = CDbl(Me.TextBox6.Text)
 End If
 End If
 'Mannschaftsnummer suchen in SpalteB, SpalteH Name überschreiben(Text)
 If wks3.Cells(lngZeile, 2).Text = Me.TextBox1.Text Then
 If Me.TextBox7.Text wks3.Cells(lngZeile, 8).Text Then
 wks3.Cells(lngZeile, 8).Value = Me.TextBox7.Text
 End If
 End If
 'Mannschaftsnummer suchen in SpalteB, SpalteI Ergebnis überschreiben(Zahl)
 If CInt(wks3.Cells(lngZeile, 2).Value) = CInt(Me.TextBox1.Text) Then
 If CDbl(Me.TextBox8.Text) CDbl(wks3.Cells(lngZeile, 9).Value) Then
 wks3.Cells(lngZeile, 9).Value = CDbl(Me.TextBox8.Text)
 End If
 End If
 'Mannschaftsnummer suchen in SpalteB, SpalteJ Startnummer überschreiben(Zahl)
 If CInt(wks3.Cells(lngZeile, 2).Value) = CInt(Me.TextBox1.Text) Then
 If CDbl(Me.TextBox9) CDbl(wks3.Cells(lngZeile, 10).Value) Then
 wks3.Cells(lngZeile, 10).Value = CDbl(Me.TextBox9.Text)
 End If
 End If
 'Mannschaftsnummer suchen in SpalteB, SpalteK Name überschreiben(Text)
 If wks3.Cells(lngZeile, 2).Text = Me.TextBox1.Text Then
 If Me.TextBox10.Text wks3.Cells(lngZeile, 11).Value Then
 wks3.Cells(lngZeile, 11).Value = Me.TextBox10.Text
 End If
 End If
'Mannschaftsnummer suchen in SpalteB, SpalteL Ergebnis überschreiben(Zahl)
 If wks3.Cells(lngZeile, 2).Text = Me.TextBox1.Text Then
 If CDbl(Me.TextBox11.Text) CDbl(wks3.Cells(lngZeile, 12).Value) Then
 wks3.Cells(lngZeile, 12).Value = CDbl(Me.TextBox11)
 End If
Exit Sub
End If
Next
Unload Me
End Sub
#2

Hallo Skaletti.

Zumindestens auf den ersten Blick sehr einfach, aber trotzdem ohne Gewähr:

Ersetze die Codezeile

Set wks3 = ActiveWorkbook.Worksheets("LG frei Schüler Mannsch.")

durch

Set wks3 = ActiveWorkbook.ActiveSheet

VG
Carsten

#3

Hallo Charsten,
Danke für die schnelle Antwort.
Ganz so einfach wirds wohl nicht gehen.
Habe allerdings mal wieder eine wichtige Info Vergessen.
Die Daten kommen aus ein UserForm mit TextBoxen, und mit dem Wert aus einer ComboBox (z.B. „LG frei Schüler Mannschaften“) wird bestimmt in welchem Tabellenblatt nach der Mannschaftsnummer gesucht werden soll, und dann die Änderungen erfolgen.
So bekomme ich jetzt den Laufzeitfehler bei der 2. Suche nach der Mannschaftsnummer: ‚Typen unverträglich‘

'Mannschaftsnummer suchen in SpalteB, SpalteD Startnummer überschreiben(Zahl)
If CInt(wks3.Cells(lngZeile, 2).Value) = CInt(Me.TextBox1.Text) Then
(Gelb hinterlegt)

Ich könnte natürlich auch den Code 17 mal kopieren und dann jedem Tabellenblatt zuweisen. Wird dann aber ein „Riesending“.

Gruß Skaletti!

#4

Hallo Skaletti.

Wert aus einer ComboBox (z.B. „LG frei Schüler Mannschaften“)
wird bestimmt in welchem Tabellenblatt nach der
Mannschaftsnummer gesucht werden soll, und dann die
Änderungen erfolgen.

Wenn die Texte in der ComboBox mit den Namen der Tabellenblätter übereinstimmen, dann kannst Du eigentlich mit der Value-Eigenschaft der ComboBox weiterkommen:

Set wks3 = ActiveWorkbook.Worksheets(ComboBox1.Value)

oder vielleicht auch:

Set wks3 = ActiveWorkbook.Worksheets(ComboBox1.Text)

oder vielleicht auch, wenn BoundColumn und TextColumn auf 0 gesetzt sind:

Set wks3 = ActiveWorkbook.Worksheets(ComboBox1.ListIndex + 1)

Kannst Du ja 'mal testen.

VG
Carsten

#5

Hallo Carsten,
Vielen Dank für deine Hilfe.
Sehr gut.
Funzt mit:

Set wks3 = ActiveWorkbook.Worksheets(ComboBox1.ListIndex + 1)

Gruß Skaletti!