Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
948to952
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
948to952
948to952
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Textfeldausgabe aug 2 sheets gleichzeitig

Textfeldausgabe aug 2 sheets gleichzeitig
06.02.2008 21:01:42
Matthias.G.
Hallo Excelfans,
ich möchte aus einem Textfeld einer Userform eine Dateneingabe in 2 Tabellenblätter erreichen.
Hintergrund:
Gleichzeitige eingabe in beide Blätter
Auf Blatt 1 darf nachher gelöscht werden usw.
auf Blatt 2 sollen "ALLE" Daten die eingegeben wurden bestehen bleiben z.B( Datenbanksicherung)
hab da mal so angefangen:
Private Sub Daten_übernehmen_Click()
On Error Resume Next
Dim letzte_Zeile As Long
letzte_Zeile = Range("A65536").End(xlUp).Offset(1, 0).Row
ActiveSheet.Unprotect
Cells(letzte_Zeile, 1) = TextBox1
das funktioniert soweit...auf Blatt 1

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
mach bei Sheets2 das gleiche mit .Protect
06.02.2008 21:17:00
Matthias
Hallo
probiers mal so:

Option Explicit
Private Sub Daten_übernehmen_Click()
On Error Resume Next
Dim letzte_Zeile As Long
With Worksheets("Tabelle1")
letzte_Zeile = .Range("A65536").End(xlUp).Offset(1, 0).Row
.Unprotect
.Cells(letzte_Zeile, 1) = TextBox1
End With
With Worksheets("Tabelle2")
letzte_Zeile = .Range("A65536").End(xlUp).Offset(1, 0).Row
.Unprotect
.Cells(letzte_Zeile, 1) = TextBox1
.Protect
End With
End Sub


Userbild

Anzeige
AW: mach bei Sheets2 das gleiche mit .Protect
06.02.2008 21:39:28
Matthias.G.
hab es jetzt so als code in der Userform Blatt"Sicherung" bekommt keinen Eintrag :-(
Option Explicit

Private Sub Daten_übernehmen_Click()
On Error Resume Next
Dim letzte_Zeile As Long
With Worksheets("Mitarbeiter")
letzte_Zeile = Range("A65536").End(xlUp).Offset(1, 0).Row
.Unprotect
Cells(letzte_Zeile, 1) = TextBox1
Cells(letzte_Zeile, 2) = TextBox2
Cells(letzte_Zeile, 3) = TextBox3
Cells(letzte_Zeile, 4) = TextBox4
Cells(letzte_Zeile, 5) = TextBox5
Cells(letzte_Zeile, 6) = TextBox6
Cells(letzte_Zeile, 7) = TextBox7
Cells(letzte_Zeile, 8) = TextBox8
Cells(letzte_Zeile, 9) = TextBox9
Cells(letzte_Zeile, 10) = TextBox10
Cells(letzte_Zeile, 11) = TextBox11
Cells(letzte_Zeile, 12) = TextBox12
End With
With Worksheets("Sicherung")
letzte_Zeile = .Range("A65536").End(xlUp).Offset(1, 0).Row
.Unprotect
Cells(letzte_Zeile, 1) = TextBox1
Cells(letzte_Zeile, 2) = TextBox2
Cells(letzte_Zeile, 3) = TextBox3
Cells(letzte_Zeile, 4) = TextBox4
Cells(letzte_Zeile, 5) = TextBox5
Cells(letzte_Zeile, 6) = TextBox6
Cells(letzte_Zeile, 7) = TextBox7
Cells(letzte_Zeile, 8) = TextBox8
Cells(letzte_Zeile, 9) = TextBox9
Cells(letzte_Zeile, 10) = TextBox10
Cells(letzte_Zeile, 11) = TextBox11
Cells(letzte_Zeile, 12) = TextBox12
End With
End Sub



Private Sub Eingabe_beenden_Click()
Unload UserForm2
End Sub



Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then
Cancel = 1
MsgBox "Bitte verlassen Sie das Dialogfeld mit den Schaltflächen.", _
vbOKOnly + vbInformation, "Bitte Schaltfläche betätigen."
End If
End Sub


Anzeige
AW: mach bei Sheets2 das gleiche mit .Protect
06.02.2008 21:50:19
Herby
Hallo Matthias,
setze doch vor den Zeilen mit den
Cells(letzte_Zeile, 1) = TextBox1
die Punkte für das betreffende Arbeitsblatt
.Cells(letzte_Zeile, 1) = TextBox1
dann müsste es doch klappen
Viele Grüße
Herby

der Punkt vor Cells fehlt ! _oT
06.02.2008 21:51:00
Matthias

AW: der Punkt vor Cells fehlt ! _oT
06.02.2008 23:37:00
Matthias.G.
Danke
kleiner . große Wirkung

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige