kopiere zelle wenn

Forumthread: 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

AW: kopiere zelle wenn

02.03.2009 18:06:25

Erich
AW: kopiere zelle wenn

03.03.2009 09:55:46

patrick
AW: Rückfrage noch offen

03.03.2009 11:01:18

Erich
AW: Rückfrage noch offen

04.03.2009 11:09:21

patrick
AW: Rückfrage noch offen

04.03.2009 11:59:08

Erich

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

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

Beliebteste Forumthreads (12 Monate)

Forumthread: kopiere zelle wenn

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread