Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
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
584to588
584to588
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

kopieren

Forumthread: kopieren

kopieren
15.03.2005 11:45:58
peter
Hallo zusammen,
folgendes Problem:
mit dem folgenden Makro möchte ich die ausgefüllte Zeile A29:AB29 kopieren und sie in das Blatt B einfügen, wo die erste leere Zeile ist, ohne eine Zeile zu löschen, die schon Werte enthält.
Könnt ihr mir bitte helfen?
Vielen Dank
Peter
Sheets("A").Select
Range("A29:AB29").Select
Selection.Copy
Sheets("B").Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: kopieren
15.03.2005 12:13:34
Volker
Hallo Peter,
mir ist zwar nicht klar, in welche Zeile/Spalte die Kopie soll, aber das kannst Du ja anpassen.

Sub Makro2()
Sheets("A").Range("A29:AB29").Copy
If Sheets("B").Range("A1") = "" Then
Sheets("B").Range("A1").PasteSpecial Paste:=xlValues
Else
Sheets("B").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues
End Sub

Gruß
Volker
Anzeige
AW: kopieren
16.03.2005 09:13:04
Peter
Hallo zusammen,
das Makro ist gut, aber ich möchte die Daten in die erste Zeile einfügen, die komplett leer ist, also von A1 bis AI1. Ansonsten werden die Daten überschrieben.
Die kopierten Daten müssen in die Zellen A1 bis AI1 eingefügt werden.
Vielen Dank
P

Sub Makro2()
Sheets("A").Range("A29:AB29").Copy
If Sheets("B").Range("A1") = "" Then
Sheets("B").Range("A1").PasteSpecial Paste:=xlValues
Else
Sheets("B").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues
End Sub

Anzeige
AW: kopieren
16.03.2005 09:36:36
Volker
Hallo Peter,
hier wird die 1. leere Zeile von unten gesucht. Ich geh davon aus, das dazwischen keine leeren Zeilen vorkommen, oder?

Sub Makro1()
Sheets("A").Range("A29:AB29").Copy
If Sheets("B").Range("A1") = "" And Sheets("B").Range("IV1").End(xlToLeft).Column = 1 Then
letzte = 1
Else
letzte_zeile = Sheets("B").UsedRange.Rows.Count + Sheets("B").UsedRange.Row
End If
Sheets("B").Range("A" & letzte).PasteSpecial Paste:=xlValues
End Sub

Gruß
Volker
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