Kaffeesatz... :D
20.04.2005 18:34:43
Mark
Hi
evtl, habe ich es nur falsch zusammen kopiert, aber es funktioniert noch net
Hier der Code:
Sub importData()
Dim Msg As String
Msg = "ACHTUNG!!! Alle Inhalte der 'Ausgabetabelle' gehen verloren" & vbCr & "" & vbCr & "Soll der Vorgang fortgesetzt werden?"
Select Case MsgBox(Msg, vbCritical Or vbOKCancel, "Microsoft Excel")
Case vbOK
' OK
Application.Run "Kontoumsätze.xls!Unprotect"
Sheets("Import").Select
'Aktualisierung der Daten
Range("A3").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
'Angleich der Spaltenbreite an den Inhalt
Cells.Select
Cells.EntireColumn.AutoFit
'Formelprobleme für gefilterten Kontonamen und gefilterten Verwendungszweck 1 lösen
Sheets("Import").Select
Range("AI3").Select
ActiveCell.FormulaR1C1 = _
"=IF(RC[-8]=""Park Mor nasee GmbH & Co.KG"",""Park Moränasee GmbH & Co.KG"",IF(RC[-8]<>"""",RC[-8],IF(RC[-32]="""","""",IF(RC[-24]<>"""",""---"",IF(RC[-9]="""",RC[-26],""---"")))))"
Range("AJ3").Select
ActiveCell.FormulaR1C1 = _
"=IF(RC[-33]="""","""",IF(RC[-25]="""",""---"",RC[-25]))"
Range("AI3:AJ3").Select
Selection.AutoFill Destination:=Range("AI3:AJ300"), Type:=xlFillDefault
Range("AI3:AJ300").Select
Range("A1").Select
Application.Run "Kontoumsätze.xls!updateOutput"
Application.Run "Kontoumsätze.xls!Unprotect"
'Autofilter 3 auf Nichtleer setzen
Sheets("Ausgabe").Select
Selection.AutoFilter Field:=3, Criteria1:="<>"
Range("A1").Select
'Schutz einschalten
Application.Run "Kontoumsätze.xls!Protect"
Application.ScreenUpdating = True
Case vbCancel
' Abbrechen
Application.Run "Kontoumsätze.xls!Protect"
End Select
End Sub
ciao, danke dir!
Mark