Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zelle finden und dann gesamte Zeile der Zelle kopieren

Forumthread: Zelle finden und dann gesamte Zeile der Zelle kopieren

Zelle finden und dann gesamte Zeile der Zelle kopieren
08.08.2024 15:21:09
Andreas0815
Hallo zusammen,
ich bräuchte Eure Hilfe als Neuling, habe zwar zu diesem Thema schon einige Sachen gefunden, bringe sie aber für mein Problem nicht wirklich zusammen, wäre klasse wenn Ihr mir helfen könntet.
Mein Tabellenblatt A ist wie ein Formular, es werden immer für den Vortag bestimmte Daten (70 Werte) eingegeben. Die Felder sind lose verteilt über das Tabellenblatt.
Deshalb sammle ich die Werte über Formeln in Tabellenblatt B komprimiert, damit die Werte für einen ganzen Tag in einer Zeile beieinander sind. Spalte A der Datumsverlauf und dann Spaltenweise die Werte rüber.
Wenn die Eingabe für den Tag fertig ist, kopiere ich immer im Tabellenblatt B die ganze Zeile und füge sie als Werte ein, damit ich die Werte behalte und diese nicht verschwinden wenn ich am nächsten Tag das Formular neu befülle.
Diese Aufgabe würde ich gerne automatisiert per VBA lösen, aber es gibt leider ein paar Fallstricke für die mein äußerst bescheidenes VBA Wissen nicht ausreicht.
Folgendes soll also passieren:
- Wenn in [Tabellenblatt B - Spalte A] das Datum aus [Tabellenblatt A - Feld A8] (das ist das Eingabefeld für das jeweilige Datum der Formularerfassung) gefunden wird, kopiere die gesamte Zeile des gefundenen Feldes in Tabellenblatt B und füge sie als Werte wieder ein.
- Oder alternativer Ansatz: wenn das Datum gefunden wird, kopiere innerhalb der Zeile von dem gefundenen Feld die nächsten 70 Spalten und füge sie als Werte ein
- Das darf aber nur passieren wenn das Datum im [Tabellenblatt A - Feld A8] kleiner als heute ist.
Vielen Dank im Voraus für Eure Hilfe und Mühen.
Viele Grüße Andreas
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Zelle finden und dann gesamte Zeile der Zelle kopieren
08.08.2024 15:46:33
UweD
Hallo

Hier wäre ein Musterdatei angebracht.

LG UweD
AW: Zelle finden und dann gesamte Zeile der Zelle kopieren
08.08.2024 16:01:36
Andreas0815
Hallo UweD,

sehr gerne, hab die echten Daten rausgenommen und die Beschriftungen stimmen nicht mehr, aber das dürfte egal sein.

https://www.herber.de/bbs/user/171551.xlsm
Anzeige
AW: Zelle finden und dann gesamte Zeile der Zelle kopieren
08.08.2024 16:41:30
UweD
Hallo

So müsste es gehen.
Pack das aber in ein Normales Modul und weise das Makro dann dem Button zu.

Sub Kopieren()

Dim TbR As Worksheet, TbH As Worksheet, Zeile As Long
Dim Datum As Date
Set TbR = Sheets("Rohdaten")
Set TbH = Sheets("HT")

Datum = TbR.Range("A8")

If Datum Date Then
Zeile = WorksheetFunction.CountIf(TbH.Columns(1), CLng(Datum)) 'ist das Datum vorhanden
If Zeile > 0 Then 'in welcher Zeile
Zeile = WorksheetFunction.Match(CLng(Datum), TbH.Columns(1), 1) 'in welcher Zeile ist das Datum vorhanden
With TbH.Rows(Zeile)
.Value = .Value 'Formel in Wert
End With
MsgBox "Daten für " & Datum & " fixiert"
Else
MsgBox "Datum nicht gefunden"
Exit Sub
End If
Else
MsgBox "Datum zu Jung"
End If
End Sub


LG UweD
Anzeige
AW: Zelle finden und dann gesamte Zeile der Zelle kopieren
08.08.2024 17:16:24
Andreas0815
Hallo UweD,

Wahnsinn ist das elegant ! Wirklich vielen vielen Dank für die schnelle Hilfe, es funktioniert einfach perfekt.

Beste Grüße Andreas
AW: Zelle finden und dann gesamte Zeile der Zelle kopieren
09.08.2024 11:05:23
UweD
Hallo

eine Zeile solltest du noch ergänzen, sonst stimmt deine Isformel Kennzeichnung nicht..


...

With TbH.Rows(Zeile)
.Cells(1, 3).Value = False ' Keine Formel mehr !!!!!!!!!!!!!!!!!!!!!!!!
.Value = .Value 'Formel in Wert
End With
MsgBox "Daten für " & Datum & " fixiert"
...


LG UweD
Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige