Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1524to1528
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
Inhaltsverzeichnis

per VBA Daten sichern

per VBA Daten sichern
20.11.2016 20:33:20
Fritz
Hallo Forumsbesucher,
ich bitte um Eure Unterstützung bei folgendem Vorhaben:
Ich möchte - falls in der Tabelle "Daten" in Zelle A3 und in Zelle C3 jeweils die 0 steht folgende Daten aus der Tabelle "Daten" in der Tabelle "Protokoll" wie folgt sichern:
In die Spalte B der Tabelle "Protokoll" den Inhalt (Wert nicht Formel)aus Daten!C66 in Spalte C der Tabelle "Protokoll" den Inhalt aus Daten!C67 und in den Spalten D bis M der Tabelle Protokoll den Inhalt aus Daten!D6:M15 und zwar in/ab der Zeile, in der in der Spalte A der Tabelle "Protokoll" die größte Zahl steht.
Beispiel: Steht die größte Zahl in Protokoll!A11 sollte
Daten!C66 nach Protokoll!B11
Daten!C67 nach Protokoll!C11
Daten!D6:M15 nach Protokoll!D11:M20
Ich hoffe, mein Anliegen verständlich dargelegt zu haben und bedanke mich im Voraus für Eure Unterstützung.
mfg
Fritz

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

Betreff
Datum
Anwender
Anzeige
AW: per VBA Daten sichern
20.11.2016 21:04:06
Gerd
Hallo Fritz!
Sub Proto()
Dim wsD As Worksheet, wsP As Worksheet, lngZ As Long
Set wsD = ThisWorkbook.Worksheets("Daten")
Set wsP = ThisWorkbook.Worksheets("Protokoll")
If wsD.Cells(3, 1).Text = "0" And ws.Cells(3, 3).Text = "0" Then
lngZ = Application.Match(Application.Max(wsP.Columns(1)), wsP.Columns(1), 0)
wsP.Cells(lngZ, 2).Value = wsD.Cells(66, 3).Value
wsP.Cells(lngZ, 3).Value = wsD.Cells(67, 3).Value
wsP.Cells(lngZ, 4).Resize(10, 10).Value = wsD.Cells(6, 4).Resize(10, 10).Value
End If
Set wsD = Nothing: Set wsP = Nothing
End Sub
Gruß Gerd
Anzeige
AW: per VBA Daten sichern
20.11.2016 21:22:08
Fritz
Hallo Gerd,
vielen Dank für Deine Unterstützung.
Es erscheint folgende Fehlermeldung:
Laufzeitfehler 424
Objekt erforderlich
dabei wird folgende Zeile im Code markiert:
If wsD.Cells(3, 1).Text = "0" And ws.Cells(3, 3).Text = "0" Then
Gruß
Fritz
AW: per VBA Daten sichern
20.11.2016 21:22:08
Fritz
Hallo Gerd,
vielen Dank für Deine Unterstützung.
Es erscheint folgende Fehlermeldung:
Laufzeitfehler 424
Objekt erforderlich
dabei wird folgende Zeile im Code markiert:
If wsD.Cells(3, 1).Text = "0" And ws.Cells(3, 3).Text = "0" Then
Gruß
Fritz
Fehler gefunden
20.11.2016 21:31:28
Fritz
Hallo Gerd,
hab den Fehler gefunden:
ws.Cells(3, 3).Text
muss wsD.Cells(3, 3).Text
heißen, war also nur ein Tippfehler.
Funktioniert super, hast mir wieder einmal sehr geholfen.
Nochmals herzlichen Dank
und viele Grüße
Fritz
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige