ich habe bei meiner Tabelle wieder mal einen Fehler. Ich hoffe das ich euch damit bald nicht mehr belästigen muss. Und zwar läuft folgendes Script bei bestimtmen Rechner auf Fehler. bei der Zeile: Set wsakt
Die Fehlermeldung lautet:
Fehler beim Komilieren Projekt oder Bibliothek nicht gefunden.
Ich habe versucht "selber" die Variablen zu definieren
BsP: wsakt as String,
und dann den SET Befehel weggenommen, aber dann kommt eine Fehlermeldung in Zeile
"(Trim(wsakt.Cells(13, 8)."
Sub Zellinhalt_trennen()
'** Trennen von Zellinhalten an einem vorgegebenen Trennzeichen
'** Dimensionierung der Variablen
Dim lngZ As Long
Dim strTeilstring() As String
Dim strTrennzeichen As String
Dim LngY As Long
ThisWorkbook.Sheets("Adressetikett").Range("A3:A9").ClearContents
ThisWorkbook.Sheets("Adressetikett").Range("A1").ClearContents
If Sheets("Adressetikett").Cells(14, 2).Value = True Then Sheets("Adressetikett").Cells(1, 1). _
_
_
Value = "Postversand"
If Sheets("Adressetikett").Cells(13, 2).Value = True Then Sheets("Adressetikett").Cells(1, 1). _
_
_
Value = "Hauspost"
If Sheets("Adressetikett").Cells(12, 2).Value = True Then Sheets("Adressetikett").Cells(1, 1). _
_
_
Value = "Selbstabholung"
If Sheets("Adressetikett").Cells(1, 1).Value = "" Then Exit Sub
'** Vorgaben definieren
Set wsakt = ThisWorkbook.Sheets("Auftrag_Kopierzentrale")
Set wsZiel = ThisWorkbook.Sheets("Adressetikett")
'lngZ = ("H13:AH13") '13 'Startzeile
strTrennzeichen = "," 'Trennzeichen festlegen z.B. Komma(,) Semikollon(;) Bindestrich(-) etc.
'** Durchlaufen aller Datenzeilen
'For x = 12 To 13
'** Teilstring am Delimiter auslesen
strTeilstring = Split(Trim(wsakt.Cells(13, 8).Value), strTrennzeichen)
LngY = 3
'** Durchlaufen des gesamten Arrays einer Zelle vom ersten bis zum letzten Wert
For A = LBound(strTeilstring) To UBound(strTeilstring)
'** Array-Elemente nacheinander eintragen
wsZiel.Cells(LngY, 1).Value = Trim(strTeilstring(A))
'** Zeilenzähler erhöhen
LngY = LngY + 1
Next A
'Next x
Application.ScreenUpdating = False
With Sheets("Adressetikett")
.Visible = True
.PrintOut
.Visible = False
End With
Application.ScreenUpdating = True
Worksheets("Auftrag_Kopierzentrale").Activate
End Sub