Thema Datum  Von Nutzer Rating
Antwort
Rot For-Schleife
17.08.2023 16:51:21 khafif
Solved
18.08.2023 00:30:00 ralf_b
NotSolved
18.08.2023 06:41:41 Flatulenz
NotSolved
30.08.2023 15:24:43 Gast21167
Solved

Ansicht des Beitrags:
Von:
khafif
Datum:
17.08.2023 16:51:21
Views:
738
Rating: Antwort:
 Nein
Thema:
For-Schleife

Hallo zusammen,

ich habe die folgende Beispieltabelle:

Spalte A Spalte P Spalte F Spalte G Bestellbestand
Holz 45 6 4  
Holz Ergebnis 45 6 4  
Papier 6 3 0  
Papier Ergebnis 6 3 0  
Tier 83 4 8  
Tier Ergebnis 83 4 8  
- 5 1 7  
- Ergebnis 5 1 7  
Gesamtergebnis 278 28 38  

 

Ich möchte, dass in den Zeilen "...Ergebnis" die Zahl in der Spalte mit der Überschrift "Spalte P" mit der Zahl in der Spalte mit der Überschrift "Spalte F" multipliziert wird. Das Ergebnis soll in diesselbe Zeile nur in Spalte Bestellbestand erscheinen. Das ist mein Code:  

Das Problem ist, dass der Code nur bis Zeile 4 funktioniert. Es wird einfach nur eine neue Spalte mit der Überschrift "Bestellbestand" eingefügt, wie in der Tabelle zu sehen ist. 

Kann mir jemand helfen?

 

Sub SpalteBestellbestand()

  1.  
  2. Range("A1").End(xlToRight).Select
  3. Selection.Offset(0, 1).Select
  4. Selection.Value = "Bestellbestand"
  5.  
  6.  
  7.  
  8.  
  9. AnzahlSpalten = ActiveSheet.UsedRange.Columns.Count    'Anzahl Spalten
  10. AnzahlZeilen = Cells(Rows.Count, 1).End(xlUp).Offset(-1, 0).Rows.Row   'Vorletzte Zeile
  11.  
  12. colNum1 = WorksheetFunction.Match("*P", ActiveSheet.Range("1:1"), 0)     'Spaltennummer Spalte P
  13. colNum2 = WorksheetFunction.Match("*F", ActiveSheet.Range("1:1"), 0)     'Spaltennummer Spalte F
  14.  
  15.  
  16.  
  17. For i = 1 To AnzahlZeilen Step -1
  18.  
  19. If Cells(i, 1).Value Like "*Ergebnis" Then
  20. Cells(i, AnzahlSpalten).Value = Cells(i, colNum1) * Cells(i, colNum2)
  21. End If
  22.  
  23. Next i
  24.  
  25.  
  26. End Sub

 


Ihre Antwort
  • 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: Name: Email:

 
 

  • 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
Rot For-Schleife
17.08.2023 16:51:21 khafif
Solved
18.08.2023 00:30:00 ralf_b
NotSolved
18.08.2023 06:41:41 Flatulenz
NotSolved
30.08.2023 15:24:43 Gast21167
Solved