Forumbeitrag
Excel-Version des Fragestellers:
365 Business
Erfahrungslevel des Fragestellers:
Excel gut - VBA bescheiden
Case
24.10.2025 19:20:34
Probiere diesen...
Moin Dieter, :-)
... Code: ;-)
Der sollte eigentlich alles "erschlagen". ;-)
Starte aber deine Kiste mal neu. Falls du schon viel mit "CreateObject" gearbeitet hast (oder schau mal in den Task-Manager. Nicht dass da noch Excel-Leichen sind). ;-)
Servus
Case
... Code: ;-)
Option Explicit
Public Sub Main()
Dim objXlMappe As Object
Dim objXlSheet As Object
Dim blnFound As Boolean
Dim objXlApp As Object
Dim objWBook As Object
Dim lngLastRow As Long
Dim strPath As String
strPath = "C:\Temp\Arbeitsdokument.xlsx"
On Error Resume Next
Set objXlApp = GetObject(, "Excel.Application")
On Error GoTo Fin
If objXlApp Is Nothing Then
Set objXlApp = CreateObject("Excel.Application")
End If
For Each objWBook In objXlApp.Workbooks
If StrComp(objWBook.FullName, strPath, vbTextCompare) = 0 Then
Set objXlMappe = objWBook
blnFound = True
Exit For
End If
Next objWBook
If Not blnFound Then
Set objXlMappe = objXlApp.Workbooks.Open(strPath)
End If
Set objXlSheet = objXlMappe.Sheets("Tabelle1")
With objXlSheet
lngLastRow = .Cells(.Rows.Count, 2).End(-4162).Row + 1 ' xlUp
If lngLastRow < 17 Then lngLastRow = 17
.Cells(lngLastRow, 2).Value = "NurEinTest"
End With
objXlMappe.Save
objXlApp.Visible = True
Fin:
If Err.Number > 0 Then MsgBox "Error: " & Err.Number & " " & Err.Description
Set objXlSheet = Nothing
Set objXlMappe = Nothing
Set objXlApp = Nothing
End SubDer sollte eigentlich alles "erschlagen". ;-)
Starte aber deine Kiste mal neu. Falls du schon viel mit "CreateObject" gearbeitet hast (oder schau mal in den Task-Manager. Nicht dass da noch Excel-Leichen sind). ;-)
Servus
Case
Als Antwort auf diesen Beitrag
Dieter
24.10.2025 17:42:33
AW: Das liegt in der...
Dann hat meine erste Idee abzufragen ob die Excel Datei bereits offen ist gar keinen Sinn ergeben? Ich hätte jetzt gedacht wenn die Datei offen ist und ich diese einfach nochmal Abfrage bzw. den Dateinamen und das Sheet angebe in das geschrieben werden soll dass das dann läuft.
Wie soll ich es jetzt machen damit alle möglichen Varianten abgefangen werden?
Mögliche Fälle können sein:
1. Nur die eine Word Datei die ich ausführen möchte ist offen
2. Mehrere unterschiedliche Word Dateien sind offen aber ich führe nur die eine aus
3. Die Ziele Excel Datei ist offen
4. Die Ziel Excel Datei ist offen und andere
Wie geht das mit der ROT?
Grüße Dieter
Wie soll ich es jetzt machen damit alle möglichen Varianten abgefangen werden?
Mögliche Fälle können sein:
1. Nur die eine Word Datei die ich ausführen möchte ist offen
2. Mehrere unterschiedliche Word Dateien sind offen aber ich führe nur die eine aus
3. Die Ziele Excel Datei ist offen
4. Die Ziel Excel Datei ist offen und andere
Wie geht das mit der ROT?
Grüße Dieter
Folgenachrichten
- Läuft mega - von Dieter am 26.10.2025 07:11:19
Antwort auf Beitrag erstellen