Übergabe von Zellen
12.01.2016 10:44:24
Zellen
ich bin durch die Arbeit ein Bisschen genötigt mich in vba einzuarbeiten. Das klappt mittels Internet soweit gut, meine ersten eigenen Gehversuche scheitern aber kläglich und ich hoffe hier auf Hilfe.
Das Problem ist folgendes. Für eine Studie soll eine Vorlage erstellt werden, die möglichst _ viel automatisiert erledigt. Auf Tabellenblatt 1 ("Name") wird die Patientennummer eingetragen. Mit abgeschlossenem Eintrag der Nummer wird auf Tabellenblatt 2 ("Vorlage" zugegriffen und ein neues Tabellenblatt mit der Patientennummer erstellt. Das sieht so aus:
Private Sub Worksheet_Change(ByVal target As Range)
If target.Column = 2 And target.Row > 6 And target.Count = 1 And target "" Then
With ThisWorkbook
.Worksheets("Vorlage").copy after:=.Sheets(.Sheets.Count)
End With
ActiveSheet.Name = target
Me.Activate
Me.Hyperlinks.Add Anchor:=target, Address:="", SubAddress:=target & "!A1"
End If
End Sub
Das klappt ganz gut. Jetzt möchte ich aber noch, dass in Feld B4 des jeweiligen neuen Tabellenblattes die Patientennummer gleich mit drinsteht, also aus dem Blatt "Name" übernommen wird. Und daran hapert es momentan.
Ich wäre sehr dankbar wenn mir dazu jemand helfen könnte!
Besten Dank und Grüsse
Matthias