MessageBox VBA Zelleninhalt wiedergeben

[DavidHans]

Hallo zusammen,

ich habe die angehängte Tabelle so bearbeitet, dass ich über ein Userform Daten in zwei Tabellen gleichzeitig einfügen kann. In der Master Liste stehen alle Daten der verschiedenen Projektreiter und in den Reitern eben nur die Projektdaten. Nun wäre es super, wenn ich die Zeilen erneut in das Userform hochladen könnte, um sie zu ändern - parallel für beide betroffenen Tabellen. Dazu bin ich allerdings viel zu unerfahren, was VBA angeht.

Es wäre klasse, wenn mir jemand einen Tipp in die richtige Richtung geben könnte, ich freue mich über jede Hilfe :)

Beste Grüße,
David

PS: Die Anmerkungen im Code sind nicht korrekt, einfach nicht beachten

[WillWissen]

Push!

[Crazy Tom]

Hallo

ich hab mal ein bissel was geändert
schau mal ob es so passt

Code:

Option Explicit

Dim rngFound As Range

Private Sub CommandButton1_Click()
   Dim erste_freie_Zeile As Long
   Dim i As Integer
   With Sheets("Master")
       erste_freie_Zeile = .Range("A65536").End(xlUp).Offset(1, 0).Row
       For i = 1 To 35
           .Cells(erste_freie_Zeile, i) = Controls("TextBox" & i).Text
       Next
   End With
   With Sheets("Projekt X")
       erste_freie_Zeile = .Range("A65536").End(xlUp).Offset(1, 0).Row
       For i = 1 To 35
           .Cells(erste_freie_Zeile, i) = Controls("TextBox" & i).Text
       Next
   End With
   Unload Me
End Sub

Private Sub CommandButton2_Click()
'UserForm schließen
Unload Me
End Sub

'neuer Button zum Suchen eines Datensatz auf Sheets("Master")
'hier wird nach der Nummer in Spalte A gesucht
Private Sub CommandButton3_Click()
   Dim i As Integer
   With Sheets("Master")
       Set rngFound = .Columns(1).Find(TextBox1.Text, _
                                       LookIn:=xlValues, _
                                       lookat:=xlWhole)
       
       For i = 1 To 35
           Controls("TextBox" & i).Text = .Cells(rngFound.Row, i)
       Next
   End With
End Sub

'neuer Button fürs Update eines Datensatzes
Private Sub CommandButton4_Click()
   Dim i As Integer
   Dim rngFound2 As Range
   With Sheets("Master")
       For i = 1 To 35
           .Cells(rngFound.Row, i) = Controls("TextBox" & i).Text
       Next
   End With
   With Sheets("Projekt X")
       Set rngFound2 = .Columns(1).Find(TextBox1.Text, _
                                       LookIn:=xlValues, _
                                       lookat:=xlWhole)
       
       For i = 1 To 35
           .Cells(rngFound2.Row, i) = Controls("TextBox" & i).Text
       Next
   End With
End Sub

ich hänge mal die geänderte Datei hinten dran

ich hab die Userform etwas schmaler gemacht

auf meinem Bildschirm wird's sonst nicht ganz angezeigt




MfG Tom

[DavidHans]

Hallo Tom,

tut mir leid für die späte Antwort! Vielen lieben Dank, das Ding ist perfekt! :)

LG,
David

[Crazy Tom]

Moinmoin

danke für die Rückmeldung

MfG Tom