MsgBox Ausgabe nicht vollständig
07.10.2007 17:54:00
Michael
Ich habe hier einen code der mir im zutreffenden Fall die Namen der Personen in einer MsgBox ausgibt die z.B. einen fälligen Beitrag noch nicht bezahlt haben oder noch diverse persönlicher Papiere abgeben müssen. Das funktioniert im großen und ganzen auch schon ganz gut soweit.
Allerdings werden nicht alle betreffenden Personen aufgelistet. Wenn ich die Daten der Personen entsprechend manipuliere, sollten (maximal) 11 Personen aufgelistet werden. Die Liste bricht aber bereits bei der 4. oder 5. Person teilweise mitten im Satz ab.....
Ich könnte mir vorstellen dass da irgendwas mit der Dimensionierung nicht stimmt. Aber was?
Vielleicht habt Ihr eine Idee dazu?
Hier erstmal der Code. Sicher läßt sich das noch eleganter lösen, aber es es ist mein erster Gehversuch mit VBA. Und es funktioniert ja auch erstmal soweit ;-) :
Private Sub Worksheet_Activate()
Dim inZeile1 As Integer
Dim inZeile As Integer
Dim strWerte As String
Dim fotoWerte As String
Dim InfoText1 As String
Dim InfoText2 As String
Dim InfoText3 As String
Dim InfoText4 As String
For inZeile1 = 30 To 40
If Cells(inZeile1, 8) > 0 Then
strWerte = strWerte & Cells(inZeile1, 1) & Chr(13) & Chr(9) & Chr(9) & Chr(9) & _
Chr(9) & Cells(inZeile1, 8) & " R$" & Chr$(13) & "----------------------------------------------------------" & Chr(13)
End If
Next inZeile1
If strWerte = "" Then GoTo weiter
MsgBox strWerte
weiter:
For inZeile = 30 To 40
If Cells(inZeile, 9) = "n" Or Cells(inZeile, 10) = "n" Or Cells(inZeile, 11) = "n" Then
If Cells(inZeile, 9) = "n" Then InfoText1 = ": Cert.Nascim./Ident."
If Cells(inZeile, 10) = "n" Then InfoText2 = "Foto"
If Cells(inZeile, 11) = "n" Then InfoText3 = "Compr. residencia"
If Cells(inZeile, 12) = "n" Then InfoText4 = "Ficha da Matrícula"
fotoWerte = fotoWerte & Left(Cells(inZeile, 1), 10) & InfoText1 & Chr(9) & _
InfoText2 & Chr(9) & Chr(9) & InfoText3 & Chr$(9) & InfoText4 & Chr$(13) & "----------------------------------------------------------------------------------------------------------------------" & Chr(13)
InfoText1 = ""
InfoText2 = ""
InfoText3 = ""
InfoText4 = ""
End If
Next inZeile
If fotoWerte = "" Then End
MsgBox fotoWerte
End Sub