---

Hi @ll - einen schönem Guten Freitagmorgen.

Ich hab mir eine Makro aufgezeichnet um in einer Tabelle einen neue Zeile mit Datum und Uhrzeit einzufügen. WWie bekomme ich es hin anstelle der Fixwerte das aktuelle Datum und Uhrzeit einzutragen?

Danke Wolfgang

Hier das Makro:

Sub Insert_Zeile()
'
' Insert_Zeile Makro
' Neue Zeile an 1. Stelle einfügen
'

'
    Rows("4:4").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("A4").Select
    ActiveCell.FormulaR1C1 = "4/4/2014"
    Range("B4").Select
    ActiveCell.FormulaR1C1 = "7:39"
    Range("A5:K5").Select
    Selection.Copy
    Range("A4").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
End Sub

------------------
Immer wieder neu dazu lernen.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

Code:

---

Sub Insert_Zeile()
'
' Insert_Zeile Makro
' Neue Zeile an 1. Stelle einfügen
'

'
    Rows("4:4").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("A4") = Date  '<== Datum
    Range("B4") = Now  '<== Uhrzeit mit Datum
    Range("A5:K5").Copy
    Range("A4").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
End Sub

---

------------------
Bis später,
Karin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

WOW - Das ging ja schnell.

Besten Dank Karin funzt einwandfrei.

Wolfgang

------------------
Immer wieder neu dazu lernen.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von Beverly:
Hi,

Code:

---

Sub Insert_Zeile()
'
' Insert_Zeile Makro
' Neue Zeile an 1. Stelle einfügen
'

'
    Rows("4:4").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("A4") = Date  '<== Datum
    Range("B4") = Now   '<== Uhrzeit mit Datum
    Range("A5:K5").Copy
    Range("A4").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
End Sub

---

---

So auch schon gefunden nur 2 Probleme damit,

1tens wie setzt ich das in ein Excel Blatt ( das war mein Plan eine Schaltfläche wo wenn man draufklickt und das dann eingesetzt wird

2tes die aktuelle Uhrzeit sollte da gleich mit kommen

Grüsse cw

------------------
Also ich finde Unities gut ... und andere sicher auch
------------------------------------------------
cadwomen™
Plant ist wie Öl suchen, je tiefer man bohrt desto mehr kommt ans Tageslicht

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Das sollte eigentlich reichen?

Code:

---

Sub DatumZeit()
ActiveSheet.Range("A1") = Now
End Sub

---

Und dann aus Entwicklertools / Einfügen/ Formularsteuerelemente, die Schaltfläche auswählen , positionieren und das Makro zuweisen.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke Thomas

fehlt mir nur noch wie ich das in Excel reinsetzt , also so

http://office.microsoft.com/client/helppreview14.aspx?AssetId=HP010342137&lcid=1031&NS=EXCEL&Version=14&tl=2&respos=0&CTT=1&queryid=5da8fd54%2D2c17%2D4e30%2D871c%2Db73cc9ae5129

müsste dann doch stimmen ?

cu cw

------------------
Also ich finde Unities gut ... und andere sicher auch
------------------------------------------------
cadwomen™
Plant ist wie Öl suchen, je tiefer man bohrt desto mehr kommt ans Tageslicht

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zeile01.JPG

Hallo cadwomen,

Ich hab mir eine Vorlagetabelle gemacht und diese wird entsprechend kopiert. In der Vorlage ist der Button " Neue Zeile " bereits enthalten. Ab Zeile A4 wird eine neue Zeile eingetragen mit aktuellem Datum und Uhrzeit mit entsprechender Formatierung.

Das Button "Neue Zeile" in deiner Tabelle hinzufügen und ihm das entsprechede Makro zuweisen.

Grüße Wolfgang

------------------
Immer wieder neu dazu lernen.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

und schon hier klemmt es

"2.Klicken Sie auf der Registerkarte Entwicklertools in der Gruppe Steuerelemente auf Einfügen, und klicken Sie dann unter ActiveX-Steuerelemente auf Befehlsschaltfläche Schaltflächensymbol."

abgegraut 

FA für heute

cu cw

------------------
Also ich finde Unities gut ... und andere sicher auch
------------------------------------------------
cadwomen™
Plant ist wie Öl suchen, je tiefer man bohrt desto mehr kommt ans Tageslicht

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

activx.JPG

mhh über F1 alles im Sicherheitscenter geprüft , sollte gehen zumal die "normalen" Steuerelemente da sind

irgend jemand einen Tip ?

cu cw

------------------
Also ich finde Unities gut ... und andere sicher auch
------------------------------------------------
cadwomen™
Plant ist wie Öl suchen, je tiefer man bohrt desto mehr kommt ans Tageslicht

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

nimm einfach das erste Element aus der Formularsteuerelemente und weise dann das Makro zu.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

irgendwas ist wohl  gesperrt ändert sich nix , bleiben auch nach dem einfügen eines Objektes
die Befehle abgegraut.

cu cw

------------------
Also ich finde Unities gut ... und andere sicher auch
------------------------------------------------
cadwomen™
Plant ist wie Öl suchen, je tiefer man bohrt desto mehr kommt ans Tageslicht

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Zusammen

kann ich diese Entwicklertools irgendwie anderst aktivieren ?
bei mir bleiben die Felder abgegraut somit kann ich die zwar einfügen aber mehr nicht ?

oder kann ich irgendwie die Installation testen ?

cu cw

------------------
Also ich finde Unities gut ... und andere sicher auch
------------------------------------------------
cadwomen™
Plant ist wie Öl suchen, je tiefer man bohrt desto mehr kommt ans Tageslicht

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Uebersicht_CAD01.xlsm.txt

Hallo cadwomen

Schau mal ob du hiermit was anfangen kannst:

1. Zeile einfügen mit Aktuellem Datum und Zeit(Makro mit Button)
2. Autm. Anlegen von Seiten (Makro mit Button)
3 Übersichtsblatt mit den aktuellen Einträgen (enthält Formeln)

Alles mit Hilfe dieses Forums.

Schönen Tag noch

------------------
Immer wieder neu dazu lernen.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

nun da ich immer noch auf der Suche bin, bin ich auf den Befehl"Speichern und Senden"
gestoßen ... das wäre ja schon das was ich brauche nur eben auf dem Sheet und mit mehreren E Mailadressen

cu cw

------------------
Also ich finde Unities gut ... und andere sicher auch
------------------------------------------------
cadwomen™
Plant ist wie Öl suchen, je tiefer man bohrt desto mehr kommt ans Tageslicht

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Willst du immer die gesamte Mappe versenden?

Oder reicht der ein Teilinhalt der Exceltabelle als Text in der Email?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Abend

eigentlich nur die aktuelle Seite als PDF ( weis nicht wie die Liste da als Text dann aussieht und dann wäre sie ja änderbar und das soll sie nicht sein )

cu cw

------------------
Also ich finde Unities gut ... und andere sicher auch
------------------------------------------------
cadwomen™
Plant ist wie Öl suchen, je tiefer man bohrt desto mehr kommt ans Tageslicht

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

dazu musst du die Seite erst einmal als PDF abspeichern - dazu könntest du den Makrorekorder benutzen.

Mit welchem Mailprogramm soll die PDF denn verschickt werden und wo stehen die Mailadressen?

------------------
Bis später,
Karin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke Karin für den Hinweis, scheitert nur auch daran das , siehe weiter Oben das mein
VBA / Entwicklertools irgendwie nicht kpl verfügbar sind

Wird mir mal einen anderen Rechner suchen

cw

------------------
Also ich finde Unities gut ... und andere sicher auch
------------------------------------------------
cadwomen™
Plant ist wie Öl suchen, je tiefer man bohrt desto mehr kommt ans Tageslicht

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP