AW: Wenn Änderung einer Zelle, dann
23.01.2019 10:39:43
Patrick
Nachtrag:
Ich habe nun einen Code genommen, den ich woanders laufen habe, bekomme ihn aber nicht ganz angepasst. Vielleicht kann hier jemand den Grund sehen:
Sub getData()
Dim objWB As Workbook, objRange As Object, bolAlreadyOpen As Boolean
Const cstrFilePath As String = "Speicherort_Datei (der selben Datei)" 'Datei aus der _
die Daten geholt werden
On Error GoTo ErrorHandler
With Application
.EnableEvents = False
.AskToUpdateLinks = False
.DisplayAlerts = False
.Calculation = xlCalculationManual
End With
For Each objWB In Application.Workbooks
If objWB.FullName = cstrFilePath Then bolAlreadyOpen = True: Exit For
Next
If objWB Is Nothing Then Set objWB = Workbooks.Open(cstrFilePath)
Range("A1").Select
DoEvents
With ThisWorkbook
On Error Resume Next
Set objRange = Application.InputBox("Bitte zu übernehmende Zeile markieren", "Daten _
kopieren", ActiveCell.Address, Type:=8)
If Not objRange Is Nothing Then
Set objRange = objRange.Cells(1, 1).EntireRow
.Range("AD1") = objRange.Cells(1, 4).Value
.Range("AE1") = objRange.Cells(1, 5).Value
.Range("AG1") = objRange.Cells(1, 11).Value
.Range("AH1") = objRange.Cells(1, 12).Value
.Range("AK1") = objRange.Cells(1, 7).Value
.Range("AL1") = objRange.Cells(1, 13).Value
End If
End With
If Not bolAlreadyOpen Then objWB.Close False
ErrorHandler:
If Err.Number 0 Then
MsgBox "Fehler in Modul1" & vbLf & vbLf & "Prozedur:" & vbTab & "getData" & vbLf & _
"Nummer:" & vbTab & Err.Number & vbLf & "Meldung:" & vbTab & Err.Description & vbLf & _
IIf(Erl, "Zeile:" & vbTab & Erl, ""), vbExclamation, "Fehler!"
Err.Clear
End If
With Application
.EnableEvents = True
.AskToUpdateLinks = True
.DisplayAlerts = True
.Calculation = xlCalculationAutomatic
End With
Set objRange = Nothing
Set objWB = Nothing
End Sub
Bis zur Inputbox funktioniert es, dann kommt Fehlermeldung, dass Eigenschaft oder Objekt nicht unterstützt wird. Mein VBA-Verständnis ist leider zu gering um den Fehler zu erkennen.
Hat jemand eine Idee?
Der Code wird bisher dafür genutzt, Daten einer markierten Zeile einer anderen Datei zu übernehmen. Nun bei Übernahme (Quell/Zieldatei ist identisch) hängt es sich auf.
Danke für jede Unterstützung!
Gruß,
Patrick