Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 12:41:11
Vielleicht Onur ? Leider werden nicht alle Monate
16.04.2024 12:08:33
Zelle/Spalte bestimmten Wert in Kopfzeile zuordnen
16.04.2024 12:01:17
Dynamische Liste generiert aus mehreren Vorgagen
16.04.2024 11:48:22
Blatt in HTML exportieren wenn Checkbox aktiv ist
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1448to1452
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
1448to1452
1448to1452
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kopien in definierte Bereiche gem. Suchkriterium

Kopien in definierte Bereiche gem. Suchkriterium
21.09.2015 20:29:54
Stefan
Hallo,
ich benötige ein Marko, dass anhand eines Suchkriteriums in Zelle
DokB.In!H1 einen Wertebereich von DokB.In nach Calc transferiert (vgl.
Upload).
Ist Projekt 1 gewählt, sollen die Werte in Tabelle "Calc" in die Maske für
Projekt 1 kopiert werden. Falls Projekt 2 gewählt ist, dann entsprechend in
die Maske für Projekt 2. Alle Werte sollen so eingefügt werden, dass dabei
die übrigen Masken nicht (!) überschrieben werden.
Für die Tabelle "Calc" gibt es 2 Alternativen. Die Wunschvorstellung: Jeder
Textblock ist durch nur eine Zeile vom nächsten getrennt. Einfacher wird es
natürlich, wenn der Zeilenabstand aus DokB.In beibehalten wird, da muss nur
1 Block kopiert werden. Das wäre auch OK.
Danke Stefan
https://www.herber.de/bbs/user/100307.xlsm

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kopien in definierte Bereiche gem. Suchkriterium
22.09.2015 06:35:37
hary
Moin Stefan 
Dim zelle As Range
Set zelle = Worksheets("Calc").Rows("2:2").Find(What:=Worksheets("DokB.In").Range("H1"), LookIn: _
=xlValues, lookat:=xlWhole) '--sucht die Projektzelle
If Not zelle Is Nothing Then  '--wenn vorhanden
zelle.Offset(1, 0).Value = Worksheets("DokB.In").Range("H39").Value
zelle.Offset(21, 0).Value = Worksheets("DokB.In").Range("H75").Value
'--usw.
'die erste Zahl in Offset gibt an wieviel Zeilen unterhalb von Zeile 2 eingetragen wird
End If

den Rest bekommst du hin.Einfach ausprobieren.
gruss hary

Anzeige
AW: Kopien in definierte Bereiche gem. Suchkriterium
22.09.2015 09:56:13
Stefan
Hallo Harry,
vielen Dank für diese Lösung. Gelingt erstklassig.
Stefan

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige