tabellenblatt automatisch erstellen

Hallo liebe Gemeinde,
ich stehe erneut vor einer mir aufgetragenen Aufgabe.... und hoffe ich finde hier Hilfe.
Ausgangspunkt: 1 Tabelle mit lfd. Aufgaben, in der bisher in Spalte A der Vorgang und in Spalte B die lfd. Aktivität hierzu eingetragen wird.
Ziel: wenn in Blatt "Vorgänge" Spalte A Zeile "x" ein neuer Vorgang "Vx" eingetragen wird, wird ein neues Tabellenblatt "Vx" angelegt, die Zelle "Vorgänge" "Ax" erhält einen Link zu Blatt "Ax"
Ich hoffe ich hab mich verständlich genug ausgedrückt....
Bsp.: ich möchte in Blatt "Vorgänge" in Zelle A3 den Vorgang -Hilfe- eintragen, Resultat soll sein, dass 1) ein Tabellenblatt -Hilfe- angelegt wird 2) in Blatt Vorgänge, Zelle A3 eine verlinkung zum neuen Blatt -Hilfe- erstellt wird.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Lippmann,
rechtsclick auf den Reiter deiner Tabelle "Aufgaben" und dann auf "Code anzeigen". In das große weiße Fenster kopierst du unten stehenden Code:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
'On Error GoTo hell
Dim iCol As Integer
Dim lRow As Long
Dim wksOld As Worksheet
Dim sZiel As String
'Vorgänge IN Spalte 1 (=A), und AB Zeile 2
iCol = 1
lRow = 2
'Hyperlinkziel in neuen Tabellen: A1
sZiel = "A1"
Set wksOld = ActiveSheet 'aktives Blatt merken
'Abbruch bei Mehrfachauswahl
If Target.Rows.Count > 1 Then GoTo heaven
If Target.Columns.Count > 1 Then GoTo heaven
If Target.Column = iCol And Target.Row >= lRow And Not Target.Value = "" Then
If WksSheetExists(Target.Value) Then
If MsgBox("Ein Blatt Namens " & Target.Value & " gibt es schon!" & Chr(10) & "neue  _
Aktivität löschen?", vbYesNo) = 6 Then
Target.ClearContents
End If
Else
Sheets.Add After:=Worksheets(Worksheets.Count) 'neues Sheet
ActiveSheet.Name = Target.Value                'sheet umbenennen
'bei ungültigem Namen greift "onError"
End If
End If
GoTo heaven:
hell: 'unnötiges Blatt (falscher Name) löschen und Fehlermeldung ausgeben
If Not wksOld.Name = ActiveSheet.Name Then
'IF-Block nicht notwendig, aber Sicherheit geht vor!
If MsgBox("Fehler - warscheinlich ein ungültiger Name!" & Chr(10) & "unnötiges Sheet lö _
schen?", vbYesNo) = 6 Then
Application.DisplayAlerts = False
ActiveSheet.Delete
End If
End If
heaven:
Application.DisplayAlerts = True
wksOld.Activate
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Statt Hyperlinks: Sheetwechsel per VBA
'Abbruch bei Mehrfachauswahl
If Target.Rows.Count > 1 Then GoTo heaven
If Target.Columns.Count > 1 Then GoTo heaven
'Sheet wechseln, falls möglich
If WksSheetExists(Target.Value) Then Sheets(Target.Value).Activate
heaven:
End Sub
Function WksSheetExists(sSheet As String) As Boolean
'Function prüft, ob ein Sheet bereits vorhanden ist
Dim wks As Object
On Error Resume Next
Set wks = Sheets(sSheet)
If Not wks Is Nothing Then
WksSheetExists = True
End If
On Error GoTo 0
End Function

Statt Hyperlinks habe ich den Blattwechsel per VBA gelöst. Kannst die Spalte ja blau+unterstrichen formatieren, dann sehen die Vorgangsnamen auch aus wie Hyperlinks.
Grüße,
Klaus M.vdT.

Beliebteste Forumthreads (12 Monate)

tabellenblatt automatisch erstellen

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

tabellenblatt automatisch erstellen

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread