Vielleicht kann mir jemand mit VBA Kenntnisse helfen
Ich möchte mit einer Schleife eine Tabelle erstellen lassen. Breite und Länge werden durch InputBox eingegeben. Nun soll ein Raster ausgegeben werden; Am Anfang sowie am Ende werden jeweils 40 abgezogen.
Schrittweise soll dann z.B. 1000 abgezogen werden und in vorletzter Spalte bzw. Reihe soll der Restwert eingetragen werden.
Datei mit Skizze für das Raster sind beigefügt.
Im voraus Vielen Dank
hier mal zum Verständnis ein Tabellenausschnitt. Der ist jetzt zwar mit 30, aber für's Prinzip auch ok. Eingegeben werden jeweils 1400.
Der Endwert in der letzten benötigten Spalte wäre bei 30 dann jeweils 1370. In der ersten Spalte kommt die 30 rein. Die dazwischen benötigte Spaltenzahl muss ermittelt werden.
Hier steht allerdings die Frage, wo der Wert "z.B. 1000" festgelegt wird. Per Inputboxen würde ich nur die beiden Grenzwerte 1400 (senkrecht) und 1400 (waagerecht), erhalten. In meiner Erklärung sind die Werte gleich, in der realität sicher meist unterschiedlich, daher 2 Inputboxen oder ich gebe die Werte in einer ein, z.B. durch Semikolon getrennt.
In dem Blatt mit dem 30er Muster werden jeweils 610 abgezogen. Ich brauche also zwischen der 30 und der 1370 folgende Spalten:
1370-610 = 760
760-610 = 150
Das war's hier auch schon, 150 - 610 ist < 30.
Arbeitsblatt mit dem Namen 'Tabelle1'
B
C
D
E
F
G
H
I
2
30
150
760
1370
Länge
1400
3
30
Breite
1400
4
150
5
760
6
1370
7
Verwendete Systemkomponenten: [Windows (32-bit) NT :.00] MS Excel 2016
Danke dir für deine Antwort "schauan"
Das Raster mit den 610 funktioniert ja auch. bei dem werden jeweils am Anfang und Ende zuerst 30 und dann 120 (30+120 =150) abgezogen, bzw Spalten und Reihen gemacht.
Das hatte ich schon hin bekommen.
Jedoch wollte ich nun ein Raster haben, in dem jeweils nur 40 am Anfang und Ende abgezogen wird,
und zwischendurch z.B. 1000
d.h. beim Raster 1000: wenn ich eine Breite von 4500 habe, dann müsste es so sein das 40, 1040, 2040, 3040, 4040, 4460.
Und das bekomme ich nicht hin.
ich habe jetzt mal nicht nach dem Fehler gesucht. Dein code ist recht umfangreich für diese Aufgabe und Du hast für jede Variante einen eigenen. Daher habe ich mal einen flexiblen geschrieben, hier nur für die waagerechten Werte und ohne die Zellrahmen.
Die 4 Ausgangswerte solltest Du entweder alle abfragen, oder Du schreibst zumindest die 40 und die 1000 oder 30 und 610 usw. irgendwo im Blatt fest hin und holst sie Dir von dort. Du könntest dazu sogar den Blattnamen verwenden, nenne es z.B. 40-1000.
Code:
Sub test()
'Variablendeklaration
'Integer
Dim i1%, i2%, i3%, i4%, iCnt%
'String, Variant
Dim strWerte$, arrWerte
'Werte festlegen - später über Inputbox oder andere Quellen
i1 = 40
i2 = 4500
i3 = 8500
i4 = 1000
'Endwert festlegen / um Startwert verringern
i2 = i2 - i1
'Schleife solange Endwert>=Wert
Do While i2 >= i1
'Wert merken
strWerte = strWerte & i2 & ";"
'Endwert um Schrittweite verringern
i2 = i2 - i4
'Ende Schleife solange Endwert>=Wert
Loop
'Startwert hinzufuegen
strWerte = strWerte & i1
'Werte in ein Array wandeln
arrWerte = Split(strWerte, ";")
'Schleife ueber alle Werte im Arrray, rueckwaerts
For iCnt = UBound(arrWerte) To 0 Step -1
'Wert in Zelle eintragen - hier ab A1
Cells(1, UBound(arrWerte) - iCnt + 1) = arrWerte(iCnt)
'Ende Schleife ueber alle Werte im Arrray
Next
End Sub
. \\\|/// Hoffe, geholfen zu haben. ( ô ô ) Grüße, André aus G in T ooO-(_)-Ooo (Excel 97-2019+365)
Hab recht vielen Dank für deine Mühe.
Jedoch ist es leider nicht so wie ich es wollte.
Bei deinem Test zählt er die ganze Reihe Rückwärts.
Ich wollte jedoch etwas anderes (Siehe neues Raster2)
Vielleicht hab ich mich bei meiner ersten Frage falsch ausgedrückt
schaue mal in Deine erste Datei bei dem 610er Raster:
Das geht doch rückwärts, oder?
Jetzt ist die Frage, wodurch entschieden wird, ob es rückwärts oder vorwärts geht.
Arbeitsblatt mit dem Namen 'Raster 610'
B
C
D
E
F
G
H
I
J
K
19
30
150
760
1370
1980
2590
3200
3350
3470
Verwendete Systemkomponenten: [Windows (32-bit) NT 10.00] MS Excel 2016
Sub Raster(rngRaster As Range, lngLänge As Long, lngBreite As Long, lngSchritt As Long)
Dim lngAnz As Long
Dim lngPos As Long
lngAnz = WorksheetFunction.RoundUp((lngLänge - 80) / lngSchritt, 0) + 1
For lngPos = 1 To lngAnz
If lngPos = lngAnz Then
rngRaster.Offset(lngPos - 1, 0) = lngLänge - 40
Else
rngRaster.Offset(lngPos - 1, 0) = 40 + lngSchritt * (lngPos - 1)
End If
Next lngPos
lngAnz = WorksheetFunction.RoundUp((lngBreite - 80) / lngSchritt, 0) + 1
For lngPos = 1 To lngAnz
If lngPos = lngAnz Then
rngRaster.Offset(0, lngPos - 1) = lngBreite - 40
Else
rngRaster.Offset(0, lngPos - 1) = 40 + lngSchritt * (lngPos - 1)
End If
Next lngPos
End Sub
helmut
Für mich ist die Möglichkeit in Excel an Zellen und Bereichen Namen zu vergeben die wichtigste Funktionalität. Sie macht Formeln und den VBA-code verständlicher. Für Makros gilt die Regel: "Nur über benannte Bereiche auf den Inhalt der Zellen zugreifen."
Und wofür sind Regeln da? Um nachzudenken bevor man sie bricht.
Für mich ist die Möglichkeit in Excel an Zellen und Bereichen Namen zu vergeben die wichtigste Funktionalität. Sie macht Formeln und den VBA-code verständlicher. Für Makros gilt die Regel: "Nur über benannte Bereiche auf den Inhalt der Zellen zugreifen."
Und wofür sind Regeln da? Um nachzudenken bevor man sie bricht.
Das 610er Raster funktioniert einwandfrei. Jedoch wird bei diesem am Anfang und Ende zuerst 30 und dann 120 abgezogen.
Dann fängt es am Anfang ab 150 (30+120) mit jeweils 610 er Schritten an zu zählen.
Raster Werte von links nach rechts 30, 150, 760, 1370, 1980, 2590 usw. , am Ende (z.B. breite 5000) 4850, 4960
Beim 1000 er Raster soll es am Anfang und Ende jeweils nur einen Wert (hier 40) abziehen.
Dann wären die Raster Werte von links nach rechts 40, 1040, 2040, 3040, 4040 usw., am Ende (z.B. breite 5000) 4960
Bei deiner Schleife wird vom Endwert z.B. 5000 abgezogen: 4960, 3960, 2960 usw.
Es macht was es soll, jedoch müsste hier bei "0" angefangen werden, damit auf Breite und Länge jeweils der Anfangswert erscheint
Sonst kann man keine Raster bzw. Rahmen um die Werte eingeben
