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

Daten fortlaufend weiterschreiben lassen

Forumthread: Daten fortlaufend weiterschreiben lassen

Daten fortlaufend weiterschreiben lassen
Albert
Hallo zusammen,
ich hab eine Datei vor mir, bei der ich den Office-Benutzer und den Zeitpunkt wegschreiben will, der die Datei öffnen.
Selbiges möchte ich machen, wenn der Benutzer die Datei speichert.
Beim Googeln... :) hab ich schon einiges gefunden, aber nicht wirklich das, was mir weiterhilft.
Anbei noch der Code...
Sub Save()
Tabelle4.Range("A2") = Environ("USERNAME")
Tabelle4.Range("B2") = Cstr(Date)
Sub End
Nochmal mein Punkt... ich will sowohl in Spalte A als auch in Spalte B fortlaufend weiterschreiben lassen.
Dank euch recht schön im Voraus.
Albert
Anzeige
AW: Daten fortlaufend weiterschreiben lassen
27.09.2011 18:07:47
Hajo_Zi
Hallo Abert,
ich habe mal vor ewigen Zeiten folgenden Code erstellt. Vielleicht ist dies ein Ansatz.

Option Explicit
Dim LoLetzte As Long
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.EnableEvents = False
With Worksheets("Tabelle3")
LoLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(Rows.Count, 1).End(xlUp).Row, . _
Rows.Count) + 1
.Cells(LoLetzte, 1) = Target.Address
.Cells(LoLetzte, 2) = Target
.Cells(LoLetzte, 3) = Sh.Name
.Cells(LoLetzte, 4) = Environ("Username")
End With
Application.EnableEvents = True
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
' Sicherungen Protokollieren
With Worksheets("Tabelle3")
LoLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(Rows.Count, 1).End(xlUp).Row, . _
Rows.Count) + 1
.Cells(LoLetzte, 1) = Now
.Cells(LoLetzte, 2) = Environ("Username")
End With
End Sub
Private Sub Workbook_Open()
' die letzten 10 Veränderungen anzeigen
Dim LoI As Long
Dim LoJ As Long
Dim StMeldung As String
With Worksheets("Tabelle3")
LoLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(Rows.Count, 1).End(xlUp).Row, . _
Rows.Count) + 1
If LoLetzte > 10 Then LoJ = LoLetzte - 11
For LoI = LoJ + 1 To LoLetzte
StMeldung = StMeldung & .Cells(LoI, 1).Text & " " & .Cells(LoI, 2) & Chr(13)
Next LoI
MsgBox StMeldung
End With
End Sub

Anzeige
AW: Daten fortlaufend weiterschreiben lassen
27.09.2011 18:16:45
Albert
Hallo Hajo,
das funktioniert ja extrageil... :)
Ich würde dich küssen, wenn ich könnte! :)
Vielen herzlichen Dank...
Albert
P.S. Bin Stammkunde auf deiner Homepage
AW: Daten fortlaufend weiterschreiben lassen
27.09.2011 18:25:16
Albert
Hallo Hajo,
eine Frage hätte ich dennoch.
Wie müsste der Code aussehen, wenn auch Formatierungen in die Historie mit aufgenommen werden sollen?
Danke
Albert
Anzeige
AW: Daten fortlaufend weiterschreiben lassen
27.09.2011 18:52:32
Hajo_Zi
Hallo Albert,
was meinst Du?
Gruß Hajo
AW: Daten fortlaufend weiterschreiben lassen
28.09.2011 06:51:42
Albert
Guten Morgen Hajo,
dein Code zeichnet aktuell alle Eingaben auf, die mit der ENTER- oder TAB-Taste bestätigt wurden.
Sprich einen Zellenwechsel machen!
Meine Kollegin monierte eben noch, dass Formatierungen wie z.B. Zellfarben, Rahmen, etc. nicht aufgezeichnet werden.
Nichts desto trotz glaube ich, dass das so nicht möglich ist oder? Frage an den Excelgott... :)
Viele Grüße
Albert
Anzeige
AW: Daten fortlaufend weiterschreiben lassen
28.09.2011 08:26:50
Dirk
Hallo Albert,
dazu muesste man die Aenderungsanforderungen abfangen, welches aber nicht in den standard Excel-Events passiert.
Hier mal ein Link dazu:
http://www.jkp-ads.com/Articles/CatchPaste.asp
Gruss
Dirk aus Dubai
Anzeige
AW: Daten fortlaufend weiterschreiben lassen
28.09.2011 09:29:12
Albert
Guten Morgen Dirk aus Dubai, :)
grad bringst du mich auf eine Idee.
Es sollte ja niemand ausser mir und meiner Kollegin die Formatierungen ändern können.
Was gibts da einfacheres, als den Blattschutz... :)
Mit dem Makrorecoder wird folgender Code aufgezeichnet:
Sheets("Meine Seite").Select
Range("A6").Select
Range(Selection, Selection.End(xlDown)).Select
Range("A6:M1000").Select
ActiveSheet.Protect
Range("A6").Select
Doch woher weiß das Makro, mit welchem Passwort es meine Seite schützen soll?
Mfg
Albert
Anzeige
AW: Daten fortlaufend weiterschreiben lassen
28.09.2011 10:53:21
Dirk
Hallo!
Du hast kein Password definiert, deswegen ist da im Makro auch keines.
Fuer Blattschutz mit Password probier mal folgendes:
Sheets("Meine Seite").protect Password="Test"
Gruss
Dirk aus Dubai
AW: Daten fortlaufend weiterschreiben lassen
28.09.2011 10:56:49
Dirk
Hallo!
Muss natuerlich mit Doppelpunkt geschrieben werden:
Sheets("Meine Seite").protect Password:="Test"
Gruss
Dirk aus Dubai
Anzeige
AW: Daten fortlaufend weiterschreiben lassen
28.09.2011 11:48:52
Albert
Hallo Dirk,
das funzelt ja wunderbar!
Was verschlägt dich nach Dubai?
Viele Grüße und Danke.
Albert

Forumthreads zu verwandten Themen

Autom. Datei erzeugen und Inhalt hineinschreiben..
Helmut

Liebe Mitglieder,
ich habe folgende knifflige Situation manuell zu tätigen:
In einem Ordner befinden sich x PDF-Dokumente (z.B. abcde.pdf, dfg45.pdf, usw.). Zu jedem dieser Dokumente muss ich eine txt-Datei anlegen, die einen Pfad enthält und folgendermaßen aussieht, also z.B. abcde.txt...
05.09.2008 08:59:57
Thread-ID: 1007580
5 Beiträge
Cell.Formula verändern und zurückschreiben
Andreas

Hallo Herber Fans,
wie kann ich bei einer ausgelesenen SUM formula im Code den Bezug um eine Zeile verändern?
es wird ausgelesen: =SUM(L22:L22)
und soll dann als: =SUM(L22:L23)
wieder zurück in die Zelle geschrieben werden? Habe schon mit RIGHT und Stellen auslesen experimentier...
09.12.2008 15:21:00
Thread-ID: 1031440
12 Beiträge
Daten fortlaufend von Formular in Range schreiben
Formular

Hi,
wie kann ich denn folgende Abfrage bzw kopieren erledigen:
Ich habe Ein Formular mit Textbox'n und Combobox'n
auf einem Bestimmte Tabellenblatt ("Daten") möchte ich nun die Folgenden Inhalte kopieren (button)
Auf dem Tabellenblatt ("Daten") habe ich ein Range B33 : F42 (also...
29.01.2009 09:26:24
Thread-ID: 1044806
3 Beiträge
Schleife von Basic in VBA umschreiben
Basic

Hallo Excel-Freunde,
da ich kein VBA-Basic schreiben kann, würde ich gerne eure Hilfe beanspruchen.
Die vorliegende Basic For Next Schleife läuft mit den angegebnen Variablen und Parameter,
würde sie gerne in VBA_Code mit einem Makro jedesmal starten.
A = 11 : B = 12
For I =...
18.07.2009 17:17:03
Thread-ID: 1089659
9 Beiträge
Groß- und Kleinschreibung für Variablen
Jürgen

Hallo Excel Profis.
Für eine Datei werden Rechte in Abhängigkeit des Benutzernamens vergeben.
Den Benutzernamen (Variable "Benutzer") liest daß Programm folgendermaßen:
Benutzer = Environ("Username")
Das funktioniert auch soweit einwandfrei.
Die Rechte werden dann über Selec...
29.07.2009 11:13:22
Thread-ID: 1092183
4 Beiträge
Kombinationsfeld Überschreiben sperren
Jordan

Hallo zusammen,
ich habe in einem UserForm verschiedene Kombinationsfelder, die ich mit vorbestimmten Inhalten bestückt habe! Nun kann der Nutzer aber leider den vorbelegten Text überschreiben und beim Klick auf "OK" wird dieser dann auch übertragen.
Kann ich dieses Überschreiben des Ko...
29.07.2009 15:34:27
Thread-ID: 1092303
3 Beiträge
Makroname in Zelle automatisch schreiben
Nibio

Hallo Excel-Profis,
Gibt es ein Befehl dass der Makroname in eine bestimmte Zelle schreibt (z.B in Zelle X1)?
Da mein deutsch leider nicht so gut ist (da ich keine deutsche Schule besucht habe), versuche ich mit ein Beispiel mi besser auszudrucken:
Sub Test() ' Makro2 Makro ' Makro...
18.08.2009 13:01:45
Thread-ID: 1096729
15 Beiträge
Programm neu schreiben
Ludwig

Hallo Experten
Ich gebe auf den Fehler zu suchen und möchte neu, mit blankem Excel-Sheet anfangen!
Wie mache ich das am komfortabelsten. In der Originaldatei sind natürlich viele Formate, Zellnamen, VBA-Code etc. vorhanden.
Mit copy/paste werde ich immer gefragt "...Namen übernehmen...
04.09.2009 09:24:43
Thread-ID: 1100543
2 Beiträge
Anzeige
Summenformel auf VBA umschreiben
Martin

Hallo,
folgende Formel möchte ich gerne für VBA schreiben:
=SUMMENPRODUKT((Geschlecht=A2)*(Endzeit<B2))+1
So geht es mit VBA:
MsgBox [SumProduct((Geschlecht = A2) * (Endzeit MsgBox Evaluate("SumProduct((Geschlecht = A2) * (Endzeit ("Geschlecht" und "Endzeit" sind benannte...
07.10.2009 19:33:12
Thread-ID: 1107979
11 Beiträge
Gros- und Kleinbuchstaben
Erich

Hallo,
vielleicht kann mir jemand helfen. In einer Tabelle gebe ich über ein UF Namen in TextBox1 ein. Die Namen bestehen aus Nach- und Vorname. Alle in einer Zelle.
".Range("A" & lLetzte).Value = UCase(Trim(TextBox1.Value))".
Der Nachname, sowie der erste Buchstabe im Vornamen...
18.12.2009 12:44:13
Thread-ID: 1124874
21 Beiträge
Zelle per Textbox aus Userform überschreiben
eric

Hallo,
wenn Inhalt der Textbox aus Userform in einer Tabelle vorhanden ist, dann soll die Zeile gelöscht werden ?
DANKE ERIC
16.02.2010 19:27:06
Thread-ID: 1139027
2 Beiträge
Aktuelle Zelle 'gross' schreiben
Tommi

Hallöchen,
gibt es eigentlich eine einfache Möglichkeit die aktuelle Zelle komplett grossgeschrieben zu bekommen?
Wenn also Blafasel drin steht, soll nach dem Ausführen des Makros BLAFASEL drin stehen.
Und noch besser wäre es natürlich, wenn man nicht 'auf eine Zelle klicken - dann...
28.03.2010 13:57:08
Thread-ID: 1148919
8 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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