Registriert seit: 20.08.2018
Version(en): 2013
Hi Ich will ja, dass die neuen Schulungen den Kostenstellen zugeordnet werden, damit ich dann im nächsten Schritt schauen kann, ob der MA alle Schulungen auf dieser Kostenstelle absolviert hat oder nicht. Daher die spezifische Zuordnung der Spalten.
Registriert seit: 13.04.2014
Version(en): 365
Hi,
ist der MA mehreren Kostenstellen zugeordnet?
Gruß
Edgar
Meine Antworten sind freiwillig und ohne Gewähr! Über Rückmeldungen würde ich mich freuen.
Registriert seit: 20.08.2018
Version(en): 2013
(27.08.2018, 16:04)BoskoBiati schrieb: Hi,
ist der MA mehreren Kostenstellen zugeordnet? Hi BoskoBiati Ja, der Mitarbeiter kann auf allen Kostenstellen eingesetzt werden. Er wird dann jedoch nicht auf einen Schlag überall ausgebildet sein. Daher brauch ich nen Überblick, wenn ich den MA auf einer anderen Kostenstelle einsetzten will. Dies um nachzuschauen, was für ne Ausbildung er braucht, welche er schon hat und welche er noch braucht... Ich glaub Inzwischen, dass man das Problem mit einer VLookup Funktion lösen könnte. Wenn man die wechselnden Spalten als Variable richtig definieren könnte (?) :92:
Registriert seit: 20.08.2018
Version(en): 2013
(27.08.2018, 16:04)BoskoBiati schrieb: Hi,
ist der MA mehreren Kostenstellen zugeordnet? Danke für die Frage :97: , mir ist gerade aufgegangen. Es braucht natürlich die Funktion nicht 3mal sondern lediglich 1mal :33: . Ändert jedoch nichts am Grundproblem...
Registriert seit: 20.08.2018
Version(en): 2013
(27.08.2018, 13:33)BoskoBiati schrieb: Zudem würde ich hier nicht mit Find sondern mit Match arbeiten, damit kannst Du auch in einem SVERWEIS die Spalte suchen. Hi guten Morgen Ich habe nochmals einen Anlauf genommen. Da ich erst neu mit VBA arbeite, bin ich bei einigem leider noch nicht so sicher. Ich erwarte ja nicht, dass man den Code für mich macht, aber ich wäre schon sehr froh um ein zwei Schubser in die richtige Richtung...so das ich mir den Code erarbeiten kann. Code: Sub schulungsbedarf() 'Name geändert Dim i As String 'Im Hinblick, dass i als Schlaufe alle Zellen Tabelle1 von D2 bis zur letzten leeren Zeile geht, bzw Zeile D999 Dim Start As String 'Im Hinblick das er dort starten soll Dim Funktionen As Range 'Tabelle2 die Funktionen in Spalte A Dim Status1 As Byte 'Die Zelle mit 0 oder 1, der neuen Spalte Tabelle2 Dim Status2 As Byte 'Die Zelle mit 0 oder 1, der neuen Spalte Tabelle1
Set Start = Worksheets("Tabelle1").Cells(d1, clumn + 1, 1) Set Funktionen = Worksheets("Tabelle2").Range("A2:A9") Set Status1 = Worksheets("Tabelle2").Range("1:1").Find(UserForm4.TextBox1.Text) 'Er soll den Titel der neu eingefügten Spalte finden. Stimmt das so? Wert holen Set Status2 = Worksheets("Tabelle1").Range("1:1").Find(UserForm4.TextBox1.Text) 'Wert einfügen For i = 1 To 999 'Besser wäre hier bis zur letzten Zeile check = Application.WorksheetFunction.Match(Cells("Start"), sh.Range("Funktionen").Value, 0)) 'Hä?! Next i End Sub
Ich hab mal alles (?) definiert. Um dann in einem weiteren Schritt lediglich die definierten Positionen einzufügen. Die Match Funktion ist mir nicht bekannt und ein Rätsel wie das damit funktionieren soll, aber auch an der VLookup hab ich mich versucht und bei beiden an der Definition/Zuordnung der Positionen gescheitert. So wie der Code jetzt steht ist er offensichtlich falsch... Falls jemand eine Idee hat, wäre ich froh darum. Schon mal besten Dank!
Registriert seit: 13.04.2014
Version(en): 365
Hi, ohne getestet zu haben sehe ich das so: Code: Dim Start As Range[/font] check = Application.WorksheetFunction.Match(start, sh.Funktionen, 0))
was ist das:Zitat:Cells(d1, clumn + 1, 1) clmn ist weder deklariert noch mit einem Wert versehen!
Gruß
Edgar
Meine Antworten sind freiwillig und ohne Gewähr! Über Rückmeldungen würde ich mich freuen.
Registriert seit: 20.08.2018
Version(en): 2013
Code: Sub schulungsbedarf() Dim Funktion As String
Set aktuellespalte = Worksheets("Tabelle2").Range("1:1").Find(UserForm4.TextBox1.Text) 'Finde die aktuelle Spalte Set zielspalte = Worksheets("Tabelle1").Range("1:1").Find(UserForm4.TextBox1.Text) 'Finde die Zielspalte
For i = 1 To 999 'Im Bezug auf Tabelle1 Funktion = Worksheets("Tabelle1").Cells(i + 1, 4) Worksheets("Tabelle1").Cells(5, 1) = 1 'Test, was steht in Funktion If Funktion = "Anlageführer" Then Worksheets("Tabelle1").Cells(i + 1, zielspalte.Column) = Worksheets("Tabelle2").Cells(2, aktuellespalte.Column) ElseIf Funktion = "Helfer" Then Worksheets("Tabelle1").Cells(i + 1, zielspalte.Column) = Worksheets("Tabelle2").Cells(3, aktuellespalte.Column) ElseIf Funktion = "Kontrolle" Then zielzelle = Worksheets("Tabelle2").Cells(4, aktuellespalte.Column - 1) ElseIf Funktion = "Teamsprecher" Then zielzelle = Worksheets("Tabelle2").Cells(5, aktuellespalte.Column - 1) ElseIf Funktion = "Einrichter" Then zielzelle = Worksheets("Tabelle2").Cells(6, aktuellespalte.Column - 1) ElseIf Funktion = "MFK" Then zielzelle = Worksheets("Tabelle2").Cells(7, aktuellespalte.Column - 1) ElseIf Funktion = "Fahrer" Then zielzelle = Worksheets("Tabelle2").Cells(8, aktuellespalte.Column - 1) ElseIf Funktion = "Packer" Then zielzelle = Worksheets("Tabelle2").Cells(9, aktuellespalte.Column - 1) Else End If Next i End Sub
Die Match und VLookup Funktion haben bei mir nicht funktioniert. Daher bin ich wieder zur Ursprünglichen Idee und mit diesem Code aufgekommen. Funktioniert soweit...leider jedoch nur bis in die zweite Zeille "Helfer"... Es liegt wohl an der ElseIf, aber wie mach ich das wenn es mehr sind??? :92:
Registriert seit: 10.04.2014
Version(en): 97-2019 (32) + 365 (64)
hallöchen, was bedeutet denn … funktioniert nur bis Helfer … ??? Das funktioniert von vorne bis hinten: Code: Sub test() a = 5 If a = 1 Then MsgBox 1 ElseIf a = 2 Then MsgBox 2 ElseIf a = 3 Then MsgBox 3 ElseIf a = 4 Then MsgBox 4 ElseIf a = 5 Then MsgBox 5 End If End Sub
. \\\|/// Hoffe, geholfen zu haben. ( ô ô ) Grüße, André aus G in T ooO-(_)-Ooo (Excel 97-2019+365)
Folgende(r) 1 Nutzer sagt Danke an schauan für diesen Beitrag:1 Nutzer sagt Danke an schauan für diesen Beitrag 28
• Moby2018
Registriert seit: 20.08.2018
Version(en): 2013
Jup, funktioniert. Bzw ich hab vielfach einige richtig doofe Flüchtigkeitsfehler drin... Danke Euch allen, dass ihr euch die Mühe gemacht habt sich an meinem Problem zu beteiligen. Nur schon gewisse Fragen haben oder kritische Antworten haben mich jeweils ein Stück weitergebracht
|