Kopieren in String Bereich
13.12.2018 10:38:28
Günni63
Bin neu hier daher möchte ich mich kurz vorstellen, mein Name ist Günni und bin 55 Jahre jung. Ich arbeite in einer mittelgroßen Firma und bin häufig in Excel unterwegs. Da ich mich auch privat noch mit Excel beschäftige bekommt man natürlich immer mehr Ideen,bisher habe ich immer mit Platzhaltern gearbeitet.
Bei dieser Idee bitte ich Euch daher um Mithilfe.
Ich habe eine Arbeitsmappe mit 55 Tabellen, "Schichtplan", und "KW1 bis KW53".
In Schichtplan habe ich einen Zellbereich Range("H6:NN6") in denen ein String steht. Per Funktion Verkettet steht zum z.B. in H6 der String "KW1!B10", die Zeile bleibt immer gleich aber Sheet und Spalte ändern sich logischerweise.
Ich hoffe soweit klar!
Nun möchte ich den Namen z.B. Mitarbeiter1 der sich im Range ("C6") befindet kopieren in den Range(Zeilbereich).
Müsste ja eigendlich per For - Next Schleife zu bewerkstelligen sein.
Hier ein Auszug meines bisherigen Codes,
der aber bereits bei Set ZielBereich = Ws.Range("h6:NN6").Value
mit einem Fehler "Typen unverträglich"
Hat hier einer eine Hilfestellung für mich? Danke im voraus,
Sub AusFüllen()
Dim WB As Workbook
Dim Ws As Worksheet
Dim WSZiel As Worksheet
Dim ZielBereich As Range
Dim MitArbeiter As String
Set WB = ActiveWorkbook
Set Ws = Worksheets("Jahresplan")
MitArbeiter = Ws.Range("c6") 'Mitarbeiter der kopiert werden soll
Set ZielBereich = Ws.Range("h6:NN6").Value 'in diesen Bereich '
End Sub