Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.04.2024 23:32:21
Darstellung im IMAGE sehr schlecht
15.04.2024 21:08:34
PDF mit Makro erstellen mehrere Sheets
15.04.2024 18:38:39
Arbeitszeiten Vorlage ergänzen
15.04.2024 17:34:30
Fehlende Zeilen automatisch nach Zeiten ergänzen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1288to1292
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1288to1292
1288to1292
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

bestimmte Daten per VBA

bestimmte Daten per VBA
21.12.2012 14:40:20
Fritz_W
Hallo Forumsbesucher,
ich bitte um Unterstützung der VBA-Experten:
Ich möchte die Daten folgender Zellen aus Tabelle1 wie folgt in der Tabelle2 ("Sicherung") sichern (unformatiert als Wert einfügen).
In der Tabelle2 sollen beginnend ab Zeile 2 jeweils in der ersten freien Zelle der Spalte C der Wert aus Zelle O6 der Tabelle1 in der (jeweils) gleichen Zeile in Spalte D der Wert aus O8 der Tabelle1, in der (jeweils) gleichen Zeile der Spalte E der Wert aus DI23 der Tabelle1 und in der gleichen Zeile der Spalte F der Wert aus DI24 der Tabelle1 eingefügt werden.
Hinweis: In den Spalten A und B von Tabelle2 befinden sich Formeln,Tabelle2 soll also ab Spalte C fortlaufend 'aufgefüllt' werden.
Für eure Unterstützung bedanke ich mich im Voraus.
mfg
Fritz

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

Betreff
Datum
Anwender
Anzeige
AW: bestimmte Daten per VBA
22.12.2012 11:43:41
Tino
Hallo,
kannst mal so versuchen.
Das Makro kannst Du über einen Button oder so aufrufen.
Sub Makro1()
Dim lngLastRow&
With Tabelle2
    lngLastRow = .Cells(.Rows.Count, 3).End(xlUp).Row + 1
    .Cells(lngLastRow, 3).Value2 = Tabelle1.Cells(6, 15).Value2
    .Cells(lngLastRow, 4).Value2 = Tabelle1.Cells(8, 15).Value2
    .Cells(lngLastRow, 5).Value2 = Tabelle1.Cells(23, 113).Value2
    .Cells(lngLastRow, 6).Value2 = Tabelle1.Cells(24, 113).Value2
End With
End Sub
Gruß Tino

Anzeige
AW: bestimmte Daten per VBA
22.12.2012 12:24:48
Fritz_W
Hallo Tino,
es funktioniert wunderbar.
Vielen Dank!
Gruß
Fritz

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige