Microsoft Excel

Herbers Excel/VBA-Archiv

Bewerten Sie hier bitte das Excel-Portal

Der kurze Weg zum Ziel: Auftragsprogrammierung

Zeile Kopieren & in Spalte einfügen

nach unten

Betrifft: Zeile Kopieren & in Spalte einfügen von: Eberhard
Geschrieben am: 21.09.2020 21:25:35

Hallo zusammen

Sicher keine grosse Sache für ein Profi. Mit unterstehenden Code Kopiere ich einen Zeilen Bereich. Dieser wird dann untereinander in einer anderen Spalte wieder eingefügt. Dies funktioniert. Aber ich möchte nur den Zellinhalt kopieren und nicht die ganze Formatierung der Zelle.
Wie muss ich dies ändern? Oder hat jemand einen anderen Vorschlag?
Besten Dank für Eure Hilfe.

Gruss Daniel
Worksheets("Startseite").Range("B" & ARow, "N" & ARow).Copy
Worksheets("Rechner").Cells(1, 10).PasteSpecial Transpose:=True

nach oben  nach unten

Betrifft: AW: Zeile Kopieren & in Spalte einfügen
von: GerdL
Geschrieben am: 21.09.2020 21:55:17

Moin Eberhard!
____.PasteSpecial Paste:=xlPasteValues, Transpose:=True
Gruß Gerd

nach oben  nach unten

Betrifft: AW: Zeile Kopieren & in Spalte einfügen
von: Eberhard
Geschrieben am: 21.09.2020 22:35:55

Hallo Gerd

Super! Vielen Dank & einen schönen Abend.

Gruss Daniel

Beiträge aus dem Excel-Forum zum Thema "Zeile Kopieren & in Spalte einfügen"

Blätter in andere Arbeitsmappen kopieren
Module von Mappe zu Mappe kopieren
Arbeitsblatt 40 mal kopieren
Schriftgröße beim Kopieren verdoppeln
Beim Kopieren auch die Zeilenhöhe und Spaltenbreite übernehmen
Tabellencode nach Kopieren des Blattes löschen
Arbeitsmappe blitzschnell kopieren
VBE-Namen der Blattmodule beim Kopieren festlegen
Blattinhalt von einer zur anderen Arbeitsmappe kopieren
Formel bis zur letzten Zeile der Nebenspalte kopieren
Datei kopieren, wenn noch nicht vorhanden
Zeilenweise von Blatt zu Blatt kopieren
Erste Druckseite in eine neue Arbeitsmappe kopieren
Durch DoppelKlick Spalte in zweites Arbeitsblatt kopieren
Teilergebnisse einer Serie von Tabellen in anderes Blatt kopieren
Bei Eintrag in Spalte A aktuelle Zeile kopieren
Filtern und Kopieren
Zeile mit aktiver Zelle in anderes Blatt kopieren
Zeilen in Abhängigkeit des Wertes in Spalte A kopieren
Einen von einer Schlüsselziffer abhängigen Bereich kopieren
Vorgegebene Anzahl von Einträgen in 2. Blatt kopieren
Über InputBox festzulegenden Bereich kopieren
Passwortgeschützte Mappe öffnen, Daten kopieren, schliessen
Tabellenblatt kopieren und dreistellig fortlaufend numerieren
Jede zweite Zelle kopieren
Werte aus UserForm-ComboBox suchen und Fundstelle kopieren
Gruppe von Optionsfeldern kopieren und Makro zuweisen
Nicht zusammenhängenden Bereich in nächste Zeile kopieren
Wert aus UserForm-TextBox suchen und Fundstelle kopieren
Nur sichtbare Zellen in anderes Arbeitsblatt kopieren
Zeile in Abhängigkeit zur Eingabe in Blätter kopieren
Werte prüfen und kopieren
Bei Eintrag von X Zeile in andere Tabelle kopieren
Daten kopieren wenn kein Datum oder Datum > Heute
Blattinhalte dreier Blätter in neues Blatt kopieren
Kopieren und Umbenennen eines Blattes
Nur Zeilen mit bestimmtem Inhalt kopieren
Artikelnummern nach Kriterien suchen und Datensätze kopieren
Bild in zweites Blatt an gleiche Position kopieren
Alle Zeilen ohne Wert in vorgegebener Spalte kopieren
Bei Eintrag Zeile in 2. Blatt kopieren und Tabellen sortieren
Bildergruppe in anderes Blatt kopieren
Bei Eingabe Formel in der Nebenspalte nach unten kopieren
Auswahl in andere Arbeitsmappe kopieren, speichern, schließen
Begriff suchen und Fundzeilen in anderes Blatt kopieren
Aktive Zeile kopieren und löschen
Datensätze, die öfter als 3 mal vorkommen, kopieren
Den jeweils darüberliegenden Wert in Leerzellen kopieren
Alle Zeilen mit einem Suchbegriff in nächstes Blatt kopieren
Dateien listen und Blätter in neue Arbeitsmappe kopieren
Vorkommen von Zahlenreihen in Spalten
Funktion ANZAHL2 ohne ausgeblendete Spalten
Spaltenbreite anpassen
Spalten einer Mehrbereichsauswahl ausblenden.
Spaltennamen bestimmen
Spalten/Zeilen aus- und einblenden
Zeilen und Spalten über ein Drehfeld ein- und ausblenden
In einem Dialog ausgewählte Spalten drucken
Spalten bedingt summieren und Zellen formatieren
Abfrage der markierten Spalten
Wert aus Spalte C, wenn Spalten A und B Bedingungen erfüllen
Zeilen löschen, wenn in bestimmten Spalten keine Werte stehen
Schmale Spalten nebeneinander drucken
Werte in mehreren Spalten sortieren
Textreihe auf mehrere Spalten mit fester Seitenlänge verteilen
Spalten A und B vergleichen und Doppel in C listen
Nach Verlassen von Spalte B Spalte C markieren
Alle leeren Spalten ausblenden
Leere Zeilen und Spalten in ausgewähltem Bereich löschen
Alle leeren Zeilen und Spalten entfernen
Wert aus 2. UserForm-ComboBox-Spalte berechnen
Jede zweite Spalte drucken
Inhalt einer Zelle in Minutenabstand in einer Spalte auflisten
Über InputBoxes Zeile und Spalte auswählen und Ergebnis nennen
Daten in jeweils einer Spalte zweier Tabellen vergleichen
Letzte Zelle einer Spalte mit Inhalt aus geschlossener Arbeitsmappe
Spalte A mehrer Mappen in UserForm und aktives Blatt
Bis zur 12. Zeile Cursor nach unten, dann nächste Spalte ansetzen
Werte in Spalte A in Abhängigkeit des Werte in Spalte B eintragen
Tabellenblattinhalt unter Weglassung einer Spalte als Textdatei
Begriffe in ausgeblendeter Spalte suchen und Fundzeile markieren
Bei Eingaben in Spalte B in Spalte A den Maximalwert anzeigen
Überschriften aus Spalte C in Spalte D in den relevanten Bereich
Wertereihe nach dem Zufallsprinzip auf 4 Spalten verteilen
Maximalwert aus einem Bereich ermitteln und in Spalte A eintragen
Alle Zellen in Spalte A ohne Eintrag gelb hinterlegen
Abfrage zum Kopierbereich von Startzelle, Zeilen- und Spaltenanzahl
Werte aus Spalte A mit Werten aus Spalte B multiplizieren
Einlesen von Spaltenköpfen in UserForm-ListBox
Spalten ein-/ausblenden nach UserForm-ListBox-Vorgabe
Aus mehrspaltiger UserForm-ListBox Werte der 1. Spalte auslesen
Aktuellen Bereich in den Spalten A:F als Druckbereich
Alle Werte mit Punkt aus Spalte A in Spalte B
Zellauswahl in Abhängigkeit des Spaltenkopfes
UserForm-ListBox in Abhängigkeit zur aufrufenden Spalte füllen
Zeile einfügen und Formeln und Werte übernehmen
Datum in Fußzeile einfügen
Nach jedem 5. Zeichen ein Leerzeichen einfügen
Kommentare in geschützte Tabellen einfügen
Trennlinie in Kontextmenü einfügen
Zeilen oberhalb der markierten Zellen einfügen
Grafik einfügen, wenn Wert in A1 unter eine Grenze sinkt
Benutzerdefiniertes Symbol in neue Symbolleiste einfügen
Bei Doppelklick Textbox mit Text einfügen
Menüpunkte zum Einfügen und Löschen von Zeilen hinzufügen
Schaltflächen-Id-Nummer finden und Schaltfläche einfügen
Ordnernamen eines Verzeichnisses in Zelle einfügen
Ersten Absatz eines Word-Dokumentes in Tabelle einfügen
Wasserzeichen in Tabelle einfügen
Über Schaltfläche neues Blatt mit aktuellem Datum einfügen
Eingabe auf bereits vorhanden prüfen und, wenn nein, einfügen
Grafik in Abhängigkeit einer Zelleingabe einfügen
ComboBox für Monatsblattauswahl in Menüleiste einfügen
Über Doppelklick aus Preisliste in Bestellformular einfügen
Grafik nach Eingabe des Dateinamens einfügen
Zeilen einfügen, Werte und Bezüge zu den Werten eintragen
Wert der aktiven Spalte an nächste freie Position einfügen
Meldung nach Einfügen oder Löschen von Zeilen
Einfügen von Zeilen vor und nach Zellen mit Fettdruck
Mit ShortCut Textbaustein einfügen
Einfügen von Zeilen gem. Zellwerten
Einfügen eines Menüpunktes zum Erstellen eines Kommentars.
Einfügen von Werten in Abhängigkeit eines Blattnamens
Menüpunkt "Zellen einfügen..." im Kontextmenü deaktivieren
UserForm-TextBox-Inhalte mit Grafik-Hyperlinks einfügen
Vor dem Druck Zeilen einfügen und danach wieder löschen
Neuer Menüpunkt mit Kommentar-einfügen-Befehl
Überschriften gemäß Indizes in Tabelle einfügen
TextBox mit 12.000 Zeichen unterhalb einer Tabelle einfügen
Zahl suchen und an den Fundstellen Zeile einfügen
Seitenumbruch nach Zeilen mit bestimmtem Inhalt einfügen
Bei Gültigkeitsfeldauswahl Zeile einfügen
Nach Vergleich Kommentar einfügen
Neuer Menüpunkt zum Einfügen eines benutzerdefinierten Kommentars
Grafikdatei aus dem Internet downloaden und in Tabelle einfügen
Einfügen eines Sonderzeichens in einer UserForm-TextBox
Über InputBox zu ermittelnde Spaltenanzahl einfügen
Kopieren und Einfügen in UserForm ohne Excel-ShortCuts
Bei Doppelklick Grafik in Kommentar einfügen
Zeile einfügen, wenn 100er-Sprung