Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1052to1056
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
1052to1056
1052to1056
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

kopiere zelle wenn

kopiere zelle wenn
02.03.2009 17:32:20
patrick
Hallo,
ich bräuchte wiedermal die geschätzte Hilfe eines Forummitglieds.
Ich möchte mir gerne über ein Makro den Inhalt von Zelle H in ein anderes Tabellenblatt markieren wenn in der gleichen Zeile in Zelle C ein 1er drin steht.
und zwar für das gesamte Arbeitsblatt.
Also:
wenn in C84 = "1" dann copy H84 in anderes sheet oder
wenn in C60:C70 = "1" dann copy H60:H80 in anderes sheet.
vielen dank
patrick

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: kopiere zelle wenn
02.03.2009 18:06:25
Erich
Hallo Patrick,
die Bedingung und die Quelle hast du genau beschrieben, nicht aber das Ziel des Kopierens.
Nennen wir das "andere" Blatt mal "Ausgabe".
Dann stellt sich die Frage, in welche Zellen von "Ausgabe" H84 und H60:H80 kopiert werden sollen.
Und was soll geschehen, wenn in den Zielzellen schon etwas steht? Soll einfach überschrieben werden?
Außerdem:
Soll wirklich alles kopiert werden (Werte, Formeln, Formate)
oder sollen vielleicht nur die Werte übertragen werden?
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
AW: kopiere zelle wenn
03.03.2009 09:55:46
patrick
Hi Erich, danke für die angebotene Hilfe.
Am besten wäre es wenn in das Tabellenblatt "Ausgabe" nur die Werte kopiert werden und zwar in die ab Zellen B5.
also wenn C84 = "1" dann copy H84 in "Ausgabe" in B5 oder
wenn in C60:C70 = "1" dann copy H60:H70 in "Ausgabe" in B5:B15
Vielen dank
Patrick
Anzeige
AW: Rückfrage noch offen
03.03.2009 11:01:18
Erich
Hi Patrick,
eine Antwort steht noch aus:
Und was soll geschehen, wenn in der Zielzelle B5 (oder darunter oder rechts daneben) schon etwas steht?
Soll einfach überschrieben werden?
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
AW: Rückfrage noch offen
04.03.2009 11:09:21
patrick
hallo,
der inhalt der zelle kann dann einfach überschrieben werden.
danke für die hilfe!
patrick
AW: Rückfrage noch offen
04.03.2009 11:59:08
Erich
Hi Patrick,
probier diese beiden Prozeduren mal aus: 

Option Explicit
Sub KopiereHwennC1()
Dim lngZ As Long, varQ As Variant, lngVon As Long, lngAnz As Long
lngZ = 5                ' Zielzeile
With Sheets("Ausgabe")  ' Zielblatt
varQ = Application.Match(1, Columns(3), 0)
If IsNumeric(varQ) Then
lngVon = CLng(varQ)
lngAnz = 1
While Cells(lngVon + lngAnz, 3) = 1
lngAnz = lngAnz + 1
Wend
Cells(lngVon, 8).Resize(lngAnz).Select
.Cells(lngZ, 2).Resize(lngAnz) = Cells(lngVon, 8).Resize(lngAnz).Value
End If
End With
End Sub
Sub KopiereAlleHwennC1()
Dim lngZ As Long, varQ As Variant, lngVon As Long, lngAnz As Long
lngZ = 5                ' Zielzeile
With Sheets("Ausgabe")  ' Zielblatt
varQ = Application.Match(1, Columns(3), 0)
lngVon = 1
While IsNumeric(varQ)
lngVon = lngVon + lngAnz - 1 + CLng(varQ)
lngAnz = 1
While Cells(lngVon + lngAnz, 3) = 1
lngAnz = lngAnz + 1
Wend
Cells(lngVon, 8).Resize(lngAnz).Select
.Cells(lngZ, 2).Resize(lngAnz) = Cells(lngVon, 8).Resize(lngAnz).Value
lngZ = lngZ + lngAnz
varQ = Application.Match(1, _
Range(Cells(lngVon + lngAnz, 3), Cells(Rows.Count, 3)), 0)
Wend
End With
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Anzeige

299 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
Zeilen Kopieren mit Formeln u. Formaten
Lemmi

Hallo zusammen,
ich möchte einen Block (5Zeilen) am Ende einer Tabelle einfügen!
Diese Zeilen sollen mit ihren Formaten unf Formel Kopiert und am Ende der Leiste eingefügt werden!
Die Formeln sind in den Roten Zellen.
Die Zellen sonst sind bis auf Spalte A und B ohne Inhalt!
11.08.2008 14:11:35
Thread-ID: 1000856
5 Beiträge
String suchen und kopieren
Daniel

Hallo,
ich bin ein VBA Neuling und der Makroaufzeichner bringt mich nicht weiter, da dieser immer selectiert und aktiviert.
Ich brauche ein etwas allgemeineren Code.
Ok was ich habe sind folgende Inputdaten:
.............A......B.........C.............D
1
2............
12.08.2008 14:55:00
Thread-ID: 1001221
9 Beiträge
Anzeige
Tastenkombinaiton Format kopieren
erkoo

Wer kennt die Tastenkombination für Format kopieren und Format einfügen?
Danke erkoo
13.08.2008 16:28:20
Thread-ID: 1001592
3 Beiträge
Datei vom Laufwerk kopieren
Walter

Guten Morgen Allerseits,
ich möchte gern, mit einem Makro, eine Datei, z.b. "Muster.xls"vom Zentrallaufwerk "R",
in mein "C" Laufwerk kopieren.
Beide Verzeichnisse sind gleich.
Danach möchte ich die das die kopierte Datei direkt geöffnet wird.
mfg Walter MB
14.08.2008 08:43:00
Thread-ID: 1001718
4 Beiträge
Datei kopieren mit xcopy
Meinolf

Hallo und guten Morgen ans Excel Forum ,
möchte gerne mit dem Befehl xcopy Dateien kopieren in vba mit Hilfe einer Variablen, der ich vorher den Pfad und Dateinamen zugewiesen habe x77. Irgendwie scheint das aber nicht zu funktionieren. Hat jemand eine Idee ?
Sub kopieren_auf_LW_f_cf(...
15.08.2008 09:47:22
Thread-ID: 1002054
8 Beiträge
Makro, das automatisch Werte kopiert und entnimmt
Maxine

Hallo zusammen,
ich brauche für meine Diplomarbeit ein Makro, das folgendermaßen funktionieren soll:
Im Sheet "Conditional Expectations K2" soll es die Werte (x und t_x) von jeder ID in Zelle B6 bzw. B7 einsetzen. Für ID 1 wären das H2 und I2 in B6 und B7, für ID 2 H3 und I3 in B6 und...
15.08.2008 13:10:23
Thread-ID: 1002150
7 Beiträge
Tabellenblatt kopieren
Pia

Hallo zusammen,
ist es möglich von einem Tabellenblatt (Januar) auf mehrere Tabellenblätter kopieren aber in der Monat Reihenfolge?
z.B. Tabellenblatt 1 heisst Januar, TB 2 = Februar usw..bis Dezember?
Wie kann ich eine Datei mit dem Namen ihres Tabellenblattes versehen?
Danke.....
17.08.2008 16:16:41
Thread-ID: 1002424
2 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
1
4
8
10
2
3
7
6
1
6
3
4
16
11
14
5
4
2
4
2
4
1
8
8