Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Excel VBA Schlaufe ähnlich zu SVerweis
#11
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.
Antworten Top
#12
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.
Antworten Top
#13
(27.08.2018, 15: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:
Antworten Top
#14
(27.08.2018, 15: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...
Antworten Top
#15
(27.08.2018, 12: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!
Antworten Top
#16
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.
[-] Folgende(r) 1 Nutzer sagt Danke an BoskoBiati für diesen Beitrag:
  • Moby2018
Antworten Top
#17
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:
Antworten Top
#18
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:
  • Moby2018
Antworten Top
#19
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 Thumbsupsmileyanim
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste