Live-Forum - Die aktuellen Beiträge
Datum
Titel
30.09.2025 21:34:46
VBA - Sharepoint den Pfad der lokalen Synchronisation ermitt
30.09.2025 18:32:19
Summewenn nach Anzahl der Vorkomnisse
30.09.2025 14:57:32
Werte aus einem Vergleich von zwei spalten in dritte Spalte
30.09.2025 13:37:26
als Text gespeicherte Zahlen
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
460to464
460to464
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellinhalte kopieren

Forumthread: Zellinhalte kopieren

Zellinhalte kopieren
30.07.2004 08:59:36
Michael
Moin moin zusammen,
ich möchte auf Knopfdruck Zellinhalte innerhalb einer Tabelle kopieren.
Ich habe das ganze schon mal mit range.select und range.copy probiert, dabei wurden aber alle meine Formatierung im Ziel überschrieben.
Danke im voraus
Michael
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Zellinhalte kopieren
geri
Hallo Michael
wieviele Zellen sind dies ? wegen Lösungsansatz

Sub DatenübernahmeTabelle()
Dim i As Integer
i = Sheets("geschriebene Rechnungen").Cells(Cells.Rows.Count, 1).End(xlUp).Row + 1
If i < 4 Then i = 4
' ZIELBEREICH                   'QUELLBEREICH
Sheets("geschriebene Rechnungen").Cells(i, 1) = Sheets("Rechnung").Cells(13, 1) 'Kd-Nummer
Sheets("geschriebene Rechnungen").Cells(i, 2) = Sheets("Rechnung").Cells(18, 1) ' Rech. Nr
Sheets("geschriebene Rechnungen").Cells(i, 3) = Sheets("Rechnung").Cells(1, 6) 'Rech-Dat
Sheets("geschriebene Rechnungen").Cells(i, 4) = Sheets("Rechnung").Cells(9, 1) 'Name/Vorname
Sheets("geschriebene Rechnungen").Cells(i, 5) = Sheets("Rechnung").Cells(10, 1) 'Strasse
Sheets("geschriebene Rechnungen").Cells(i, 6) = Sheets("Rechnung").Cells(11, 1) 'PLZ/Ort
Sheets("geschriebene Rechnungen").Cells(i, 7) = Sheets("Rechnung").Cells(42, 6) 'Betrag
'cells(zeile,spalte) anpassen
End Sub

anbei kleines Muster
gruss geri
Anzeige
AW: Zellinhalte kopieren
30.07.2004 09:17:09
Michael
Hallo Geri,
es handelt sich um 8 Spalten mit jeweils 100 Zeilen.
Gruss
Michael
AW: Zellinhalte kopieren
30.07.2004 09:20:34
Basti
alles makieren:
cells.select
selection.copy
einzelne Spalten:
Columns("B:B").Select
selection copy
anstatt b:b fügste halt die Spalte die du kopieren willst ein
;

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