Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
844to848
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
844to848
844to848
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Werte aus Tabelle 1 nach Tabelle 2 kopieren

Werte aus Tabelle 1 nach Tabelle 2 kopieren
15.02.2007 16:44:00
Fritz_W
Hallo VBA-Experten,
ich brauche erneut eure Unterstützung.
Mit welchem Code lässt sich folgendes bewerkstelligen:
Das Makro soll Daten aus der Tabelle1 wie folgt in die Tabelle2 kopieren:
Es sollen die Daten aus Tabelle1 in Zelle AM15, AN15 und AP15 kopiert werden und zwar in die Daten aus AM 15 in die Tabelle2 in die erste freie Zelle der Spalte A (beginnend ab Zeile 5!). Dann sollten die Daten aus AN15 in die Spalte B der gleichen Zeile (in Tabelle2) und die aus AP 15 in die Spalte C der gleichen Zeile (in Tabelle2) kopiert werden!
Vielen Dank für eure Hilfe.
Mfg
Fritz

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

Betreff
Datum
Anwender
Anzeige
AW: Werte aus Tabelle 1 nach Tabelle 2 kopieren
15.02.2007 17:43:00
Peter
Hallo Fritz,
das beigefügte Makro in ein allgemeines Modul kopieren:


'
'   Das Makro soll Daten aus der Tabelle1 wie folgt in die Tabelle2 kopieren:
'   Es sollen die Daten aus Tabelle1 in Zelle AM15, AN15 und AP15 kopiert werden
'   und zwar in die Daten aus AM 15 in die Tabelle2 in die erste freie Zelle der
'   Spalte A (beginnend ab Zeile 5!).
'   Dann sollten die Daten aus AN15 in die Spalte B der gleichen Zeile (in Tabelle2)
'   und die aus AP 15 in die Spalte C der gleichen Zeile (in Tabelle2) kopiert werden!
'
Public Sub Kopieren()
Dim lLetzte  As Long
   With Worksheets("Tabelle2")
      lLetzte = IIf(.Range("A65536") <> "", 65536, .Range("A65536").End(xlUp).Row) + 1
      If lLetzte < 5 Then lLetzte = 5
   End With
   With Worksheets("Tabelle1")
      Worksheets("Tabelle2").Cells(lLetzte, 1).Value = .Range("AM15")
      Worksheets("Tabelle2").Cells(lLetzte, 2).Value = .Range("AN15")
      Worksheets("Tabelle2").Cells(lLetzte, 3).Value = .Range("AP15")
   End With
End Sub 


Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
Anzeige
AW: Werte aus Tabelle 1 nach Tabelle 2 kopieren
15.02.2007 17:54:53
Fritz_W
Hallo Peter,
das Makro läuft wie gewünscht. Super!
Vielen Dank für Deine Hilfe.
Schöne Grüße
Fritz

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige