Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1428to1432
1428to1432
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Suche letzte beschr.Zelle Spalte, Übertrag Bereich

Forumthread: Suche letzte beschr.Zelle Spalte, Übertrag Bereich

Suche letzte beschr.Zelle Spalte, Übertrag Bereich
29.05.2015 11:58:32
Nicole
Hallo, ich habe eigentlich eine Datei die wie folgt aufgebaut ist:
1. Tabellenblatt Name: "STool" Datenbereich: "D26-D61" -> Datenquelle
2. Tabellenblatt Name: "OVERVIEW", Datenbereich: Spalte O5 - ....... -> hier soll reinkopiert werden.
Die Aufgabenstellung ist eigentlich sehr simpel. Suche die letzte beschriebene Zelle von Tabellenblatt "Overview" in Spalte A und schreibe dort den Inhalt von STool Bereich (D26-D61) hinein.
Mein Anfang war wie folgt:
Private Sub CommandButton1_Click()
Dim z As Integer
z = Sheets("Overview").Range("A65536").End(xlUp).Row + 1
Sheets("OVERVIEW").Cells(z, 15) = Sheets("STool").Cells(z, 4).Value
End Sub
Kann mir jemand sagen, warum das nicht funktioniert? Und wie es gehen könnte.
Vielen lieben Dank und allen ein schönes We!!!
Nic

Anzeige

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

Betreff
Datum
Anwender
Anzeige
Suche letzte beschr.Zelle Spalte, Übertrag Bereich
29.05.2015 12:34:54
Hajo_Zi
ungetestet. Ich baue nichts nach.
Sheets("OVERVIEW").Cells(z, 1) = Sheets("STool").Range("D26:D61")

AW: Suche letzte beschr.Zelle Spalte, Übertrag Bereich
29.05.2015 12:41:47
fcs
Hallo Nic,
etwa so könnte es gehen: 
'nur Formate und Werte kopieren
Private Sub CommandButton1_Click()
Dim z As Integer
z = Sheets("Overview").Range("A65536").End(xlUp).Row + 1
Sheets("STool").Range("D26:D61").Copy
Sheets("OVERVIEW").Cells(z, 15).PasteSpecial Paste:=xlPasteFormats
Sheets("OVERVIEW").Cells(z, 15).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub
'Alles kopieren
Private Sub CommandButton1_Click()
Dim z As Integer
z = Sheets("Overview").Range("A65536").End(xlUp).Row + 1
Sheets("STool").Range("D26:D61").Copy Sheets("OVERVIEW").Cells(z, 15)
End Sub
Gruß
Franz
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige