hallo forumgemeinde
ich habe 2 tabellen. nur die erste enthält daten die eingeben werden. nun will ich per makro das die erste 6 spalten der jeweiligen zeile aus blatt 1 in das blatt 2 in der gleichen zeile übergeben werden.das wär ja net so schwer nur will ich das der wert der übergeben werden soll gleich der spalte im blatt 2 ist. im blatt 1 stehen nur zahlen.
wer kann mir da helfen brauch einen ansatz
hier mal meiner funzt nur nicht
Dim j, i, a As Integer
Worksheets(1).Activate
letztezelle = Range("A65536").End(xlUp).Row
For j = 2 To letztzelle
For i = 1 To 6
a = Sheets(1).Cells(j, i).Value
Sheets(2).Cells(j, a) = "1"
Next i
Next j
gruß TC