Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1524to1528
1524to1528
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

per VBA Daten sichern

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

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
Anzeige
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
;

Forumthreads zu verwandten Themen

vba-Datenexport nach Excel2007 -Array mit 70000 DS
Tim

Hallo,
ich habe einen Datenexport aus einem Programm nach Excel in vba. Das ganze funktioniert soweit ganz gut.
Nun möchte ich jedoch nicht, das sjede Zeile aus meinem Programm exportiert wird, daher gibt es ein Array mit entsprechenden Datensätzen: Entweder eine 1 (steht für Export der...
20.08.2008 08:57:00
Thread-ID: 1003084
2 Beiträge
VBA-Code - Datei speichern unter; Schleife
Schulze

Halli Hallo,
ich habe eine kurze frage. und war geht es darum, dass die spalte a untersucht werden sollen. es sollen alle werte der tabelle (zeilen) kopiert werden, bis in der spalte a der wert 0 ist.
Im Folgenden habe ich eine Beispieldatei drangehangen. https://www.herber.de/bbs/user/...
21.08.2008 10:57:00
Thread-ID: 1003407
2 Beiträge
Excel: per VBA Kopieren, Quelldatenlöschen
Bolle

Hallo, Ich bin zwar ein alter Sack, aber neu hier.
Meine Frage:
In Spalte C2 bis H100 habe ich Datensätze weche Ich durch Doppelklick auf Zelle
(z.B. C33) die Zeile C bis H nach K5:P5 kopieren möchte. Danach sollten die kopierten
Zellen gelöscht werden. Durch nachrücken der u...
23.08.2008 14:14:40
Thread-ID: 1004109
3 Beiträge
Abgleichen von Daten per VBA
Daten

Hallo Forum,
ich möchte gerne Daten von einem Tabellenblatt (Hilfstabelle) in eine anderes Tabellenblatt (Terminierung) überrtagen. Hierbei soll das Makro schauen, ob der Datensatz schon vorhanden ist.
Wenn ja, dann sollen die Spalten aktualisiert werden.
Wenn nicht, dann sollen...
09.09.2008 10:34:00
Thread-ID: 1008354
5 Beiträge
Vergleich von Daten per VBA
Daten

Hallo Forum,
ich habe gestern nette Hilfe bezüglich eines VBA Problems erhalten.
Bei der Testdatei funktionierte das Makro dann auch prima, in der Originaldatei nicht. Ich habe es angepaßt, weiß aber nun nicht, wo der Fehler in der Syntax liegt.
Problem:
Das Makro verschrei...
10.09.2008 08:48:00
Thread-ID: 1008629
3 Beiträge
Leseschutz für Datei, mit VBA aufheben
Iro

Hallo,
folgendes Problem: ich will zwischen zwei Dateien Daten austauschen. Die A-datei soll grundsätzlich PW-geschützt werden, und zwar so, dass der User weder etwas verändern kann noch sie überhaupt öffnen. Nur wenn der User aus der B-datei mit der vorgesehenen Form Daten überträgt, soll...
21.10.2008 14:18:57
Thread-ID: 1017997
4 Beiträge
VBA DateFormat zu String convertieren
MBorn

Guten Morgen,
weiß jemand, wie man ein Datum, das im DateFormat (als Zahl) vorliegt
in das Textformat (yyyy-mm-dd) konvertiert. Sodaß das Ergebnis ein Text ist?
sodaß beispielsweise aus der Zahl 39868 das Text-Datum "2009-02-24" wird?
Herzlichen Dank,
Born
18.03.2009 12:59:43
Thread-ID: 1061376
12 Beiträge
VBA: Erste Seite einer Datei nicht mitdrucken
Jonathan

Hallo zusammen,
ich habe folgendes Problem, welches mittels eines Makros gelöst werden muss:
Ich möchte in eine Datei ein Makro einbauen, welches verhindert, dass die erste Seite mitgedruckt wird.
Das Makro sollte nach dem klick auf die Druckfunktion starten.
Da die Datei späte...
17.04.2009 11:15:57
Thread-ID: 1069277
5 Beiträge
Anzeige
VBA-Makro zum Datenübertrag zwischen Excel-Sheets
mctapt

Liebe VBA-Freunde,
ich muss auf der Arbeit ein Marko programmieren, mit dem sich Inhalte eines Sheets automatische beim öffnen der Datei in ein anderes übertragen lassen.
Die Idee íst dahinter:
Mein Chef will als Kontrolle der Berater sehen, mit wem sie so innerhalb der Woche te...
29.06.2009 21:19:08
Thread-ID: 1085193
7 Beiträge
Anzeige
VBA-Datenmaske Änderungen speichern
Kay

Hi, habe folgendes Problem und komme einfach nicht weiter und versteh es nicht.
Habe eine Userform, in der einige Daten zu einem Kunden erfasst werden und in einer Tabelle hinterlegt werden. Das läuft super ! Aber nun möchte ich mit einer 2'ten Userform die Daten auch bearbeiten lassen.
...
03.07.2009 09:58:18
Thread-ID: 1086101
3 Beiträge
VBA-Exceldatei unter Excel 2003 und 2007 nutzen
Martin

Hallo,
ich mache mir den Umstieg von Excel 2003 auf 2007 ziemlich schwer, will aber den Anschluss nicht verpassen und daher auf einem PC gerne unter Excel 2007 arbeiten.
Meine Frage: Ich arbeite sehr intensiv mit einer Exceldatei, in der es zahlreiche benutzerdefinierte über VBA erzeugt...
14.07.2009 12:29:24
Thread-ID: 1088399
5 Beiträge
VBA-Datenübernahme schlägt fehl
Sascha

Hallo liebe Excel-Profis,
in einer Datenbank nutze ich zum Auflisten aller gespeicherten Datensätze folgenden VBA-COde:
Private Sub Worksheet_Activate() 'Zielblatt muss immer die höchste Nr. haben! Dim i As Long Dim j As Long On Error GoTo Fehler Application.EnableEvents = False Applica...
12.09.2009 20:02:16
Thread-ID: 1102222
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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