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
728to732
728to732
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ausschneiden einfügen

Forumthread: Ausschneiden einfügen

Ausschneiden einfügen
07.02.2006 09:19:57
Otto
Hi Leute,
ich habe folgendes selbst gemacht. 

Sub Datenkopieren()
Dim lEnd As Long
Sheets("Formeln").Select
Range("B16").Select
Application.CutCopyMode = False
Selection.Cut
Sheets("Dateneingabe").Select
lEnd = Range("B65536").End(xlUp).Row + 1
Cells(lEnd, 2) = ActiveSheet.Paste
End Sub

Er schneidet die Daten auch ordentlich aus, allerdings überschreibt er letztendlich die Zelle und schreibt wahr rein. Was ist falsch?
MfG
Steve
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Ausschneiden einfügen
07.02.2006 09:33:02
Dr.
Hi,
so sollte es funktionieren (Du musst noch Zellen und Tabellennamen anpassen):

Sub Datenkopieren()
Sheets(1).Range("A1").Cut (Sheets(2).Cells(Sheets(2).Range("A65536").End(xlUp).Row + 1, 1))
Application.CutCopyMode = False
End Sub

AW: Ausschneiden einfügen
07.02.2006 10:13:23
Otto
Vielen Dank, klappt.
Kurze Frage. Auf das Zielfeld in das die Datenkopiert werden, sind zwei weitere Formeln geschrieben, die die Daten aus dem Zielfeld weiterverwenden.
Diese Formel berechnet aus dem Zielfeld die KW:
=WENN(B170=0;"";"KW "&KÜRZEN((B170-WOCHENTAG(B170;2)-DATUM(JAHR(B170+4-WOCHENTAG(B170;2));1;-10))/7))
Diese Formel berecht aus dem Zielfeld den aktuellen Monat.
=WENN(B170=0;"";TEXT(B170;"MMMM"))
Wenn ich jetzt die Daten in das Zielfeld eintragen lasse, so kommt bei den Feldern die Fehlermeldung #Bezug!
Wie kann ich das verhindern?
Anzeige
AW: Ausschneiden einfügen
07.02.2006 11:54:16
Dr.
Keine Ahnung. Solang Du darauf achtest, Datumswerte und nicht Textwerte zu übergeben, sollte das auch funktionieren!
AW: Ausschneiden einfügen
07.02.2006 13:51:12
Otto
ich habe es umgangen. ich lasse die Formel zum weiterverarbeiten nach dem Ausführen des Makros nach unten weiterkopieren.
;

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