VBA Frage
18.02.2014 14:22:39
Hans
ich muss schon wieder fragen.
Kurze Erläuterung:
Ich kopiere eine angelegte Blankodatei. Das funktioniert dank euch auch wunderbar.
Jetzt möchte ich aber, dass auf dem Tabellenblatt "Hauptblatt" ein Zellbezug zu dem neu erstellten Tabellenblatt hergestellt wird.
Beispiel:
Ich benenne das neue Tabellenblatt "Testblatt".
Aus dem "Testblatt" möchte ich die Werte der Zelle A5 auf meinem "Hauptblatt" in der Zelle A15 anzeigen lassen.
Ich habe folgenden Code:
Sub neuer_lieferant()
' Tabellenblatt Lieferant blank auswählen
Sheets("neuer Lieferant").Select
'Range("A5:C5").Select
' neues Tabellenblatt anlegen
Dim NewName As String
ActiveSheet.Copy Before:=ActiveSheet
NewName = InputBox("Geben Sie einen Tabellenblattnamen ein")
ActiveSheet.Name = NewName
' das neue Tabellenblatt wurde soeben mit dem eingegeben Namen benannt
Sheets("Hauptblatt").Select
Range("A15").Select
ActiveCell.FormulaR1C1 = "=Testblatt!R[-10]C"
Range("A16").Select
End Sub
ActiveCell.FormulaR1C1 = "=Testblatt!R[-10]C"
Wie bekomme ich das so hin, dass ich immer den richten, neuen Namen (NewName) dort habe?
Vielen Dank im Voraus!
Anzeige