VBA-Verknüpfung Zeile und worksheet

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) Dim Datei As String, Pfad As String, Ext As String, Z On Error GoTo Fehler If Not Intersect(Range("A:A"), Target) Is Nothing Then If Target.Count <> 1 Then MsgBox "Nur einzeln bearbeiten" End If Pfad = "x:\Temp\Test\" 'mit \am Ende Ext = "*.xl*" With Application .EnableEvents = False .Undo 'Zeigt den Zellinhalt vor der Änderung Datei = Target.Value 'Der ursprünglische Eintrag .Undo 'Wieder zurück .EnableEvents = True End With 'Wenn jetzt leer und vorher ein Eintrag If Target = "" And Datei <> "" Then 'Prüfen ob es so eine Datei gibt If Dir(Pfad & Datei & Ext) <> "" Then 'Datei löschen Kill Pfad & Dir(Pfad & Datei & Ext) Else MsgBox "Keine Datei gefunden: " & Datei & Ext End If End If End If '*** Fehlerbehandlung Err.Clear Fehler: Application.EnableEvents = True If Err.Number <> 0 Then MsgBox "Fehler: " & _ Err.Number & vbLf & Err.Description: Err.Clear End Sub

Ersteinmal vielen lieben Dank für deine Antwort.
Weil ich relativ frisch bin habe ich aber noch eine Frage, an welcher Stelle bzw wo steht die zuordnung zu der bestimmten Zelle?
Ich habe das so vor das auf einer Hauptseite Namen eingepflegt werden sollen. Auf dieser Seite Ist ein Makro welches ein Formular zur Eingabe von Namen etc. ist. Wenn man jetzt bestätigt wird dieser in die nächste freie Zeile geschrieben und er kopiert ein (von mir erstelltes Musterblatt, was vorbereitet aber noch nicht ausgefüllt ist, jedoch zu dem Namen gehört und sich dann auch so nennt)
für jeden eingepflegten Namen erstellt er quasi eines der vorgefertigten Musterblätter.
Das habe ich soweit auch hinbekommen.
Mir fehlt jetzt aber das der eingepflegte Name zu dem Tabellenblatt gehört, welches es erstellt hat.
Und somit auch das Tabellenblatt gelöscht wird wenn ich den Namen bzw die Zeile wo er drin steht lösche.
Ich danke dir schonmal für deine Mühe

Private Sub Button_Eingabe_Click()
If Bedienfeld.TextBox_Nachname.Value = "" Then
MsgBox ("Bitte Nachnamen eingeben")
Else
If Bedienfeld.TextBox_Vorname.Value = "" Then
MsgBox ("Bitte Vornamen eingeben")
Else
If Bedienfeld.TextBox_Personalnummer.Value = "" Then
MsgBox ("Bitte Personalnummer eingeben")
Else
Dim letzteZeile As Long
letzteZeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Rows(letzteZeile + 1).Insert  'Zeile einfügen
Rows(letzteZeile).Copy Cells(letzteZeile + 1, 1)  'Zeile kopieren
'Inhalte der Monate Spalte k-ZZ löschen und Namen eintragen
Range(Cells(letzteZeile + 1, "K"), Cells(letzteZeile + 1, "ZZ")).ClearContents
Range(Cells(letzteZeile + 1, "B"), Cells(letzteZeile + 1, "D")).ClearContents
'Daten aus dem Textfeld schreiben
ActiveSheet.Cells(letzteZeile + 1, "B").Value = Bedienfeld.TextBox_Nachname.Value
ActiveSheet.Cells(letzteZeile + 1, "C").Value = Bedienfeld.TextBox_Vorname.Value
ActiveSheet.Cells(letzteZeile + 1, "D").Value = Bedienfeld.TextBox_Personalnummer.Value
Workbooks("Unterweisung.xlsm").Worksheets("MusterMechatronik").Copy After:=Workbooks(" _
Unterweisung.xlsm").Sheets(Sheets.Count)
ActiveSheet.Name = Bedienfeld.TextBox_Nachname
End If
End If
End If
End Sub

Private Sub Button_Zurück_Click()
'Eingabefenster schließen
Unload Bedienfeld
End Sub

Beliebteste Forumthreads (12 Monate)

VBA-Verknüpfung Zeile und worksheet

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA-Verknüpfung Zeile und worksheet

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

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread