Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1296to1300
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
Inhaltsverzeichnis

gesamte zeile in tabellenblatt 2 kopieren

gesamte zeile in tabellenblatt 2 kopieren
03.02.2013 14:31:44
pepeto
Hallo ich bin Neueunsteiger in der Programmierung mit VB
und möchte in einer Excel Liste folgendes ausführen lassen per Button.
in der Tabelle1 habe ich 170 Zeilen und möchte die Spalte F8 - F170 auf inhalt prüfen und dann die geamte Zeile in Tabellenblatt 2 kopieren.
Funktioniert mit dem Code auch schon gut aber ich möchte das er die Zeilen
in Tabellenblatt 2 von oben nach unten kopiert und immer danach speichert und beim nächsten mal wieder kopiert und anfügt in Tabellenblatt 2.
Das bekomme ich nicht hin.
Hier mein vorhandener Code.
Kann mir vielleicht jemand behilflich sein.
Public Sub Zeilen2()
Dim i As Integer
Dim cell As Range
i = 1
For Each cell In Tabelle1.Range("F8:F170")
If Not cell Is Nothing Then
If cell.Value > 0 And cell.Value 

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

Betreff
Datum
Anwender
Anzeige
AW: gesamte zeile in tabellenblatt 2 kopieren
03.02.2013 14:38:01
Hajo_Zi
Du hast schon beachtet Du benutz den internen Namen der Tabelle, nicht den Registernamen.
Ich baue keine Datei nach, die Zeit hat schon jemand investiert.
Ein Link zur Datei wäre nicht schlecht.

AW: gesamte zeile in tabellenblatt 2 kopieren
03.02.2013 14:48:25
hary
Hallo
Dim i As Long
Dim Zelle As Range
With Tabelle2
For Each Zelle In Tabelle1.Range("F8:F170")
If Not Zelle Is Nothing Then
If Zelle.Value > 0 And Zelle.Value 

gruss hary
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige