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

Letzten Wert in Spalte A kopieren......

Letzten Wert in Spalte A kopieren......
11.04.2008 11:34:00
Josef
Hallo!
Ich habe 2 Arbeitsmappen.
Eine ist geöffnet und eine ist nicht sichtbar geöffnet.
Ich möcht nun die letzte eingetragene siebenstellige Zahl in der Spalte C, Tabelle1 aus der geöffneten Mappe in die nicht sichtbare Mappe, Tabelle1 in die Spalte B in die nächste freie Zelle mittels VBA kopieren.
Wie würde hier bitte eine VBA Lösung lauten?
Danke

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Letzten Wert in Spalte A kopieren......
11.04.2008 12:03:48
chris
Hallo meinst du so ?

Sub neu()
Workbooks("2.xls").Worksheets("Tabelle1").Cells(Workbooks("2.xls").Worksheets("Tabelle1").Cells( _
(Rows.Count), 2).End(xlUp).Row + 1, 2) = ActiveWorkbook.Worksheets(1).Cells(Rows.Count, 3).End(xlUp)
End Sub


AW: Letzten Wert in Spalte A kopieren......
11.04.2008 12:16:00
Josef
Hallo chris!
Danke auch Dir für Deine Hilfe.
Ich wünsche noch einen angenehmen Nachmittag.
Josef

AW: Letzten Wert in Spalte A kopieren......
11.04.2008 12:06:00
UweD
Hallo
so...

Sub kopiere()
    On Error GoTo Fehler
    Dim SP1%, SP2%, LR1&, LR2&, TB1, TB2
    Set TB1 = Workbooks("Mappe2.xls").Sheets("Tabelle1"' Die sichtbare
    Set TB2 = Workbooks("Mappe3.xls").Sheets("Tabelle1"' Die unsichtbare
    SP1 = 3 'Spalte C
    SP2 = 2 'Spalte B
    LR1 = TB1.Cells(Rows.Count, SP1).End(xlUp).Row 'letzte Zeile der Spalte
    LR2 = TB2.Cells(Rows.Count, SP2).End(xlUp).Row 'letzte Zeile der Spalte
    Application.ScreenUpdating = False
    TB1.Cells(LR1, SP1).Copy TB2.Cells(LR2 + 1, SP2)
Fehler:
    If Err.Number <> 0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description: Err.Clear
    Application.EnableEvents = True
    Application.DisplayAlerts = True
End Sub
Namen noch anpassen...

Anzeige
AW: Letzten Wert in Spalte A kopieren......
11.04.2008 12:17:00
Josef
Hallo UweD!
Danke für Deine Mühe und Deine Hilfe. Funktioniert bereits.
Josef

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige