Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1160to1164
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1160to1164
1160to1164
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellen mit Makro in unbearbeitete Zeilen kopieren

Zellen mit Makro in unbearbeitete Zeilen kopieren
emem2404
Hallo Leute,
ich möchte in eine Excel-Datenbank mit einem Makro einen Zellbereich (inkl. ausgeblendete Zellen) hinter alle Zeilen einkopieren bei denen dies noch nicht erfolgt ist.
Beispiel: In den Zellen A1 bis C3 stehen Daten, hinter die wurden in die Zellen D1 bis F3 die Zellen bereits einkopiert, wobei die Spalte E ausgeblendet ist. Nun kommen in den Zellen A4 bis C6 Daten hinzu und ich möchte mit einem Makro die "Kopierzellen" in die Zellen D4 bis F6 einfügen
Es muss also zuerst der Bereich lokalisiert werden, in dem die Spalte A (oder A bis C) befüllt ist und im bereich der Spalten D (bzw. D bis F) noch keine Daten eingefügt sind. In diesen Bereich müssen dann die Kopierzellen eingefügt werden (inkl. der ausgeblendeten Spalte)
Hat jemand einen Tipp dafür?
Danke!
Gruß
MARTIN

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

Betreff
Benutzer
Anzeige
AW: Zellen mit Makro in unbearbeitete Zeilen kopieren
14.06.2010 17:27:46
fcs
Hallo Martin,
ein paar Fragen:
1. Wo ist der zu kopierende Bereich (Kopierzellen) - Selektion/definierter Zellbereich?
2. Sind die Kopierzellen immer 3 Zeilen hoch? Jedenfalls liest sich deine Beschreibung so.
So einen Kopiervorgang zu programmieren ist kaum ein Problem.
Eine kleine Beispieltabelle mit Vorher/-Nachherdarstellung mit ca. 5 Datensätzen, die alle Varianten abdecken wäre sehr hilfreich.
Gruß
Franz
AW: Zellen mit Makro in unbearbeitete Zeilen kopieren
15.06.2010 08:08:27
emem2404
Hallo Franz,
hier ein beispiel: https://www.herber.de/bbs/user/70060.zip
Die Datenbank kennst Du ja schon!
Die Zeilen bis Spalte AE werden gefüllt und im Nachgang in den Spalten AF bis AU bearbeitet.
Im Beispiel muss der Kopierbereich, der in den Zellen AF3:AU3 steht, in alle Zeilen darunter einkopiert werden, die noch nicht bearbeitet sind.
Ich tue mich schwer damit!
Danke!
Gruß
MARTIN
Anzeige
AW: Zellen mit Makro in unbearbeitete Zeilen kopieren
15.06.2010 09:20:44
fcs
Hallo Martin,
hier ein entsprechendes Kopiermakro.
Gruß
Franz 
Sub KopierenSelektiv()
Dim lZeile As Long, wks As Worksheet, StatusCalc As Long
Dim Quellbereich As Range, ZielBereich As Range
'Bereich der zu prüfenden/kopierenden Spalten
Const Spalte_1 As Long = 32 'Spalte AF
Const Spalte_2 As Long = 47 'Spalte AU
Set wks = ActiveSheet 'Tabelle in der Kopieraktion erfolgen soll
With Application
.ScreenUpdating = False
StatusCalc = .Calculation 'Berechnen-Status merken
If StatusCalc  xlCalculationManual Then .Calculation = xlCalculationManual
End With
With wks
'Bereich mit zu kopierenden Daten/Formeln in Zeile 3
Set Quellbereich = .Range(.Cells(3, Spalte_1), .Cells(3, Spalte_2))
'Daten ab Zeile 4 bis zum Ende der Liste bearbeiten
For lZeile = 4 To .Cells(.Rows.Count, 1).End(xlUp).Row
Set ZielBereich = .Range(.Cells(lZeile, Spalte_1), .Cells(lZeile, Spalte_2))
'Prüfen, ob Zielbereich  leer
If Application.WorksheetFunction.CountA(ZielBereich) = 0 Then
Quellbereich.Copy Destination:=ZielBereich
End If
Next
'Tabellenblatt neu berechnen
.Calculate
End With
With Application
.ScreenUpdating = True
If StatusCalc  .Calculation Then .Calculation = StatusCalc
End With
End Sub

Anzeige
AW: Zellen mit Makro in unbearbeitete Zeilen kopieren
15.06.2010 11:02:34
emem2404
Hallo Franz,
das hat auf Anhieb funktioniert!
Selbst wenn in der Mitte Zeilen noch nicht eingefügt wurden werden die Zellen in den bereich kopiert.
Und wieder einmal vielen Dank dafür!
Gruß
MARTIN

313 Forumthreads zu ähnlichen Themen

Zellen kopieren (mit Formatierung)
Yves

Hallo zusammen,
ich möchte Daten von einem Tabellenblatt (Tabelle2) in ein anderes Tabellenblatt (Tabelle1) kopieren.
Habe dies bis anhin so gelöst:
sheets("Tabelle1").cells(1,1).value = sheets("Tabelle2").cells(5,1).value
Somit wurden einfach nur die Werte 'kopiert'. Nun würde...
08.08.2008 14:09:18
Thread-ID: 1000289
8 Beiträge
Anzeige
VBA-Formel um nur Berechnungswerte einzutragen
Matthias

Hallo Excel und Makrofans.
Ich habe folgende 2 Probleme. Erstmal zum ersten Problem:
Ich habe eine Datei in der ich Daten (Betriebsparameter [Druck, Temperatur usw.]) aus einem externen Programm einlese. Aus diesen Werten möchte ich gerne einige Werte Berechnen.
Zur Zeit mache ich d...
12.08.2008 08:51:00
Thread-ID: 1001053
6 Beiträge
Email per Hyperlink aus Zelle mit Formel
Frank

Hallo und schönen guten Morgen zusammen,
neues kleines Problem!
Ich möchte mit Hilfe eines Hyperlink per klick eine Email öffnen!
Soweit so gut und kein Problem!
Jetzt steht die Email Adresse aber nicht wirklich in der Zelle sondern diese hole ich mir per
Sverweises aus ein...
21.08.2008 09:22:45
Thread-ID: 1003367
3 Beiträge
Anzeige
Spalten mit Formeln mit 1 multiplizieren
Susanne99

Hallo, kriege hier per Datenbankverlinkung teilweise Zahlen eingespielt, die Excel nicht als Zahl, sondern als Text identifiziert. Dem kann ich abhelfen, indem ich den Zellinhalt jeweils mit 1 multipliziere. Wie kann ich die
"*1" in die Formeln in ganzen Spaltenreihen einfügen, ohne jeden...
31.08.2008 10:34:22
Thread-ID: 1006147
8 Beiträge
kopieren in eine zelle aus einer erstellten liste
Merle


Ich habe ein Promblem. Und zwar habe ich ein Formular erstellt indem es eine Liste gibt. Ich möchte nun den jeweils ausgesuchten Lieferanten in eine andere Zelle kopieren. Dies wäre kein Problem, wenn es immer die gleich Zelle wäre aber die Zelle unter der A16 Zelle ändert sich ja nach aus...
05.09.2008 13:01:59
Thread-ID: 1007653
4 Beiträge
1:1-Kopieren ohne dass Formeln "angepasst" werden
Wolfango

Hallo Experten!
Eine Spalte enthält lauter Formeln (alles relative Bezüge). Wenn ich diese komplette Spalte (markiert über Klick auf Spaltenkopf) in eine neue, unbenutzte Spalte kopiere werden (aufgrund der relativen Bezüge) ja stets alle Formeln automatisch angepasst (egal ob über das Menü...
17.09.2008 15:45:18
Thread-ID: 1010435
3 Beiträge
Textinhalte aus Zellen zusammenkopieren
zehetner

Liebe Profis,
ich habe die Ergebnisse einer Befragung in ein Excel-Sheet eingegeben, jeder Befragte in ein Registerblatt. Nun möchte ich die Antworten der Befragten, die in Textfeldern (immer in den selben, zB E145 stehen) gesammelt in eine neue Tabelle bringen.
Ziel ist es, die Antwort...
21.09.2008 18:29:25
Thread-ID: 1011343
2 Beiträge
Inhalt einer Tabelle in 2. Tabelle kopieren
Thomas

Hallo Excel Gemeinde,
Den Inhalt einer Tabelle, möchte ich in eine zweite Tabelle in der gleichen Arbeitsmappe kopieren, das funktioniert schon mal.
Die zu kopierenden Daten sollen aber am Ende der bereits vorhandenen Daten angefügt werden, bisher überschreibt es mir diese aber ;-(
...
24.09.2008 22:19:00
Thread-ID: 1012186
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
7
4
5
2
2
7
3
2
1
2
9
5
3
2
2
6
4
2
3
5
6
6
6
3
2