Zellwerte übertragen
05.09.2013 12:16:38
Sascha
gleiches Projekt, neues Problem :)
Die Daten einer Zelle (wie zb. Name, Vorname etc.) aus Tabelle1 sollen per Ereignis automatisch in der dazugehörigen Zelle in Tabelle2 eingetragen werden.
Per Makro kann man neue Spalten/Zeilen (je auf Tabelle1 und tabelle2) hinzufügen, wo man wiederum neue Daten eintragen kann. Ich habe folgendes gebastelt:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
If Target.Address = "$B$8" Then
For i = 0 To 100
If Worksheets("tabelle1").Range("B8").Offset(0, i) "" Then
Worksheets("tabelle2").Range("C7").Offset(i, 0) = Worksheets("tabelle1")
.Range("B8").Offset(0, i)
Else
Worksheets("tabelle2").Range("C7").Offset(i, 0) = ""
End If
Next i
End If
End Sub
Kann man dies ändern oder sollte ich das Problem völlig anders lösen, da dies Makro ungeeignet ist?
MfG Sascha
Anzeige