Das Archiv des Excel-Forums

Zellen kopieren

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Zellen kopieren
von: junny

Geschrieben am: 07.10.2003 16:28:32

Hai Leute,
schon wIeder ein Problem
ich füge mittels Makro Zeilen aus anderen Tabellen ins active Sheet.
Die Zeilen werden immer Unterhalb eingefügt.
Dadurch werden die darin enthaltenen Verweise hochgezählt. Das will ich NICHT!!

Bsp.:
Ich fülle eine Zelle mit 1 aus schnappe diese unten rechts, ziehe Sie nach unten, Excel füllt nun bekanntlich automatisch mit 2, 3,... aus.
Klar., sont geht das mit den $$ Zeichen, aber was mache ich bei automatischer Füllung der Zellen??

Hoffe Ihr wisst was ich meine, Gruss junny
Bild


Betrifft: AW: Zellen kopieren
von: Folker
Geschrieben am: 07.10.2003 16:38:07

Hallo,

das unterbindet man normalerweise durch halten der STRG Taste. In VBA wäre der Unterschied:
Selection.AutoFill Destination:=Range("A1:A26"), Type:=xlFillDefault
Selection.AutoFill Destination:=Range("A1:D26"), Type:=xlFillCopy

Gruss Folker


Bild


Betrifft: AW: Zellen kopieren
von: junny
Geschrieben am: 07.10.2003 17:05:04

Hai Folker,
ja, aber hast Du eine Idee wo ich die Anweisung im folgendem Code unterbringen kann?


Sub ImportZeile()
Dim fs As FileSearch
Dim lRow As Long
Dim iCounter As Integer
'Application.ScreenUpdating= false
Set fs = Application.FileSearch
lRow = 2
'lRow = InputBox("Zeilen Nr. angeben")
With fs
.Filename = "*.xls"
.LookIn = "C:\Dokumente und Einstellungen\vw\Eigene Dateien\Test\Zeitenliste"   'Range("A20").Value
.Execute
For iCounter = 1 To .FoundFiles.Count
lRow = lRow
Workbooks.Open .FoundFiles(iCounter)
Sheets("Zeiten").Select
ActiveSheet.Range("2:2").Copy ThisWorkbook.Worksheets(1).Cells(lRow, 1)
lRow = lRow + Range("2:2").Rows.Count
ActiveWorkbook.Close savechanges:=False
Next iCounter
End With
End Sub


Gruss junny


Bild


Betrifft: AW: Zellen kopieren
von: Folker
Geschrieben am: 07.10.2003 17:45:33

Ich denke mal es liegt an der Zeile
ActiveSheet.Range("2:2").Copy ThisWorkbook.Worksheets(1).Cells(lRow, 1)
in der du kopierst.
benutze einfach einmal die normale Kopiermethode nur für Werte
ActiveSheet.Range("2:2").Copy
...Cells(lRow, 1).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

die du auch mit dem Macrorecorder aufzeichnen kannst. Dann sollte es eigentlich klappen.

Gruss Folker


Bild


Betrifft: AW: Zellen kopieren
von: junny
Geschrieben am: 07.10.2003 19:47:42

Hai Folker
Danke für Deine Mühe, jedoch geht es leider nicht (Paste Spezial hatte ich auch schon dazu kopiert aber Syntaxfehler und dgl.

Falls Du noch einen Tipp hast, gerne!!

Gruss junny


Bild


Betrifft: AW: Zellen kopieren
von: Folker
Geschrieben am: 07.10.2003 23:57:13

Wüsste nicht was hieran nicht funktionieren sollte. Bei mir läufts einwandfrei. Mit DisplayAlerts = false kannst du noch die Abfragen unterbinden.


Sub ImportZeile1()
Dim fs As FileSearch
Dim lRow As Long
Dim iCounter As Integer
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set fs = Application.FileSearch
lRow = 2
'lRow = InputBox("Zeilen Nr. angeben")
With fs
.Filename = "*.xls"
.LookIn = "C:\Dokumente und Einstellungen\vw\Eigene Dateien\Test\Zeitenliste"   'Range("A20").Value
.Execute
For iCounter = 1 To .FoundFiles.Count
lRow = lRow
Workbooks.Open .FoundFiles(iCounter)
Sheets("Zeiten").Select
ActiveSheet.Range("2:2").Copy
ThisWorkbook.Worksheets(1).Cells(lRow, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
lRow = lRow + Range("2:2").Rows.Count
ActiveWorkbook.Close savechanges:=False
Next iCounter
End With
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub



Bild


Betrifft: Folker, DANKE
von: junny
Geschrieben am: 08.10.2003 07:01:37

Irgendwie war ich da verblendet, Fakt Du hast recht es passt!
Nochmals Danke für Deine Hilfe!!

Gruss junny


 Bild

Excel-Beispiele zum Thema " Zellen kopieren"

Makros in Abhängigkeit vom Zellennamen aufrufen download Zellen auf Kommentar überprüfen download
Spalten bedingt summieren und Zellen formatieren download Text aus Textbox in Zellen aufteilen download
Zellen vergleichen und markieren download Zählen formatierter Zellen download
Daten aus Textdatei gezielt in Zellen übernehmen download Zellen verbinden und trennen download
Zellen bei Minuswerten schraffieren download Zeilen oberhalb der markierten Zellen einfügen download
Drei Zellen rechts der aktiven Zelle markieren download Zellen vom Druck ausschließen download
Zellenwert als Autofilter-Kriterienwert download Nur Zellen mit Inhalt in ComboBox listen download
Verweise auf Zellen in geschlossener Arbeitsmappe erstellen download Zellen nach Schriftfarbe summieren download
Füllen aller leeren Zellen mit einem Platzhalter download Alle Zellen mit der #BEZUG!-Fehlermeldung auswählen download
Zeilen mit Zellen mit rotem Hintergrund ausblenden download Anzahl der gelb hinterlegten Zellen ermitteln download
Editieren von Zellen durch DoppelKlick verhindern download Nach Eingabe eines Kurzbegriffes Werte in Nebenzellen eintragen download
Auswahl aus Tabellenblatt-ListBox in Zellen übernehmen download Anzahl von Zellen mit einer bestimmten Hintergrundfarbe ermitteln download
Werte in Zellen mit vorgegebener Hintergrundfarbe addieren download Prüfung, ob Parallelzellen übereinstimmen download
Zellen verbinden, mehrzeiligen Text eingeben und Höhe anpasssen download Kofpzeilenwerte angekreuzter Zellen multiplizieren download
Zellen über Tabellenblatt-Schaltfläche multiplizieren download Wert aus A1 in mehrere Zellen übernehmen download
Zellen für Eintrag auswählen und UserForm-ListBox aufrufen download Alle Zellen in Spalte A ohne Eintrag gelb hinterlegen download
Nur sichtbare Zellen addieren download Zellinhalte vor dem Verbinden der Zellen zusammenfassen download
Blatt auswählen und Zellen nacheinander drucken download Leere und Zellen mit 0 aus-/einblenden download
Zugriff auf Zellen unter Verwendung eines Bereichsnamens download Nur die sichtbaren Zellen eines AutoFilter-Bereiches einlesen download
Zellen mit Hintergrundfarbe in neuer Arbeitsmappe auflisten download Eingaben in Abhängigkeit von dritten Zellen zulassen/verhindern download
Prüfung, welche Zellen nach Öffnen verändert wurden download Arbeitsmappe nach Ausfüllen der Eingabezellen auf ReadOnly setzen download
Nur sichtbare Zellen in anderes Arbeitsblatt kopieren download Zeilenhöhe bei verbundenen Zellen anpassen download
Einfügen von Zeilen vor und nach Zellen mit Fettdruck download Bei Zelleingabe andere Zellen füllen download
Dialogaufruf, wenn zwei Zellen Werte enthalten download Gültigkeitsliste ohne Lerrzellen download
Menüpunkt "Zellen einfügen..." im Kontextmenü deaktivieren download Zellen verbinden, ohne dass Werte verlorengehen download
Blätter in andere Arbeitsmappen kopieren download Module von Mappe zu Mappe kopieren download
Arbeitsblatt 40 mal kopieren download Schriftgröße beim Kopieren verdoppeln download
Beim Kopieren auch die Zeilenhöhe und Spaltenbreite übernehmen download Tabellencode nach Kopieren des Blattes löschen download
Arbeitsmappe blitzschnell kopieren download VBE-Namen der Blattmodule beim Kopieren festlegen download
Blattinhalt von einer zur anderen Arbeitsmappe kopieren download Formel bis zur letzten Zeile der Nebenspalte kopieren download
Datei kopieren, wenn noch nicht vorhanden download Zeilenweise von Blatt zu Blatt kopieren download
Erste Druckseite in eine neue Arbeitsmappe kopieren download Durch DoppelKlick Spalte in zweites Arbeitsblatt kopieren download
Teilergebnisse einer Serie von Tabellen in anderes Blatt kopieren download Bei Eintrag in Spalte A aktuelle Zeile kopieren download
Filtern und Kopieren download Zeile mit aktiver Zelle in anderes Blatt kopieren download
Zeilen in Abhängigkeit des Wertes in Spalte A kopieren download Einen von einer Schlüsselziffer abhängigen Bereich kopieren download
Vorgegebene Anzahl von Einträgen in 2. Blatt kopieren download Über InputBox festzulegenden Bereich kopieren download
Passwortgeschützte Mappe öffnen, Daten kopieren, schliessen download Tabellenblatt kopieren und dreistellig fortlaufend numerieren download
Jede zweite Zelle kopieren download Werte aus UserForm-ComboBox suchen und Fundstelle kopieren download
Gruppe von Optionsfeldern kopieren und Makro zuweisen download Nicht zusammenhängenden Bereich in nächste Zeile kopieren download
Wert aus UserForm-TextBox suchen und Fundstelle kopieren download Zeile in Abhängigkeit zur Eingabe in Blätter kopieren download
Werte prüfen und kopieren download Bei Eintrag von X Zeile in andere Tabelle kopieren download
Daten kopieren wenn kein Datum oder Datum > Heute download Blattinhalte dreier Blätter in neues Blatt kopieren download
Kopieren und Umbenennen eines Blattes download Nur Zeilen mit bestimmtem Inhalt kopieren download
Artikelnummern nach Kriterien suchen und Datensätze kopieren download Bild in zweites Blatt an gleiche Position kopieren download
Alle Zeilen ohne Wert in vorgegebener Spalte kopieren download Bei Eintrag Zeile in 2. Blatt kopieren und Tabellen sortieren download
Bildergruppe in anderes Blatt kopieren download Bei Eingabe Formel in der Nebenspalte nach unten kopieren download
Auswahl in andere Arbeitsmappe kopieren, speichern, schließen download Begriff suchen und Fundzeilen in anderes Blatt kopieren download
Aktive Zeile kopieren und löschen download Datensätze, die öfter als 3 mal vorkommen, kopieren download
Den jeweils darüberliegenden Wert in Leerzellen kopieren download Alle Zeilen mit einem Suchbegriff in nächstes Blatt kopieren download
Dateien listen und Blätter in neue Arbeitsmappe kopieren download