ich bin neu hier und habe eine Datei hochgeladen, weil
mein Problem schwer zu beschreiben ist.
Generell sollen die Daten von Spalten in TextBoxen einer UF eingelesen werden.
Danke und Gruß
Sigi
https://www.herber.de/bbs/user/89848.xlsm
Private Function Ang_Formular()
' Angebotsdaten anzeigen
On Error Resume Next
Dim A As Integer
Dim strANrG As String
Dim strKurzTextG As String
'Dim strLangTextG As String
Dim varMengeG As Variant
Dim strEinheit(500) As String
Dim strEinheitG As String
Dim varEprG As Variant
Dim varGPrG As Variant
Dim varGPr(500) As Variant
Dim strANr(500) As String
Dim strKurzText(500) As String
'Dim strLangText(500) As String
Dim strTexteG As String
Dim varMenge(500) As Variant
Dim varEpr(500) As Variant
Dim varNetto As Variant
Dim varBrutto As Variant
Dim intPosNr As Integer
' Werte zuordnen
loEnde = ThisWorkbook.Sheets("Zwischenspeicher").Cells(Rows.Count, 1).End(xlUp).Row
intPosNr = ThisWorkbook.Sheets("Zwischenspeicher").Cells(1, 10)
A = 1
If intPosNr "" Then
For ii = 1 To loEnde
strANr(ii) = ThisWorkbook.Sheets("Zwischenspeicher").Cells(A, 1)
varMenge(ii) = ThisWorkbook.Sheets("Zwischenspeicher").Cells(A, 2)
varMenge(ii) = FormatNumber(varMenge(ii), 2)
strEinheit(ii) = ThisWorkbook.Sheets("Zwischenspeicher").Cells(A, 3)
strKurzText(ii) = ThisWorkbook.Sheets("Zwischenspeicher").Cells(A, 4)
varEpr(ii) = ThisWorkbook.Sheets("Zwischenspeicher").Cells(A, 5)
varEpr(ii) = FormatNumber(varEpr(ii), 2)
' strLangText(ii) = ThisWorkbook.Sheets("Zwischenspeicher").Cells(A + 1, 4)
If varMenge(ii) "" And varEpr(ii) "" Then
varGPr(ii) = varMenge(ii) * varEpr(ii)
varGPr(ii) = FormatNumber(varGPr(ii), 2)
End If
A = A + 1
Next ii
strKurzText(loEnde + 1) = ThisWorkbook.Sheets("Zwischenspeicher").Cells(loEnde + 1, 4)
End If
' Ausgabe Angebot-Positionen
For ii = 1 To intPosNr
If ii
Viele Grüße
strTexte = strTexte & Replace(ThisWorkbook.Sheets("Zwischenspeicher").Cells(loEnde, 4), vbNewLine, " ") & vbLf
Private Function Ang_Formular ()
A = 1
If intPosNr "" Then
For ii = 1 To loEnde
strAnr(ii) = ThisWorkbook.Sheets("Zwischenspeicher").Cells(A, 1)
varMenge(ii) = ThisWorkbook.Sheets("Zwischenspeicher").Cells(A, 2)
varMenge(ii) = FormatNumber(varMenge(ii), 2)
strEinheit(ii) = ThisWorkbook.Sheets("Zwischenspeicher").Cells(A, 3)
strKurzText(ii) = ThisWorkbook.Sheets("Zwischenspeicher").Cells(A, 4)
varEpr(ii) = ThisWorkbook.Sheets("Zwischenspeicher").Cells(A, 5)
varEpr(ii) = FormatNumber(varEpr(ii), 2)
If varMenge(ii) "" And varEpr(ii) "" Then
varGPr(ii) = varMenge(ii) * varEpr(ii)
varGPr(ii) = FormatNumber(varGPr(ii), 2)
End If
A = A + 1
Next ii
strKurzText(loEnde + 1) = ThisWorkbook.Sheets("Zwischenspeicher").Cells(loEnde + 1, 4)
End If
For ii = 1 To intPosNr
If ii
Private Function Ang_Formular()
' Angebotsdaten anzeigen
On Error Resume Next
Dim strANr As String
Dim strEinheit As String
Dim strTexte As String
Dim varMenge As Variant
Dim varEpr As Variant
Dim varGPr As Variant
loEnde = 1
Do Until IsEmpty(ThisWorkbook.Sheets("Zwischenspeicher").Cells(loEnde, 4))
strANr = strANr & ThisWorkbook.Sheets("Zwischenspeicher").Cells(loEnde, 1) & vbLf
varMenge = varMenge & ThisWorkbook.Sheets("Zwischenspeicher").Cells(loEnde, 2) & vbLf
strEinheit = strEinheit & ThisWorkbook.Sheets("Zwischenspeicher").Cells(loEnde, 3) & _
vbLf
strTexte = strTexte & Replace(ThisWorkbook.Sheets("Zwischenspeicher").Cells(loEnde, 4), _
vbNewLine, " ") & vbLf
varEpr = varEpr & ThisWorkbook.Sheets("Zwischenspeicher").Cells(loEnde, 5) & vbLf
varGPr = varGPr & ThisWorkbook.Sheets("Zwischenspeicher").Cells(loEnde, 6) & vbLf
loEnde = loEnde + 1
Loop
' varMenge = FormatNumber(varMenge, 2)
' varEpr = FormatNumber(varEpr, 2)
' varGPr = FormatNumber(varGPr, 2)
txtAngGesPos.Text = Left(strANr, Len(strANr) - 1)
txtAngGesMenge.Text = Left(varMenge, Len(varMenge) - 1)
txtAngGesEinheit.Text = Left(strEinheit, Len(strEinheit) - 1)
txtAngGesTexte.Text = Left(strTexte, Len(strTexte) - 1)
txtAngGesEP.Value = Left(varEpr, Len(varEpr) - 1)
txtAngGesGP.Value = Left(varGPr, Len(varGPr) - 1)
End Function
Viele Grüße