Thema Datum  Von Nutzer Rating
Antwort
29.03.2020 18:06:24 Marco
NotSolved
29.03.2020 18:13:01 Mase
NotSolved
29.03.2020 19:44:29 Gast80831
NotSolved
30.03.2020 08:41:07 Mase
*****
NotSolved
02.04.2020 07:36:40 Marco
NotSolved
02.04.2020 08:58:50 Mase
*****
NotSolved
02.04.2020 09:40:28 Gast54435
NotSolved
02.04.2020 14:49:28 Mase
*****
NotSolved
03.04.2020 08:46:50 Marco
NotSolved
03.04.2020 09:02:06 Mase
*****
NotSolved
03.04.2020 10:24:29 Gast93081
NotSolved
03.04.2020 11:41:05 Mase
*****
NotSolved
03.04.2020 12:08:42 Marco
NotSolved
03.04.2020 12:29:58 Mase
NotSolved
06.04.2020 07:05:42 Gast49904
NotSolved
12.04.2020 10:42:40 Gast29349
NotSolved
Rot Range ab letzte Zelle ohne Inhalt löschen
 13.04.2020 17:53:49 Mase
NotSolved
13.04.2020 18:05:37 Gast21965
NotSolved

Ansicht des Beitrags:
Von:
Mase		 Datum:
13.04.2020 17:53:49		 Views:
951		 Rating:
     
Antwort:
  Ja
Thema:
Range ab letzte Zelle ohne Inhalt löschen

Hi,

manchmal hilft mir das kommentieren einzelner Zeilen, um den Fehler zu finden.

Ich habe Deinen Code mal kommentiert und mit ner MessageBox innerhalb der Zeile versehen, sodass Dir der aktuelle Inhalt von der Variablen Summe ausgegeben wird. Am Besten mal den Code via F8 in EInzelschritten ausführen und das Ergebnis verfolgen.

Anschließend dasselbe mit dem modifizierten Code von mir durchführen.

 

Hinweis:

Messagebox kann nervig sein - ich würde auf Debug.Print bzw das lokale Anzeigenfenster ausweichen . Aber das wirste mit der Zeit noch selbst hinkommen.

Namenskonvention, Deklaration und Definition von Variablen, With-Block usw wird sicherlich bald Thema werden. Geändert habe Ich bewusst nichts weiter.

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Option Explicit
 
Sub SchleifeAdierenDerWerte()
  
    Dim i As Integer
    Dim Summe As Integer
          
    For i = 1 To 10 Step 1
        'Merke dir den Wert aus Spalte B und der Zeilennummer,
        'welche Sder Schlöeifenzähler i aktuell liefert, in der Variablen Summe
        Summe = (ActiveWorkbook().Sheets("Spiele").Cells(i, 2))
        'Zähle nun den aktuellen Wert von i dazu
        Summe = (Summe + i)
        'Schreibe das Ergebnis in B11
        ActiveWorkbook().Sheets("Spiele").Cells(11, 2).Value = Summe
        MsgBox Summe, vbOKOnly, "aktueller inhalt der Vairablen Summe"
    'mach weiter mit dem nächsten i
    Next i
  
End Sub
 
Sub modSchleifeAdierenDerWerte()
  
    Dim i As Integer
    Dim Summe As Integer
    'initialisiere die Variable Summe ausserhalb der Schleife;
    'ist kein muss, machts aber leserlicher, finde ich;
    Summe = 0
    For i = 1 To 10 Step 1
        Summe = Summe + (ActiveWorkbook().Sheets("Spiele").Cells(i, 2))
        MsgBox Summe, vbOKOnly, "aktueller inhalt der Vairablen Summe"
    Next i
     
    'Genügt ausserhalb der Schleife;
    ActiveWorkbook().Sheets("Spiele").Cells(11, 2).Value = Summe
     
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
29.03.2020 18:06:24 Marco
NotSolved
29.03.2020 18:13:01 Mase
NotSolved
29.03.2020 19:44:29 Gast80831
NotSolved
30.03.2020 08:41:07 Mase
*****
NotSolved
02.04.2020 07:36:40 Marco
NotSolved
02.04.2020 08:58:50 Mase
*****
NotSolved
02.04.2020 09:40:28 Gast54435
NotSolved
02.04.2020 14:49:28 Mase
*****
NotSolved
03.04.2020 08:46:50 Marco
NotSolved
03.04.2020 09:02:06 Mase
*****
NotSolved
03.04.2020 10:24:29 Gast93081
NotSolved
03.04.2020 11:41:05 Mase
*****
NotSolved
03.04.2020 12:08:42 Marco
NotSolved
03.04.2020 12:29:58 Mase
NotSolved
06.04.2020 07:05:42 Gast49904
NotSolved
12.04.2020 10:42:40 Gast29349
NotSolved
Rot Range ab letzte Zelle ohne Inhalt löschen
 13.04.2020 17:53:49 Mase
NotSolved
13.04.2020 18:05:37 Gast21965
NotSolved