Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Daten in Abhänigkeit eintragen
zurück: Oberfläche in Excel Arbeitsblatt weiter: in Combobox mehrere Spalten Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Nobby35
Im Profil kannst Du frei den Rang ändern


Verfasst am:
23. Dez 2007, 14:39
Rufname: Nobby

Daten in Abhänigkeit eintragen - Daten in Abhänigkeit eintragen

Nach oben
       Version: Office 2k (2000)

Hallo,
ich habe zwei Tabellenblätter Quelltabelle=Daten und Zieltabelle Schichtplan.
in der Quelltabelle habe ich die Personaldaten in Spalte A, die Schichtnummer des jeweiligen MA pro Zeile in Spalte 11 und in Spalte 13 die Zeilennummer in welcher die Personalnummer in Spalte A in der Zieltabelle eingetragen werden soll.
Ich bekomme es leider nur hin, dass der Code mir in Abhängikeit von Spalte 11 die Personlnummer in die richtige Spalte in der Zieltabelle einträgt aber immer nur sauber untereinander und nicht in die jeweiligen Zeilen die in Spalte 13 stehen.
Ich glaube dafür braucht man ein Array jedoch reichen meine Kenntnisse hier noch nicht aus.
Es wäre nett wenn mir jemand hier helfen könnte.

Code:

Sub Modell() 'ordnet die MA dem Schichtführer zu

Dim intzei As Integer, intz1 As Integer, intz2 As Integer, intz3 As Integer
Dim Va1 As String, Va2 As String
intz1 = 11
intz2 = 11
intz3 = 38
Va1 = Worksheets("Schichtplan").Cells(8, 2)
Va2 = Worksheets("Schichtplan").Cells(8, 5)
Worksheets("Schichtplan").Range("B9:B55,E9:E55,H9:H36,H38:H55") = ""

For intzei = 5 To 70
    If Worksheets("Daten").Cells(intzei, 11).Value = Va1 Then
        Worksheets("Schichtplan").Cells(intz1, 2).Value = Worksheets("Daten").Cells(intzei, 1).Value
           intz1 = intz1 + 1

        ElseIf Worksheets("Daten").Cells(intzei, 11).Value = Va2 Then
            Worksheets("Schichtplan").Cells(intz2, 5).Value = Worksheets("Daten").Cells(intzei, 1).Value
               intz2 = intz2 + 1

              ElseIf Worksheets("Daten").Cells(intzei, 11).Value = "" Then
                    Worksheets("Schichtplan").Cells(intz3, 8).Value = Worksheets("Daten").Cells(intzei, 1).Value
                       intz3 = intz3 + 1
    End If
 
Next intzei

End Sub

_________________
MfG

Nobby35
Chefaid
VBA-Einsteiger


Verfasst am:
23. Dez 2007, 15:15
Rufname:


AW: Daten in Abhänigkeit eintragen - AW: Daten in Abhänigkeit eintragen

Nach oben
       Version: Office 2k (2000)

Hallo,

hab mal was gebastelt .. was du in dem Fall brauchst ist eben die Information, in welche Zeile die Personalnummer soll. Ich hab jetzt mal in Spalte 4 die Personalnummer und in 13 die Zielzeilenummer angenommen. Startzeile ist bei mir nicht 5 sondern 2.

Code:

Sub test()

Dim intzei As Integer, y As Integer, Zielzeile As Integer

    Sheets("Daten").Activate
    y = Sheets("Daten").Range("M2").End(xlDown).Row
   
    For intzei = 2 To y
   
        Zielzeile = Sheets("Daten").Cells(intzei, 13)
        Sheets("Schichtplan").Cells(Zielzeile, 1) = Sheets("Daten").Cells(intzei, 4)
       
   
    Next intzei

End Sub


Am besten stellst Du auch die Exceldatei hier ins Forum. Dann kann man sich das besser vorstellen Very Happy

MfG,

Chefaid
Nobby35
Im Profil kannst Du frei den Rang ändern


Verfasst am:
23. Dez 2007, 15:48
Rufname: Nobby

AW: Daten in Abhänigkeit eintragen - AW: Daten in Abhänigkeit eintragen

Nach oben
       Version: Office 2k (2000)

Hallo,
funktioniert leider nicht wie gewünscht.
Ich würde die Datei gerne hochladen, jedoch ist sie sehr komplex und dementsprechend gross 1,4MB !
Also versuche ich es jetzt nochmal zuerklären

Der oben gepostete Code liest mir in in Spalte B oder E in "Schichtplan" die Personalnummern in "Daten" aus Spalte A ein, jenachdem welche Nummer in "Schichtplan" in B8 oder E8 stehen. Diese Nummern stehen in "Daten" bei jedem MA in Spalte 11!

Nun habe ich noch zusätzlich die Zeilennummern in "Daten" in Spalte13 eingefügt in welche Zeile er mir die Personalnummer in "Schichtplan" eintragen soll.

Ich hoffe das das jetzt verständlich ist.

_________________
MfG

Nobby35
Nobby35
Im Profil kannst Du frei den Rang ändern


Verfasst am:
23. Dez 2007, 17:05
Rufname: Nobby

AW: Daten in Abhänigkeit eintragen - AW: Daten in Abhänigkeit eintragen

Nach oben
       Version: Office 2k (2000)

Hallo,
fehlen noch irgendwelche Info's, oder hat sonst noch jemand ein Idee?

_________________
MfG

Nobby35
Chefaid
VBA-Einsteiger


Verfasst am:
23. Dez 2007, 21:58
Rufname:

AW: Daten in Abhänigkeit eintragen - AW: Daten in Abhänigkeit eintragen

Nach oben
       Version: Office 2k (2000)

Naja.. letzter Versuch Wink

Wenn ich alles richtig verstanden habe.. sollte es nun so funktionieren:

Code:

Sub test()

Dim intzei As Integer, y As Integer, Zielzeile As Integer, i as Integer
Dim Va1 As String, Va2 As String
   
Va1 = Worksheets("Schichtplan").Cells(8, 2)
Va2 = Worksheets("Schichtplan").Cells(8, 5)
i = 38   
   
    Sheets("Daten").Activate
    y = Sheets("Daten").Range("K5").End(xlDown).Row
   
   
   
   
   
    For intzei = 5 To y
       
        If Va1 = Sheets("Daten").Cells(intzei, 11) Then
       
            Zielzeile = Sheets("Daten").Cells(intzei, 13)
            Sheets("Schichtplan").Cells(Zielzeile, 2) = Sheets("Daten").Cells(intzei, 1)
           
        ElseIf Va2 = Sheets("Daten").Cells(intzei, 11) Then
       
            Zielzeile = Sheets("Daten").Cells(intzei, 13)
            Sheets("Schichtplan").Cells(Zielzeile, 5) = Sheets("Daten").Cells(intzei, 1)
           
        Else
       
            Sheets("Schichtplan").Cells(i, 8) = Sheets("Daten").Cells(intzei, 1)
             i = i +1
        End If
   
    Next intzei

End Sub




MfG,

Chefaid
Nobby35
Im Profil kannst Du frei den Rang ändern


Verfasst am:
24. Dez 2007, 11:02
Rufname: Nobby


AW: Daten in Abhänigkeit eintragen - AW: Daten in Abhänigkeit eintragen

Nach oben
       Version: Office 2k (2000)

Hallo Chefaid,
toll, genauso wollte ich es haben!

Vielen Dank, und ein Frohes Fest

[/img]

_________________
MfG

Nobby35
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Daten aus einer anderen Tabelle einfügen 1 kat 1006 29. Aug 2005, 11:42
steve1da Daten aus einer anderen Tabelle einfügen
Keine neuen Beiträge Excel Formeln: Werte aus Spalte in Matrix eintragen 6 alex320 983 24. Aug 2005, 10:41
Gast Werte aus Spalte in Matrix eintragen
Keine neuen Beiträge Excel Formeln: Daten aus Tabelle durch key herausholen 11 User003 1309 26. Jul 2005, 11:20
Gast Daten aus Tabelle durch key herausholen
Keine neuen Beiträge Excel Formeln: Excel: Daten aus Spalte A in B übernehmen 2 cabot 1312 24. Mai 2005, 13:47
cabot Excel: Daten aus Spalte A in B übernehmen
Keine neuen Beiträge Excel Formeln: Daten aus anderem Tabellenblatt übernehmen 5 Grubi 2120 05. Mai 2005, 21:52
Grubi Daten aus anderem Tabellenblatt übernehmen
Keine neuen Beiträge Excel Formeln: daten in EINER zelle zusammenführen 1 thompson 807 23. Apr 2005, 18:13
fl618 daten in EINER zelle zusammenführen
Keine neuen Beiträge Excel Formeln: Abfrage Daten nach Zeitintervall 9 katz 1097 21. Apr 2005, 08:52
katz Abfrage Daten nach Zeitintervall
Keine neuen Beiträge Excel Formeln: Muß Daten kopieren mit Bezug auf mehrer Zeilen 3 Anke 1487 07. Apr 2005, 10:54
Anke Muß Daten kopieren mit Bezug auf mehrer Zeilen
Keine neuen Beiträge Excel Formeln: Doppelte Daten entfernen 1 Sabine1980 2206 08. Feb 2005, 18:19
Thomas Ramel Doppelte Daten entfernen
Keine neuen Beiträge Excel Formeln: Daten Gültigkeit 4 wuselmann 575 27. Jan 2005, 18:26
Thomas Ramel Daten Gültigkeit
Keine neuen Beiträge Excel Formeln: Daten in einer Zelle trennen 2 bsailer 7161 07. Jan 2005, 13:39
bsailer Daten in einer Zelle trennen
Keine neuen Beiträge Excel Formeln: Daten aus Liste übernehmen und selektieren 1 Maggi 1695 06. Jan 2005, 02:21
Gast1 Daten aus Liste übernehmen und selektieren
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Macromedia Dreamweaver