Mehere Felder übegeben????
21.01.2005 16:01:55
Tommy
ich hatte gestern schon mal hier reingeschrieben....
naja jetzt hab ich folgendes problem:
dieser untere code ist in tabelle1 und soll den wert "name" übergeben in tabelle2:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$7" Then
With Sheets("Tabelle2")
lz = .UsedRange.Rows.Count + 1
If .Cells(1, 1) = "" Then lz = 1
Range("$C$7").Copy .Cells(lz, 1)
End With
End If
End Sub
jetzt hab ich mir überlegt auch noch in tabelle eins ein feld zu machen wo ich den vornamen eingebe und der dann auch wie in obrigen code in tabelle 2 übernommen wird!!! aber irgendwie macht der das nicht!!!*traurigguck*
code nr.2 für vorname:
Private Sub u(ByVal Target As Range)
If Target.Address = "$D$7" Then
With Sheets("Tabelle2")
lz = .UsedRange.Rows.Count + 1
If .Cells(1, 1) = "" Then lz = 12
Range("$D$7").Copy .Cells(lz, 1)
End With
End If
End Sub
ihr könnt mir doch bestimmt helfen!!!!
bitte ganz schnell um antwort!!!!
danke im voraus
tommy