AW: noch passt es nicht ganz
04.08.2006 23:18:02
Uwe
Hallo Franz,
habe mal so umgebaut...
Private Sub CommandButton1_Click() 'Textbausteine in Tabelle Text kopieren
Dim wb As Workbook
Set wb = ActiveWorkbook
' oder falls Texbausteine in andere Mappe eingefügt werden sollen
' Set wb = Workbooks("Testmappe.xls")
'gewählte Textbausteine kopieren
For I = 1 To Boxen
If Me.Controls("cbText" & Format(I, "00")).Value = True Then
Select Case "cbText" & Format(I, "00")
Case "cbText01"
wksBaustein.Cells(Zeile1 + I - 1, "A").Range("A1:G1").Copy wb.Sheets("Text").Cells(1, "A")
Case "cbText02"
wksBaustein.Cells(Zeile1 + I - 1, "A").Range("A2:G2").Copy wb.Sheets("Text").Cells(2, "A")
Case "cbText03"
wksBaustein.Cells(Zeile1 + I - 1, "A").Range("A3:G3").Copy wb.Sheets("Text").Cells(3, "A")
Case "cbText04"
wksBaustein.Cells(Zeile1 + I - 1, "A").Range("A4:G7").Copy wb.Sheets("Text").Cells(4, "A")
Case Else
'do nothing
End Select
Zeile = Zeile + 1
End If
Next I
Application.CutCopyMode = False
Unload Me
UserForm1.Show
End Sub
Private Sub UserForm_Initialize()
'hiermit wird die userform auf vollfenster gebracht
With UserForm15
.Height = Application.Height
.Width = Application.Width
End With
Dim I As Long
Set wksBaustein = ActiveWorkbook.Sheets("Bausteine")
Zeile1 = 1 'Zeile des 1. Textbausteinns
Boxen = 4 'Anzahl der Checkboxen
'Übernahme der Textbausteine auf die Lables im Formsheet
For I = 1 To Boxen
Me.Controls("lblText" & Format(I, "00")).Caption = wksBaustein.Cells(Zeile1 + I - 1, "A")
Next I
End Sub
in Bausteine hab ich mal testweise von A1 bis A10 jeweils bis G gefüllt also von A1-G1;A2-G2 u.s.w.
Folgendes fällt jetzt auf:
in lblText04 sieht man nur die erste zeile in der Userform.
In Text steht jetzt in A1 auch korrekt der Inhalt von Bausteine A1.
Jedoch in Text A2 steht der Inhalt aus Bausteine A3,es sollte aber A2 drin stehen.
In Text A3=A5 Bausteine
A4=A7
A5=A8
A6=A9
A7=A10
es sollte aber so aussehen
TextA1=A1 Bausteine
A2=A2
A3=A3
A4=A4-A7
hoffe es ist einigermaßen erklärt.
Vorab vielen Dank.
Gruß Uwe