Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Formel in jeder dritten Spalte einfügen

Betrifft: Formel in jeder dritten Spalte einfügen von: Peter Weber
Geschrieben am: 17.09.2014 10:10:12

Hallo Zusammen,

ich bitte um Eure Hilfe.
Wie müsste dieses Makro verändert werden, dass die Formel nur in jeder dritte Spalte eingefügt wird

Sub formeln()
Dim rngC As Range

Application.ScreenUpdating = False

startz = 15     'Startzeile der Tabelle
starts = 10      'Startspalte der Tabelle
With Cells(startz, starts).CurrentRegion


Start = 10

    For Each rngC In .Offset(2, Start).Resize(.Rows.Count - 1, .Columns.Count - 1)
           
        If IsError(rngC) Then
            GoTo 1
            Else
            If Not rngC.HasFormula And rngC <> "" And Rng = 0 Then
                rngC.FormulaR1C1 = "=" & Replace(rngC.Value, ",", ".") & "*rc10/100"
            End If
        End If
1:
   Next
End With

MsgBox "Fertig!"
 
End Sub

Vielen Dank im voraus für Eure Hilfe,
LG, Peter

  

Betrifft: AW: Formel in jeder dritten Spalte einfügen von: Daniel
Geschrieben am: 17.09.2014 10:48:19

Hi

statt:

for each rngC in Range(xxxx) 
   Mach was mit rngC
Next

folgendermassen
Dim Zeile as long
Dim Spalte as Long
for Zeile = 1 to Range(xxxx).Rows.Count
    For Spalte = 3 To Range(xxxx).Columns.Count Step 3
        Mach was mit Range(xxxx).Cells(Zeile, Spalte)
    Next Spalte
Next Zeile
Gruß Daniel


  

Betrifft: AW: Formel in jeder dritten Spalte einfügen von: Peter Weber
Geschrieben am: 18.09.2014 08:59:21

Hallo Daniel,

habe gestern mit deine Hilfe mein Makro erstellt.
Nahezu 450000 Werte wurden berechnet und ich habe wieder dazugelernt.

Vielen Dank
LG, Peter


 

Beiträge aus den Excel-Beispielen zum Thema "Formel in jeder dritten Spalte einfügen"