|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
 Duplizieren/Weiterführen des Codes |
03.02.2019 15:24:45 |
Tobui |
|
|
|
03.02.2019 20:57:30 |
Gast01234 |
|
|
|
04.02.2019 10:35:37 |
Gast20173 |
|
|
|
04.02.2019 10:37:12 |
Gast20173 |
|
|
|
05.02.2019 13:51:21 |
Tobui |
|
|
|
05.02.2019 16:43:03 |
Gast 20173 |
|
|
Von:
Tobui |
Datum:
03.02.2019 15:24:45 |
Views:
859 |
Rating:
|
Antwort:
|
Thema:
Duplizieren/Weiterführen des Codes |
|
Hallo zusammen,
ich versuche eine Tabelle (Tabelle2) auszufüllen. Bei der Berechnung beziehe ich teilweise auf ein anderes Tabellenblatt (Tabelle1). Hier ist der Code für die erste Spalte in der die Berechnung beginnt. Die Berechnung
beginnt in Spalte D
-------
Sub 1()
Dim a As Integer 'a als Tabellenreihe'
Dim b As Integer 'b als Tabellenreihe'
Dim c As Integer 'c als Tabellenreihe'
Dim f As Integer 'f als Tabellenspalte'
Dim g As Integer 'g als Tabellenspalte'
f = 4 'Spalte D als Start'
For a = 2 To 10
Cells(a, f) = "=Tabelle1!RC"
Next a
For b = 12 To 15
Cells(b, f) = "=Tabelle1!R[1]C"
Next b
For c = 18 To 230
Cells(c, f) = "=IF(R4C4=0,0,Tabelle1!R[1]C*Tabelle2!R4C4*Tabelle2!R6C4*Tabelle2!R7C4/Tabelle2!R8C4*Tabelle2!R9C4)"
Next c
------------------------------------------------------------------------------------------------------
Zwischeninfo
Weitergehen würde die nächste Spalte dann nach demselben Muster. Ich würde also nun auf Spalte E berechnen, die ich hier als "g" definiert habe
---------------------------------------------------------------------------------------------------------------
(Code-Weiterführung)
g = f + 1
For a = 2 To 10
Cells(a, g) = "=Tabelle1!RC"
Next a
For b = 12 To 15
Cells(b, g) = "=Tabelle1!R[1]C"
Next b
For c = 18 To 230
Cells(c, g) = "=IF(R4C5=0,0,Tabelle1!R[1]C*Tabelle2!R4C5*Tabelle2!R6C5*Tabelle2!R7C5/Tabelle2!R8C5*Tabelle2!R9C5)"
Next c
End Sub
-----------------------------------------------------------------------------------------------------
Ist es möglich die Variable f automatisch in die Variable g zu tauschen ohne den Code von Hand zu ändern? Ist dasselbe für die "C", also die Spalten möglich, die ich im letzten Schritt bei der IF-Eingabe ändern muss?
Manche Tabelle haben leider teilweise hunderte Spalten. Da würde ich gerne einmal den Code komplett schreiben bzw. "schreiben lassen" sofern dies überhaupt möglich ist.
Vielen Dank für Eure Bemühungen im Voraus!
Gruß
Tobui
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Duplizieren/Weiterführen des Codes |
03.02.2019 15:24:45 |
Tobui |
|
|
|
03.02.2019 20:57:30 |
Gast01234 |
|
|
|
04.02.2019 10:35:37 |
Gast20173 |
|
|
|
04.02.2019 10:37:12 |
Gast20173 |
|
|
|
05.02.2019 13:51:21 |
Tobui |
|
|
|
05.02.2019 16:43:03 |
Gast 20173 |
|
|