Thema Datum  Von Nutzer Rating
Antwort
Rot Duplizieren/Weiterführen des Codes
03.02.2019 15:24:45 Tobui
*****
Solved
03.02.2019 20:57:30 Gast01234
NotSolved
04.02.2019 10:35:37 Gast20173
NotSolved
04.02.2019 10:37:12 Gast20173
NotSolved
05.02.2019 13:51:21 Tobui
NotSolved
05.02.2019 16:43:03 Gast 20173
NotSolved

Ansicht des Beitrags:
Von:
Tobui
Datum:
03.02.2019 15:24:45
Views:
75
Rating: Antwort:
 Nein
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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • 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 markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Duplizieren/Weiterführen des Codes
03.02.2019 15:24:45 Tobui
*****
Solved
03.02.2019 20:57:30 Gast01234
NotSolved
04.02.2019 10:35:37 Gast20173
NotSolved
04.02.2019 10:37:12 Gast20173
NotSolved
05.02.2019 13:51:21 Tobui
NotSolved
05.02.2019 16:43:03 Gast 20173
NotSolved