Thema Datum  Von Nutzer Rating
Antwort
07.05.2014 10:14:11 MissNobody
NotSolved
07.05.2014 11:36:46 Gast37570
NotSolved
07.05.2014 11:58:14 MissNobody
NotSolved
Blau Addieren und Sortieren zweier Spalten
07.05.2014 13:04:25 Gast76499
Solved
07.05.2014 13:41:54 MissNobody
NotSolved
07.05.2014 14:31:18 Gast26589
NotSolved
07.05.2014 15:22:12 MissNobody
NotSolved
07.05.2014 16:01:01 Gast48465
Solved
07.05.2014 16:12:14 MissNobody
NotSolved
07.05.2014 17:29:11 Gast19822
NotSolved

Ansicht des Beitrags:
Von:
Gast76499		 Datum:
07.05.2014 13:04:25		 Views:
1121		 Rating:
     
Antwort:
 Nein
Thema:
Addieren und Sortieren zweier Spalten

>> oh das ist echt ein guter Tipp.. Habe die Tippfehler jetzt korrigiert, aber leider läuft das Programm noch immer nicht...

Nun gut, dann schauen wir mal genauer hin:

Option Explicit

Private Sub CommandButton1_Click()
  
  Dim wks As Excel.Worksheet
  Dim lngLetzteZeile As Long
  
  Set wks = ActiveWorkbook.Worksheets("Vergleich")
  
  With wks
    
    lngLetzteZeile = .Cells(.Rows.Count, "A").End(xlUp).Row
    If lngLetzteZeile < 15 Then Exit Sub
    
    With .Range("D15:D" & lngLetzteZeile)
      'berechne: D := B + C
      .FormulaR1C1 = "=RC[-2]+RC[-1]"
      'Formeln durch deren Ergebnis ersetzen
      .Value = .Value
    End With
    
    With .Range("A15:D" & lngLetzteZeile)
      'nach Spalte 2 (B) sortieren
      .Sort Key1:=.Cells(2), Order1:=xlDescending, _
            DataOption1:=xlSortTextAsNumbers, _
            SortMethod:=xlPinYin
    End With
    
  End With
  
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
07.05.2014 10:14:11 MissNobody
NotSolved
07.05.2014 11:36:46 Gast37570
NotSolved
07.05.2014 11:58:14 MissNobody
NotSolved
Blau Addieren und Sortieren zweier Spalten
07.05.2014 13:04:25 Gast76499
Solved
07.05.2014 13:41:54 MissNobody
NotSolved
07.05.2014 14:31:18 Gast26589
NotSolved
07.05.2014 15:22:12 MissNobody
NotSolved
07.05.2014 16:01:01 Gast48465
Solved
07.05.2014 16:12:14 MissNobody
NotSolved
07.05.2014 17:29:11 Gast19822
NotSolved