Collapse column

Beiträge anzeigen

Diese Sektion erlaubt es dir alle Beiträge dieses Mitglieds zu sehen. Beachte, dass du nur solche Beiträge sehen kannst, zu denen du auch Zugriffsrechte hast.


Nachrichten - thepocky

Seiten: [1]
1
Excel / Office 2010: Antw:Office 2010: Makro Wenn datei beim Speichern vorhanden ersetzen
« am: März 18, 2012, 02:48:39 Vormittag »
Hallo nochmals,

mal wieder habe ich mir selber geholfen!

Wenn die Geduld nur so lang wäre wie ich Groß bin!  :D

Lösung:

(Funktioniert natürlich als Schlatfläche und beim Close)

Code: [Auswählen]
Public Sub Speichern()

Dim Altname As String, Neuname As String, Pfad As String

Pfad = "M:\Freecom-HardDriveXS-01\SICHERHEITSKOPIE_Wurzelimperium"

ThisWorkbook.Save

Altname = ThisWorkbook.FullName

If Right$(Pfad, 1) <> "\" Then Pfad = Pfad + "\"

Neuname = Pfad & Format(Now, "YYYY-MM-DD") & "-" & ThisWorkbook.Name

Application.DisplayAlerts = False
ThisWorkbook.SaveAs Filename:=Neuname

Application.DisplayAlerts = True

Workbooks.Open (Altname)

ThisWorkbook.Close



End Sub

Ich habe einfach folgendes ersetzt:
Code: [Auswählen]
ThisWorkbook.SaveAs Filename:=Neuname
Durch folgendes:

Code: [Auswählen]
Application.DisplayAlerts = False
ThisWorkbook.SaveAs Filename:=Neuname

Application.DisplayAlerts = True
Gruß
Björn

2
Excel / Office 2010: Makro Wenn datei beim Speichern vorhanden ersetzen
« am: März 18, 2012, 01:46:51 Vormittag »
Hallo,

ich habe folgendes Makro:

Code: [Auswählen]
Sub Sicherheitskopie()

Dim Altname As String, Neuname As String, Pfad As String

Pfad = "M:\Freecom-HardDriveXS-01\SICHERHEITSKOPIE_Wurzelimperium"

ThisWorkbook.Save

Altname = ThisWorkbook.FullName

If Right$(Pfad, 1) <> "\" Then Pfad = Pfad + "\"

Neuname = Pfad & Format(Now, "YYYY-MM-DD") & "-" & ThisWorkbook.Name

ThisWorkbook.SaveAs Filename:=Neuname

Workbooks.Open (Altname)

ThisWorkbook.Close


End Sub
Dieses Makro wird zurzeit Ausgeführt beim Schließen der Datei. Nun möchte ich dieses Erweitern.

Beim Schließen soll noch überprüft werden, ob es schon eine Datei mit dem selben Naben gibt in dem Ordner. Falls ja, soll die Datei ersetzt werden, wenn nicht, normal Speichern.

Für einen Lösungsansatz wäre ich dankbar.

Viele Grüße
Björn

3
Excel / Antw: Office 2010: Aktuelle Waren-Preise Suchen und Ausgeben
« am: März 17, 2012, 23:00:22 Nachmittag »
Hey,

danke Officer, leider funktioniert es nicht so wirklich.

Aber ich darf sagen, habe die Lösung schon gefunden:

Code: [Auswählen]
=INDEX(Preise!$F$4:$F$50;VERGLEICH(B2;Preise!$B$4:$B$50;0))
Diese Formel habe ich schoneinmal ausprobiert. Dabei bekam ich immer den Wert 0.

Nun habe ich die Zellen-Formatierung geändert so dass auch die nachkommastellen angezeigt werden, und siehe da, alles wird angezeigt!

Ich danke dir Trotzdem!

Viele Grüße
Björn

4
Excel / Office 2010: Aktuelle Waren-Preise Suchen und Ausgeben
« am: März 17, 2012, 22:25:42 Nachmittag »
Hallo zusammen,

nach einem komplett Crash habe ich leider meine Verwaltung neu aufbauen müssen, soweit habe ich mir alle Schritte notiert. Leider fehlt mir der letzte Schritt.

Und zwar, ich habe eine Tabelle die nennt sich "Bestellungen":




In Spalte D (Preise) Sollen die Aktuellen Waren Preise angezeigt werden.

Diese befinden sich in der Tabelle "Preise":




Nun soll Excel hingehen, Zelle B2 nehmen in Tabelle Bestellungen, dann in Tabelle Preise gehen und nach dem Preis Für Beispielsweise Karotte suchen.

Die Preise die Ausgegeben werden sollen befinden sich in Spalte F der Tabelle Preise.

Ich meine mich erinnern zu können, es könnte mit der INDEX und VERWEIS formel funktionieren, oder SVERWEIS. Ich bin mir nicht mehr sicher, habe alles durchprobiert.

Hoffe hier könnte mir jemand helfen.

Viele Grüße
Björn

Seiten: [1]

Cookies erleichtern die Bereitstellung unserer Dienste. Mit der Bestätigung erklären Sie sich mit der Verwendung von Cookies einverstanden. Learn more