Daten von Tabelle1 in die Tabelle 2 kopieren

Bild

Betrifft: Daten von Tabelle1 in die Tabelle 2 kopieren von: Martin
Geschrieben am: 12.02.2005 16:51:49

Hallo,

VBA ist ein mächtiges Ding aber mir fehlt hier einfach
noch das nötige Wissen. Kann mir einer hierbei bitte helfen.

Ich habe ein Tabellenbeispiel auf den Server geladen,
mit welchem man Daten von Tabelleblatt Quelle in das
Tabellenblatt Ziel kopieren kann, sobald eine Menge eingegeben wurde.
Hier werden die ganzen Zeilen kopiert. Wie kann man den VBA-Code so ändern,
dass die entsprechend Zeilen nur von Spalte A bis E kopiert werden.
Bei jedem kopieren werden die Daten unter dem bereits bestehenden Datensatz kopiert bzw. drangehängt. Wie erreicht man es, dass bei jedem kopieren der kopierte Datensatz im Tabellenblatt Ziel überschrieben wird?

https://www.herber.de/bbs/user/17932.xls

Bitte Danke

Gruß Markus

Bild


Betrifft: AW: Daten von Tabelle1 in die Tabelle 2 kopieren von: Kay
Geschrieben am: 12.02.2005 18:06:33

Hallo Markus,

setze diese Zeile unter der letzten Set Anweisung
und so müsste es funktionieren.

wksZ.Range("A2:E65536").Clear

Gruß
Kay


Bild


Betrifft: AW: Daten von Tabelle1 in die Tabelle 2 kopieren von: Martin
Geschrieben am: 12.02.2005 19:28:47

Hallo Kay,

sorry, ich kann das nicht so gut. In welcher Zeile wird der Code eingefügt?


Sub SuchenUndKopieren()
Dim wksQ As Worksheet   'Preisliste-Tabelle
Dim wksZ As Worksheet   'Angebot-Tabelle
Dim rng As Range
Dim lngQ As Long
Dim lngz As Long
   
Set wksQ = Sheets("Preisliste")
Set wksZ = Sheets("Angebot")
lngQ = wksQ.Range("E65536").End(xlUp).Row
lngz = wksZ.Range("A65536").End(xlUp).Row + 8
  For Each rng In wksQ.Range(wksQ.Cells(1, 2), wksQ.Cells(lngQ, 2))
    If rng.Value > 0 Then
      rng.EntireRow.Copy wksZ.Cells(lngz, 1)
      lngz = lngz + 1
    End If
  Next
End Sub



Und wie geht das mit dem Kopieren der Zeile aber nur Spalte A bis E.

Danke
Gruß Martin


Bild


Betrifft: AW: Daten von Tabelle1 in die Tabelle 2 kopieren von: Kay
Geschrieben am: 12.02.2005 20:00:52

Hi,


Sub SuchenUndKopieren()
Dim wksQ As Worksheet   'Preisliste-Tabelle
Dim wksZ As Worksheet   'Angebot-Tabelle
Dim rng As Range
Dim lngQ As Long
Dim lngz As Long
   
Set wksQ = Sheets("Preisliste")
Set wksZ = Sheets("Angebot")
wksZ.Range("A2:E65536").Clear
lngQ = wksQ.Range("E65536").End(xlUp).Row
lngz = wksZ.Range("A65536").End(xlUp).Row + 8
  For Each rng In wksQ.Range(wksQ.Cells(1, 2), wksQ.Cells(lngQ, 2))
    If rng.Value > 0 Then
      rng.EntireRow.Copy wksZ.Cells(lngz, 1)
      lngz = lngz + 1
    End If
  Next
End Sub


diese Codezeile Löscht nur den alten Bereich

Das mit Spalte A bis E verstehe ich nicht ganz??

Es wird doch A bis E Kopiert,aber nur wenn etwas in E steht.

Kay


Bild


Betrifft: AW: Daten von Tabelle1 in die Tabelle 2 kopieren von: Martin
Geschrieben am: 12.02.2005 20:31:05

Hi,

alles klar, funktioniert perfekt.
Danke

Gruß Martin


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Daten von Tabelle1 in die Tabelle 2 kopieren"