Anzeige
Archiv - Navigation
740to744
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
740to744
740to744
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Bestimmte Zeilen in neue Tabelle kopieren
07.03.2006 14:11:01
Roland
Hallo Leute!
Bitte höflich um Hilfe!
Folgender Vorgang: Ich öffne eine UserForm, dort gibt man jene Zeile ein (z.B. 120), die (nach betätigen eines 'OK' Buttons) von Tabelle 1 auf die Tabelle 2 (Zeile 2) kopiert werden soll.
Danke für die Unterstützung!
Leibe Grüße
Roland

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bestimmte Zeilen in neue Tabelle kopieren
07.03.2006 14:28:00
Harald
Hi Roland,
hier mein Vorschlag für den OK-ButtonCode (allerdings ohne Fehlerbehandlung)

Private Sub CommandButton1_Click()
Rows(TextBox1.Value).Copy Sheets(2).Rows(Sheets(2).Cells(Rows.Count, 1).End(xlUp).Row + 1)
Unload Me
End Sub

Gruss Harald
AW: Bestimmte Zeilen in neue Tabelle kopieren
07.03.2006 14:55:48
Harald
Hi, bevor ich Feierabend mache. Gleicher Code Doppelcheck ;-)

Private Sub CommandButton1_Click()
If IsNumeric(TextBox1.Value) And TextBox1.Value > 0 Then
Rows(TextBox1.Value).Copy Sheets(2).Rows(Sheets(2).Cells(Rows.Count, 1).End(xlUp).Row + 1)
Unload Me
Else
MsgBox "Fehleingabe"
With TextBox1
.Value = ""
.SetFocus
End With
End If
End Sub

Gruss Harald
Anzeige

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige