Office: Worksheet definieren

Hallo zusammen! Ich steh grad mächtig auf´m Schlauch. Ich muss das unten genannte Wks (das ja geöffnet im Hintergrund ist) definieren, da sonst die Ausführung des Codes in der Datei Kunden weiterläuft. Wahrscheinlich hab ich was vergessen und komm nicht drauf. Bitte helft. Hier der Code:

HTML:

Private Sub CommandButton1_Click()
Dim wbkKundenDatei As Workbook
Dim wbkKundenstammdaten As Workbook
Dim wbkRechnungGrabpflege As Workbook 'Z
Dim wksZiel As Worksheet
Dim wksZiel1 As Worksheet 'Z
Dim lngZeile As Long
Dim wksQuelle As Worksheet
Dim lngLetzteZeileSpalteA As Long
Application.ScreenUpdating = False
Application.DisplayAlerts = False

Set wbkKundenstammdaten = Workbooks("Kundenstammdaten.xlsm")
Set wksQuelle = wbkKundenstammdaten.Worksheets("Tabelle1")

Set wbkKundenDatei = Workbooks.Open("C:\Users\werner\Pictures\Desktop\Rechnung\Kunden.xlsx")
Set wksZiel = wbkKundenDatei.Worksheets("Tabelle1")

Set wbkRechnungGrabpflege = Workbooks.Open("C:\users\werner\pictures\desktop\rechnung\rechnungGrabpflege.xlsm") 'Z
Set wksZiel1 = wbkRechnungGrabpflege.Worksheets("Tabelle1") 'Z

lngSpalte = 1
lngLetzteZeileSpalteA = wksZiel.Cells(wksZiel.Rows.Count, lngSpalte).End(xlUp).Row

wksZiel.Cells(lngLetzteZeileSpalteA + 1, 1).Value = wksQuelle.Cells(3, 3).Value
wksZiel.Cells(lngLetzteZeileSpalteA + 1, 2).Value = wksQuelle.Cells(4, 3).Value
wksZiel.Cells(lngLetzteZeileSpalteA + 1, 3).Value = wksQuelle.Cells(5, 3).Value
wksZiel.Cells(lngLetzteZeileSpalteA + 1, 4).Value = wksQuelle.Cells(6, 3).Value

wksZiel.SaveAs Filename:="C:\Users\werner\Pictures\Desktop\Rechnung\Kunden.xlsx"

wbkKundenDatei.Close

wksZiel1.Cells(9, 1).Value = wksQuelle.Cells(3, 3).Value 'Hier werden Kd.-Daten in´s Re.-formular eingetragen

'Und ab hier passt´s nicht mehr. Ich müßte dem folgenden Wks klarmachen 'dass in den nächsten drei Zeilen die Datei Kundenstammdaten gemeint ist 'und kriegs einfach nicht hin.
Worksheets("Tabelle1").Range("C3:C13").Select
Selection.ClearContents

Worksheets("Tabelle1").Range("C3").Select

Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

:)

 

Hallo Werner,

« Gruß Sepp »

 

Hallo Sepp
Vielen Dank für deine Antwort! Kennst du den Spot wo jemand seinen PC aus dem Fenster schmeisst? Manchmal versteh ich´s! *biggrin.gif*
Kurz zur Erklärung: Quelle bezeichnet ein Formular das ursprünglich dazu gedacht war Kundendaten schnell in das Kundenformular zu übertragen. Deshalb habe ich z.B. in Zeile 3 die Spalten C,D,E,F,G und H zu einer Zelle zusammen-gefügt. Natürlich ist das auch in allen anderen Zeilen so.

Leider bringt er nun in der Zeile .Range ("C3:C13").ClearContents folgende Fehlermeldung Laufzeitfehler 1004 "Kann Teil einer verbundenen Zelle nicht ändern".*mad.gif*

Hast du eine Erklärung dafür!
Vielen Dank Werner

 

probiers mal so:

Range("C3:C13").Select
Selection.ClearContents

 

Nö geht leider auch nicht!
Die Select Methode konnte nicht ausgeführt werden!?
Vielen Dank aber auch dir für dein Brainstorming

 

kann mir nicht erklären das dies nicht funktionieren soll(habs ja getestet und bei mir funktioniert es) in Excel 2003

kann es vielleicht daran liegen, das der Verbundene Zellbereich nicht C3:C13 ist ???

kontrollier mal deine Verbundene Zellen.

eine andere Fehlerquelle kann ich mir nicht mehr vorstellen

Gruss
Harald

 

Hallo
bei verbundenen Bereichen musst Du den gesamten Bereich angeben.
Code:

@Harald

Ja.

gruss hary

 

Range("C3:H3").Select ' Verbundenen Zellbereich abstimmen
Selection.ClearContents

weis nicht obs machbar ist aber eine Beispieldatei wär nicht schlecht

Harald

 

mit mir den Kopf zerbrochen haben.
Ich habs jetzt endlich (Nach zwei Tagen grübeln und ausprobieren) rausgefunden. An alle die´s interessiert hier die Lösung:

With wksQuelle
.Activate
Worksheets("Tabelle1").Range("C3:C13").Select
Selection.ClearContents
Worksheets("Tabelle1").Range("C3").Select
End With

Der Tip mit With war Gold wert, musste ihn nur noch entsprechend umbauen. No Brain, No Pain! Manchmal ist das so bei mir*grins
Gruss an alle Werner