Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1424to1428
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
1424to1428
1424to1428
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabelle füllen und fortschreiben.

Tabelle füllen und fortschreiben.
19.05.2015 16:25:50
Ralf
Hallo zusammen,
die ewige Baustelle "Zeiterfassung".
Ich möchte aus der Arbeitsmappe "Zeiterfassung" die Werte in die Arbeitsmappe "Auswertung" übertragen und fortschreiben.
Es müssen zwei Arbeitsmappen sein, weil ich die Arbeitsmappe "Zeiterfassung" immer nach der Eingabe ohne zu speichern schließen lassen werde (per Schaltfläche 1). Dieser Button bewirkt noch ein paar andere Dinge, aber eines habe ich noch nicht raus:
Wie lasse ich mit Betätigung des Buttons die Werte der Felder F7, F10, F13 und H7 automatisch in die Felder A*, B*, C*, D* der Arbeitsmappe "Auswertung" schreiben und zwar so, dass mit jedem Eintrag eine neue Zeile begonnen wird, sich die Liste also automatisch nach unten hin füllt? Und dann sollte die Arbeitsmappe "Auswertung" idealerweise automatisch gespeichert und geschlossen werden (das bekomme ich aber wahrscheinlich ohne Hilfe hin).
Danke vorab
Ralf
https://www.herber.de/bbs/user/97720.xlsx
https://www.herber.de/bbs/user/97721.xlsx

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabelle füllen und fortschreiben.
19.05.2015 20:43:05
Nepumuk
Hallo,
teste mal:
Option Explicit

Public Sub Daten_übernehmen()
    Dim objWorkbook As Workbook
    Dim lngNextEmptyRow As Long
    If Not IsEmpty(Range("F7").Value) And Not IsEmpty(Range("F10").Value) And _
        Not IsEmpty(Range("F13").Value) And Not IsEmpty(Range("H7").Value) Then
        Set objWorkbook = Workbooks.Open(Filename:="C:\Auswertung.xlsx") 'anpassen !!!!!
        If Not objWorkbook.ReadOnly Then
            With objWorkbook.Worksheets("Auswertung") 'anpassen !!!!!
                lngNextEmptyRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
                .Cells(lngNextEmptyRow, 1).Value = Range("F7").Value
                .Cells(lngNextEmptyRow, 2).Value = Range("F10").Value
                .Cells(lngNextEmptyRow, 3).Value = Range("F13").Value
                .Cells(lngNextEmptyRow, 4).Value = Range("H7").Value
            End With
            Call objWorkbook.Close(SaveChanges:=True)
            Call ThisWorkbook.Close(SaveChanges:=False)
        Else
            Call MsgBox("Daten können nicht gespeichert werden." & vbLf & vbLf & _
                "Bitte nochmal versuchen.", vbExclamation, "Hinweis")
        End If
    Else
        Call MsgBox("Bitte erst alle Felder audsfüllen.", vbExclamation, "Hinweis")
    End If
End Sub

Gruß
Nepumuk

Anzeige
AW: Tabelle füllen und fortschreiben.
20.05.2015 10:47:05
Ralf
Hallo Nepumuk,
leider nein, leider gar nicht. :-)
Ich habe den Pfad und den Namen der Tabelle angepasst, erhalte auch keine Fehlermeldung. Aber es findet keine Füllung der Tabelle "Auswertung" in der Arbeitsmappe "Auswertung.xlsx" statt.
Gruß
Ralf

AW: Tabelle füllen und fortschreiben.
20.05.2015 10:55:13
Nepumuk
Hallo,
ooooooooops. Ändere mal die vier Zeilen zum Übertragen der Daten so:
.Cells(lngNextEmptyRow, 1).Value = ThisWorkbook.Worksheets("EIngabe").Range("F7").Value
.Cells(lngNextEmptyRow, 2).Value = ThisWorkbook.Worksheets("EIngabe").Range("F10").Value
.Cells(lngNextEmptyRow, 3).Value = ThisWorkbook.Worksheets("EIngabe").Range("F13").Value
.Cells(lngNextEmptyRow, 4).Value = ThisWorkbook.Worksheets("EIngabe").Range("H7").Value

Tabellenname anpassen !!!
Gruß
Nepumuk

Anzeige
AW: Tabelle füllen und fortschreiben.
20.05.2015 11:07:15
Ralf
Leider auch nicht.
Ich habe aber dazu zwei Fragen (ich bin ja Anfänger...);
Zum Einen liegt es wahrscheinlich nur an der Aktion, die ich irgendwie definieren muss (Click oder ähnliches), zum Anderen soll ich in die 4 Zeilen die ZIEL Tabelle, oder die QUELL Tabelle eintragen? Quelle wäre ja "Zeiterfassung" und Ziel "Auswertung".
Anbei mal der Code, wie ich ihn jetzt habe. NICHT LACHEN! :-)
Userbild

AW: Tabelle füllen und fortschreiben.
20.05.2015 11:51:21
Nepumuk
Hallo,
die Tabelle heißt "Zeiterfassung" und nicht Auswertung. Du musst der Schaltfläche doch nur per Rechtsklick das Makro zuweisen.
Gruß
Nepumuk

Anzeige
AW: Tabelle füllen und fortschreiben.
20.05.2015 12:13:06
Ralf
Hallo Nepumuk,
danke, das mit der "Zeiterfassung" habe ich eingetragen.
Aber das zuweisen des Makros mit dem Rechtsklick überfordert mich. Ich sagte ja, ich bin absoluter Anfänger.
Wo muss ich rechts klicken? Im Visual Basic, oder auf den Button im Frontend? Wenn ich da rechts klicke, passiert gar nichts.
Wenn ich im Visual Basic rechts klicken soll, dann wo genau? Und was dann auswählen, um zuzuweisen?
Bin ich anstrengend? :-) Tut mir leid.

AW: Tabelle füllen und fortschreiben.
20.05.2015 12:31:44
Nepumuk
Hallo,
na auf den Button in der Tabelle:
Userbild
Gruß
Nepumuk

Anzeige
AW: Tabelle füllen und fortschreiben.
20.05.2015 12:43:02
Ralf
Ähm...
Userbild

AW: Tabelle füllen und fortschreiben.
20.05.2015 12:53:35
Nepumuk
Hallo,
in deiner Mustermappe war eine Formularschaltfläche und das ist ein CommandButton. Da musst du den Code entweder per Call aus dem Click-Event starten oder direkt in das Click-Event einfügen.
Ich hab das nicht so gerne wenn die Muster nicht dem Original entsprechen. Da verliere ich die Lust dir zu helfen. Ich komme mir dabei nämlich verarscht vor. Vor allen Dingen von Leuten die dann keine Ahnung von VBA haben und meinen sie könnten das selber anpassen.
Gruß
Nepumuk

Anzeige
AW: Tabelle füllen und fortschreiben.
20.05.2015 13:09:26
Ralf
Hallo Nepumuk,
ich hatte eine Mustertabelle veröffentlicht, bei denen lediglich die Zellen mit dem Original übereinstimmen.
Das Problem ist, dass die Originale Tabelle im Betrieb ist und dort drin Namen aller möglichen Mitarbeiter stehen, die ich nicht veröffentlichen wollte.
Ich war (vielleicht meiner Anfängerschaft geschuldet) der Meinung, dass ein Muster absolut ausreichend ist, um den Code anschließend in das Original zu übertragen.
Theoretisch funktioniert das ja auch, nur der Button scheint halt anders zu sein. Also bitte nicht "verarscht" fühlen. Ich bin ja dankbar für deine Hilfe und versuche daraus zu lernen. Wenn ich VBA könnte, müsste ich nicht nerven.
Gruß
Ralf

Anzeige
AW: Tabelle füllen und fortschreiben.
20.05.2015 15:13:02
Ralf
Jetzt läuft es. Ich habe den Button in der Originaldatei gegen ein Makrotaugliches Exemplar ausgetauscht und deine Codes übertragen und angepasst. Super. Danke dafür!
Eins habe ich aber trotzdem noch: Nach beenden muss jetzt noch die Application "Excel" manuell mit dem "X" oben rechts beendet werden. Kann ich das noch irgendwie abstellen? Mit "application.quit", nehme ich an. Aber wie?
Der Code sieht jetzt so aus:
Option Explicit
Sub Schaltfläche3_Klicken()
Dim objWorkbook As Workbook
Dim lngNextEmptyRow As Long
If Not IsEmpty(Range("F7").Value) And Not IsEmpty(Range("H7").Value) Then
Set objWorkbook = Workbooks.Open(Filename:="G:\Teiledienst\AZ\Auswertung.xlsx")
If Not objWorkbook.ReadOnly Then
With objWorkbook.Worksheets("Auswertung")
lngNextEmptyRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
.Cells(lngNextEmptyRow, 1).Value = ThisWorkbook.Worksheets("Zeiterfassung"). _
Range("F7").Value
.Cells(lngNextEmptyRow, 2).Value = ThisWorkbook.Worksheets("Zeiterfassung"). _
Range("F10").Value
.Cells(lngNextEmptyRow, 3).Value = ThisWorkbook.Worksheets("Zeiterfassung"). _
Range("F13").Value
.Cells(lngNextEmptyRow, 4).Value = ThisWorkbook.Worksheets("Zeiterfassung"). _
Range("H7").Value
End With
Call objWorkbook.Close(SaveChanges:=True)
Call ThisWorkbook.Close(SaveChanges:=False)
Else
Call MsgBox("Daten können nicht gespeichert werden." & vbLf & vbLf & _
"Bitte nochmal versuchen.", vbExclamation, "Hinweis")
End If
Else
Call MsgBox("Bitte erst alle Felder audsfüllen.", vbExclamation, "Hinweis")
End If
End Sub

Anzeige
AW: Tabelle füllen und fortschreiben.
20.05.2015 15:16:33
Nepumuk
Hallo,
ersetzen diese Zeile:
Call ThisWorkbook.Close(SaveChanges:=False)
durch diese beiden:
ThisWorkbook.Saved = True
If Workbooks.Count = 1 Then Application.Quit Else ThisWorkbook.Close
Gruß
Nepumuk

AW: Tabelle füllen und fortschreiben.
20.05.2015 15:24:08
Ralf
Top! Danke!

302 Forumthreads zu ähnlichen Themen

Eingabemaske für Tabelle via VBA ?
kiwi279

Hi Ihr,
habe eine größere Adressdatenbank als Excel-Datei.
Der Inhalt sind normale Adressen, zu denen in jeder Spalte separat bestimmte Informationen (Nachname, Vorname, Email, Geburtstag, Beruf etc.) abgelegt sind.
Da die Datensätze immer wieder ergänzt und aktualisiert werden, ist...
13.08.2008 21:10:00
Thread-ID: 1001661
17 Beiträge
Anzeige
Steuerelement Listbox1 in tabelle wird in VBA n
Mike

Hallo
Ich habe in einer Tabelle aus der Symbolleiste Steuerelemente ein Listenfeld in eine Tabelle eingefügt. Der Objektname lautet "Listbox1".
Über ein Makro will ich nun diese Listbox füllen.
Listbox1.additem "Text"
wenn ich das Makro ausführen wird die Listbox1 jedoc nicht ge...
28.11.2008 11:59:00
Thread-ID: 1028645
3 Beiträge
Änderungen in Tabellen via VBA vornehmen
Wolfgang

Hallo,
in einer Mappe befinden sich 3 Tabellenblätter; Gesamt, Grunddaten und Altdaten - In Gesamt werden unterschiedlich viele Daten, die aber alle immer das Format zu Tabelle Grund- und Altdaten haben, eingespielt. Im beiliegenden Code, wenn ich ihn richtig interpretiere, werden Veränderu...
06.12.2008 15:50:24
Thread-ID: 1030699
7 Beiträge
Anzeige
VBA Script in andere Tabellen
Jörg

Hallo,
mich würde mal interessieren, ob es möglich ist, das Script einer Tabelle öffentlich für andere Tabellen zu machen. Derzeit ist es so, wenn ich das Makro in anderen Tabellen anwende, öffnet sich erst die Tabelle in der das Makro drin steht. Kann man das umgehen?
Für Eure Hilfe vi...
14.01.2009 11:42:23
Thread-ID: 1039546
16 Beiträge
VBA-Code in einem String erzeugen und dann ausführ
Dirk

Hallo!
Gibt es eine Möglichkeit, VBA-Code auszuführen, der in einer String-Variablen vorliegt, die zuvor dynamisch erzeugt wurde? Sprich: Ich möchte VBA-Code dynamisch erzeugen und anschließend ausführen. Geht das irgendwie?
Ich hoffe, das ist so verständlich.
Vielen Dank,
Dirk<...
20.01.2009 20:08:36
Thread-ID: 1041981
4 Beiträge
VBA Code mit VBA in Tabelle kopieren - Fehler?!
Andreas

Hallo Herber Fans,
ich habe mir heute aus der Recherche eine Möglichkeit rausgesucht, einen Code über VBA in ein anderes VBA Worksheet zu kopieren. Das dies in VBA überhaupt geht ist ja schon genial. Es soll ein Code in das VBA Worksheet des activeworkbooks kopiert werden.
Der Code dafü...
11.02.2009 15:56:00
Thread-ID: 1049657
3 Beiträge
Auslesen_Tabellenblattname_eintragen-siehe VBA
Fabio

Hallo zusammen,
mit dem Makro unten aus dem Forum lese ich diverse Exceldateien in einem Verzeichzis aus. Soweit ich das gesehen habe, liest das Makro immer das "erste" Tabellen-Blatt aus.
Aktuell habe ich folgendens:
- Ein Verzeichnis mit 10 Excel-Dateien
- Die Exeldatein haben...
06.04.2009 11:13:51
Thread-ID: 1067062
4 Beiträge
Strings vergleichen in 2 verschiedenen Tabellen
Mario

Hallo zusammen,
ich versuch mal mein Problem zu beschreiben:
Tabelle 1 ist ein Schichtplan, der die Namen der MA, eingeteilt in verschiedene Gänge, mit dem Zusatz "Gang" enthält, z.B. Mayer Hans 12.
Tabelle 2 ist ein Anwesenheitsplan, der die Namen incl. Personalnummer hat, z.B. May...
26.07.2009 14:32:41
Thread-ID: 1091022
8 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
16
7
2
6
8
15
3
2
3
7
6
1
2
4
1
9
2
4
3
3
4
1
2
2
6