Typen unverträglich
29.07.2003 16:07:47
pepp
ich fische so ein bisschen im trüben und versuch mir was zusammenzubasteln, aber ich bin mir nicht wirklich sicher über die bedeutung und verwendung der einzelnen schritte.
nachfolgende anweisung soll bewirken, dass bei eingabe in die erste spalte (mein return geht eins runter) die 6 nebenstehenden spalten in einer zeile in das blatt kopiert werden, das den namen der eingabe in die erste spalte hat.
also z.b. eingabe "AN" das markierte auf sheet "AN" kopieren.
in einer probeversion habe ich das sheet mit ("Tabelle2") benannt da hat es funktioniert, aber es ist ja nicht immer tabelle2 sondern variabel.
mir scheint, die (CStr (Target)) angabe verträgt sich nicht mit range(Cells ...
aber wieso? und was könnt ich statt dessen machen? ihr seht, noch ziemlich kraut und rüben bei meinem vba-verständniss.
vielen dank für licht ins dunkle, pepp
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
intRow = ActiveCell.Row - 1
Range(Cells(intRow, 1), Cells(intRow, 6)).Copy
Sheets(CStr(Target)).Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
Sheets("AQ").Select
Application.CutCopyMode = False
End If
End Sub