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 - ickebins0815

Seiten: [1]

Excel / Office 2010: Laufzeitfehler 1004, Anwendung und Objekt

« am: Februar 11, 2018, 22:01:20 Nachmittag »

Hallo Leute,

habe hier einen "Laufzeitfehler 1004, Anwendungs- oder objektdefinierter Fehler" verzweifle gerade oder bin mitlerweile betriebsblind.
Kann mir jemand bitte auf die Sprünge helfen?
Danke schon mal fürs drüberschauen.

Code: [Auswählen]

Sub aktualisiere_Gueltigkeit(ByRef Bereich As Range, Adresse_Liste_Elemente_voll As String)
With Bereich.Validation: .Delete: .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:="=" & Adresse_Liste_Elemente_voll: .IgnoreBlank = True: End With

End Sub

Excel / Office 2010: Zelle durch Doppelklick mit Zellenwert befüllen

« am: November 20, 2016, 16:34:26 Nachmittag »

Einen wunderschönen Nachmittag allen gewünscht.

Ich benötige ein wenig Hilfe bei der Erstellung eines Bauzeitenplans.
Folgendes habe ich mir vorgestellt.
Ich habe in einer Tabelle in A das Gewerk und in B die Abkürzung.
In den Spalten C bis W (ggf. auch weiter) möchte ich durch einen Doppel-Klick auf die Zelle diese mit den Werten aus B befüllen.
Idealerweise auch wieder leeren durch einen Doppel-Klick.
Das heißt für jede einzelne Zeile nur das Gewerk was in der Zeile steht. Die Farbe soll mit übernommen werden.
Im Anhang ist eine Beispieldatei um dies ein wenig anschaulicher zu machen.
Die Werte in den Spalten C-W sind Beispiele wie es aussehen sollte.
In B1 soll das Start-Datum mit Wochentag eingetragen werden und die nachfolgenden Zellen der Zeile befüllen (ohne Sa und So)
Hat jemand einen Denkanstoss oder Ideen für mich...
VBA ist nicht meine Stärke, komme aber damit je nach Umfang zurecht.
Danke schon einmal für's zuhören.

Word / Antw: Dicke Punkte im Dateinamen (Makro erstellt)

« am: November 24, 2014, 19:10:22 Nachmittag »

Hallo Maninweb,

Zitat

es wäre einfacher, wenn Du den Code statt einem Bild vom Code hier rein stellen würdest.
Abtippen - auch wenn der Code kurz ist - macht unnötigen Aufwand.

Sorry.
Hier dein Vorschlag mit Ergebnis...leider negativ.
___________________________________________

Sub FileSave()

If ActiveDocument.Path = "" Then
FileSaveAs
Exit Sub
End If
ActiveDocument.Save

End Sub
Sub FileSaveAs()

Dim DocName As String

If ActiveDocument.Bookmarks.Exists("app") = True Then
DocName = ActiveDocument.Bookmarks("app").Range.Text & " - " & ActiveDocument.Bookmarks("name").Range.Text
Else
DocName = ActiveDocument.Name
End If

With Dialogs(wdDialogFileSaveAs)
.Name = Replace(DocName, Chr(149), "")
.Show
End With

End Sub

Word / Dicke Punkte im Dateinamen (Makro erstellt)

« am: November 23, 2014, 17:06:49 Nachmittag »

Hallo Gemeinde,

dachte eigentlich das ich mein Problem alleine gelöst bekomme..., dachte ich aber nur.
Ich habe ein Makro erstellt um den Dokumenten einen Dateinamen aus 2 Textfeldern automatisch beim speichern zu geben.
Soweit so gut. Leider habe ich in dem erzeugten Dateinamen am Ende des jeweiligen Namen aus dem Textfeld einen dicken Punkt dahinter.
Das stört insofern das ich jedesmal diese Punkte erst entfernen muss bevor ich speichern kann.
Kennt das jemand und kann mir helfen diese Punkte zu entfernen ohne manuelles löschen in der "Speichern unter" Prozedur?
Anbei das Makro und der "Quälgeist"
Ich danke schon mal fürs lesen und überlegen.

Sub FileSave()

If ActiveDocument.Path = "" Then
FileSaveAs
Exit Sub
End If
ActiveDocument.Save

End Sub
Sub FileSaveAs()

Dim DocName As String

If ActiveDocument.Bookmarks.Exists("anlage") = True Then
DocName = ActiveDocument.Bookmarks("anlage") & " - " & ("datum")
Else
DocName = ActiveDocument.Name
End If

With Dialogs(wdDialogFileSaveAs)
.Name = DocName
.Show
End With

End Sub

Seiten: [1]

Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Menü

An- und Abmelden

Partner / Links