zuordnen beim kopieren
26.06.2007 12:59:23
Holger
Ich habe Tabellenblätter "WB1" - "WB5", ich speichere mit nem Makro Personaldaten, in "Tabelle1!H9" steht jetzt welcher Mitarbeiter auf welchen WB tätig ist. Gibt es die Möglichkeit, direkt beim speichern die Mitarbeiter den einzelnen Tabellenblättern zu zuordnen? Und wenn ja...kann ich die Liste alphabetisch ordnen?
Folgendes Makro habe ich bis lang
Sub Makro4()
Range("B9:L9").Select
Selection.Copy
Worksheets("Tabelle2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:= _
False
lr = Cells(Rows.Count, 1).End(xlUp).Row
Cells(lr + 1, 1).Activate
'ActiveSheet.Paste
Worksheets("Tabelle1").Select
Range("B9:J9").Select
Selection.ClearContents
Range("B9").Select
End Sub
Gruß Holger