Übertragung von Tabelleninhalt in bestimmte Zellen
17.04.2024 08:02:25
Rudelgemüse
ich bin noch ein blutiger Anfänger was VBA betrifft und habe damit vor 2 Wochen angefangen mich selbständig reinzuarbeiten. Leider komme ich nicht weiter bei meinem Code.
Mein Ziel ist das kopieren von Werten aus einem Sheet in ein vorgefertigtes (nicht Tabellen Format), d.h. die Werte müssen in speziell vorgesehene Zellen übertragen werden auf einem weiteren Tabellenblatt. Dieser Vorgang muss dann so oft wiederholt werden wie Menge durch 25 teilbar ist.
Wenn ich es ausführe um die Übertragung der Daten zu testen, erhalte ich die Fehlermeldung: " Typen unverträglich"
Vielleicht könnt ihr mir weiterhelfen bzw. mir einen besseren Ansatz vermitteln.
Sub test()
Dim wert, zeile, spalte, J As Integer
Diam_Farbe = 0
Diam_Groesse = 0
Diam_Menge = 0
Diam_Aufm = 0
Diam_Stueck = 25
wert = 1
zeile = 2
spalte = 6
Dim neueZeile As Double
neueZeile = 0
MsgRes = 0
MsgRes = MsgBox("25 Bon's", vbYesNo, "Frage")
' MsgBox = 6 --> Yes
'MsgBox (MsgRes)
Do While wert > 0
If (MsgRes = 6) Then
Diam_Stueck = 25
neueZeile = Sheets("Tabelle1").Cells(spalte, zeile).Value / Diam_Stueck
J = CInt(neueZeile)
' MsgBox (CInt(neueZeile))
For i = 1 To J
MsgBox i
If i Mod 2 = 0 Then MsgBox "ist gerade"
If i Mod 2 = 0 Then
Sheets("Tabelle2").Cells(3, 4 + zeile).Value = Diam_Farbe 'linke Spalte
Sheets("Tabelle2").Cells(3, 5 + zeile).Value = Diam_Groesse 'linke Spalte
Sheets("Tabelle2").Cells(3, 6 + zeile).Value = Diam_Stueck 'linke Spalte
Sheets("Tabelle2").Cells(2, 3 + zeile).Value = Diam_Aufm 'linke Spalte
Else
Sheets("Tabelle2").Cells(6, 4 + zeile).Value = Diam_Farbe 'linke Spalte
Sheets("Tabelle2").Cells(6, 5 + zeile).Value = Diam_Groesse 'linke Spalte
Sheets("Tabelle2").Cells(6, 6 + zeile).Value = Diam_Stueck 'linke Spalte
Sheets("Tabelle2").Cells(5, 5 + zeile).Value = Diam_Aufm 'linke Spalte
End If
Next i
'Next
End If
Freundliche Grüße
Rudelgemüse
Anzeige