Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
780to784
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
780to784
780to784
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Werte in andere Tabelle kopieren

Werte in andere Tabelle kopieren
13.07.2006 20:52:35
Fritz
Hallo VBA-Experten,
ich hoffe wieder einmal auf eure Hilfe.
Ich möchte aus dem aktuellen Tabellenblatt den Wert aus Zelle B3 in die Tabelle
"Auswertung" in die erste freie Zelle der Spalte B kopieren. Gleichzeitig sollte der Wert aus der Zelle C5 der aktuellen Tabelle in die gleiche Zeile der Tabelle "Auswertung" in die Spalte C kopiert werden.
Vorab vielen Dank für eure Unterstützung.
mfg
Fritz

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Werte in andere Tabelle kopieren
13.07.2006 22:03:01
Peter
Hallo Fritz,
so geht es:
Public

Sub Kopieren()
Dim WkSh_Z    As Worksheet
Dim lZeile_Z  As Long
Set WkSh_Z = Worksheets("Auswertung")
lZeile_Z = WkSh_Z.Range("B65536").End(xlUp).Row + 1
With ActiveSheet
Range("B3").Copy Destination:=WkSh_Z.Cells(lZeile_Z, 2)
Range("C5").Copy Destination:=WkSh_Z.Cells(lZeile_Z, 3)
End With
End Sub

Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
AW: Werte in andere Tabelle kopieren
13.07.2006 22:09:11
Fritz
Hallo Peter,
super, funktionert prima!
Besten Dank!
Schönen Abend noch
Fritz
AW: Werte in andere Tabelle kopieren
13.07.2006 22:15:00
Gerd
Hallo Fritz,
noch zwei Alternativen ohne Variablen.
Option Explicit

Sub Test_von_unten_geprüft()
Worksheets("Auswerung").Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Value = _
ActiveSheet.Cells(3, 2).Value
Worksheets("Auswertung").Cells(Rows.Count, 3).End(xlUp).Offset(1, 0).Value = _
ActiveSheet.Cells(5, 3).Value
End Sub


Sub Test_von_oben_geprüft()
Worksheets("Auswertung").Cells(1, 2).End(xlDown).Offset(1, 0).Value = _
ActiveSheet.Cells(3, 2).Value
Worksheets("Auswerung").Cells(1, 3).End(xlDown).Offset(1, 0).Value = _
ActiveSheet.Cells(5, 3).Value
End Sub

Gruß
Gerd
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige