Live-Forum - Die aktuellen Beiträge
Datum
Titel
08.05.2024 14:37:20
Wert in Spalte mit Kriterium finden, Ausschluss leere Zellen
08.05.2024 12:59:21
MsgBox beim öffnen der Datei
08.05.2024 12:16:10
Dropdownmenü mit Klick auf Zelle öffnen (nicht über Pfeil)
08.05.2024 11:33:57
Print Area auswählen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
832to836
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
832to836
832to836
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabelle aus anderer Anwendung formatieren

Tabelle aus anderer Anwendung formatieren
10.01.2007 05:51:34
dreho
Hallo,
aus einer anderen Anwendung wird eine Tabelle generiert und automatisch in Excel geöffnet.
Der Tabellenname ist jedesmal anders (Mappe mit einer Tabelle).
Für den Druck (Excel wird nur dafür missbraucht) sind einige Anpassungen notwendig, die in einem Makro bereits bestens funktionieren.
Leider muss ich das Makro jedesmal importieren.
Ich hätte gerne dafür ein *.xla angelegt (CP.xla) das folgendes macht!
in der Tabelle steht immer in Zelle A2 "erstellt von CP, am:"
Den Wert in A2 müsste man zusätzlich noch Glätten, da nach "..am: " unbestimmte Anzahl von Spaces (Leerschläge) stehen.
Lässt sich so etwas überhaupt programmieren?
Danke für Antwort und Gruss dreho

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabelle aus anderer Anwendung formatieren
10.01.2007 10:40:49
Rudi
Hallo,
diesen Code in ein Workbook und dieses als CP.xla speichern:

Sub ttt()
Dim wkb As Workbook, wks As Worksheet
For Each wkb In Workbooks
If wkb.Sheets(1).Range("A2") Like "erstellt von CP, am:*" Then
Set wks = wkb.Sheets(1)
Exit For
End If
Next wkb
If Not wks Is Nothing Then
With wks
.Range("A2") = Trim(.Range("A2"))
'weitere Anpassungen aus deinem Code hier einbauen
End With
Else
MsgBox "Datei nicht gefunden!", vbOKOnly, "Datenfehler"
End If
End Sub
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige