Hallo,
Ich versuche grade, ein Auswertungsprogramm für meinen Sport (Fahrrad Trial) zu programmieren. Hier Wird auf dem ersten Tabellenblatt in mehreren Zellen der Name, Vorname, Startnummer, Lizenznummer, Geburtsdatum, etc. angegeben. Bei einem Klick auf "Fahrer hinzufügen" (Verknüpfung zu einem Makro) sollen nun die Zellen kopiert werden und auf einem anderen Tabellenblatt eingefügt werden.
Mein Problem ist, dass dieses andere Tabellenblatt unterschiedlich ist. Wenn ich nun also die Klasse "Elite" angebe, sollen die Werte in das Tabellenblatt mit dem Namen "Elite" eingefügt werden. Wenn ich "Junioren" angebe, sollen sie in das Tabellenblatt mit dem Namen "Junioren" eingefügt werden.
Hier ist mein Programmtext. Ich muss wahrscheinlich in der Zeile 9, bei "Sheets("Elite").Select" was ändern, oder? Was muss ich genau ändern?
ZitatAlles anzeigenSub Fahrer_Hinzufügen()
'
' Fahrer_Hinzufügen Makro
'
' Tastenkombination: Strg+a
'
Range("D4:W4").Select
Selection.Copy
Sheets("Elite").Select
Range("B4").Select
ActiveSheet.Paste
Rows("4:4").Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("B4:U5").Select
Range("B5").Activate
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
Range("C10").Select
Sheets("Aktionsblatt").Select
Range("C4:W4").Select
Selection.ClearContents
Range("D20").Select
End Sub
Danke schon mal!
Gruß
Jannis