Wir planen für einen Wettbewerb dieses Jahr die Kandidatenbewertung etwas komfortabler zu Gestalten in dem wir einige Abläufe automatisieren.
Bisheriges Vorgehen:
Per Dropmenü wird Kandidat ausgewählt und einige Sachen werden Automatisch ausgefüllt (Altersklasse, Gewicht, etc)
Die Restlichen Felder werden per Hand befüllt
Ab hier soll automatisiert werden
Die Tabelle wurde als ganzes in ein neues Sheet kopiert und das Sheet nach dem Kandidaten benannt werden und anschließend wird das Blatt gesperrt
Die Ergebnisse wurden in eine Gesamttabelle eingetragen, in der Beispieldatei Tabelle 2
Nach dem alle Kandidaten, ca. 30, Bewertet wurden, wurde per Handsortiert
Die Sortierung und Sperrung ist erstmal ein Bonus
Hier mein Skript Versuch
Sub test()
Dim lngZiel As Long
Dim Kandidat As String
Dim BoVorhanden As Boolean
Dim WsTabelle As Worksheet
'Skript soll nur die Werte aus Bereich Tabelle1 B2:B4 in Tabelle2 die erste freie Spalte kopieren
'und nur die Werte aus Tabelle 1 A2:B4 in ein neues Tabellenblatt mit Namen aus Tabelle1 A2 kopieren
'im Falle eines schon vorhandenen Tabellenblatts soll eine Abfrage zum Überschreiben erscheinen
For Each WsTabelle In Worksheets 'Abfrage Start ob Kandidat schon eingetragen wurde
If WsTabelle.Name = Sheets("Tabelle1").Range("A2") Then
BoVorhanden = True
Exit For
End If
Next WsTabelle
If BoVorhanden Then 'Falls Kandidat schon vorhanden, Überschreiben ja / nein
If MsgBox("Kandidat ist bereits eingetragen! Überschreiben?", vbYesNo) = vbYes Then 'Ja -> alten Eintrag löschen und neu eintragen
'Sheets("Sheets("Tabelle1").Range("A2")").Delete
Worksheets.Add.Name = Sheets("Tabelle1").Range("A2")
Tabelle1.Range("B2:B4").Copy
Tabelle2.Cells(2, Tabelle2.UsedRange.Columns.Count + 1).PasteSpecial xlPasteValues
Else
MsgBox ("Abgebrochen") 'Nein -> Abbruch
End If
Else 'Kandidat noch nicht vorhanden neues Blatt wird erstellt
Worksheets.Add.Name = Sheets("Tabelle1").Range("A2")
Tabelle1.Range("B2:B4").Copy
Tabelle2.Cells(2, Tabelle2.UsedRange.Columns.Count + 1).PasteSpecial xlPasteValues
End If
Was ich bis jetzt noch nicht heraus finden konnte wie man den Namen eines zu verwendenen Blattes aus einer Zelle ausliest
End Sub
Dateihttps://www.herber.de/bbs/user/150121.xlsm
Vielen Dank