Berechnen

Sub berechnen_1() Dim lgCount As Long Dim lgLetzte As Long lgLetzte = Range("e2").End(xlDown).Row With Intersect(lgLetzte.Offset(0, -2)) .FormulaR1C1 = "=RC[3]-RC[2]+1" .Formula = .Value End With End With End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Berechnen

18.01.2016 09:41:50

otto

AW: Berechnen

18.01.2016 10:21:43

thomas

AW: nicht leer

18.01.2016 10:49:59

hary

AW: nicht leer

18.01.2016 11:27:17

thomas

AW: Berechnen

18.01.2016 11:35:29

Rudi

wahnsinn besten dank

18.01.2016 12:45:43

thomas

Hallo otto,
super das du mal rüber schaust.
Nein die Formel benötige ich nicht aber ich weiß es erstmal nicht besser.
Ich habe auch versucht es irgendwie so schnell zu machen wie es geht.
dies hier funktioniert ja aber es ist so langsam.

Sub Summe()
On Error GoTo Fehler
Dim RR%, TB1, i
Set TB1 = ActiveSheet
RR = TB1.Cells.SpecialCells(xlCellTypeLastCell).Row 'Letzte Zeile
For i = 2 To RR
If TB1.Cells(i, 5)  "" Then            'And TB1.Cells(i, 6)
TB1.Cells(i, 3) = TB1.Cells(i, 6) - TB1.Cells(i, 5) + 1
End If
Next
Fehler:
If Err.Number  0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description
End Sub

Weisst du wie man so etwas schneller bekommt? ich habe bis ca. 2000 datensätze und direckt die formel einzusetzen geht nicht. Ich hatte auch schon den gedanke die spalte mit formel aus ein anderen blatt einfach zu kopieren mit

Sub formeln_anzahl_tage_holen()
' Makro7 Makro
With Sheets("Tabelle2")
.Columns("C:C").Copy
Sheets("für Kalender").Columns("C:C").PasteSpecial Paste:=xlPasteFormulas, Operation:= _
xlNone, _
SkipBlanks:=False, Transpose:=False
Sheets("für Kalender").Columns("C:C").Copy
Sheets("für Kalender").Columns("C:C").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks _
:=False, Transpose:=False
End With
Application.CutCopyMode = False
End Sub

Aber hier habe ich das Problem das ich werte oder Formelreste habe die mir in einem anderen macro ärgern . Irgend wie wird das " " aus =WENN(ODER(E4 deshalb der versuch mit der Berechnung per macro.
Hast Du eine idee dazu? Wie man so etwas schnell berechnen kann? Oder die formel so schreibt das das " " wirklich leer ist.
liebe grüsse thomas

Hallo,
ich habe mal schnell ein beispiel erstellt.
Das ziel was ich habe ist die anzahl der dazwischen liegenden tage von spalte E und F zu ermitteln.
Es sind zwei butten das wichtigste ist das der butten "Daten prüfen" kein Fehler bringt.
Wenn man die Formel mit dem Butten "formeln aus tabelle2" holt und das prüfmacro rüberlaufen lässt.
denkt das prüfmacro ab zeile 920 das dort irgentwas foul ist.
Das Prüfmacro prüft ob in spalte C die Werte positiv und sich kein #WERT! in der spalte befindet.
Löscht man dann die rot gekennzeichneten zeilen ab zeile 920 mit der hand läuft das prüfmacro ohne probleme durch?
Da ich die daten weiterverarbeite dürfen nach der berechnung keine Formeln mehr in der Spalte C sein.
besten dank schon mal für eure hilfe
liebe grüsse thomas
vielen dank das ihr euch damit beschäftigt
https://www.herber.de/bbs/user/102851.xlsm

Sub Summe() Dim RR%, TB1, i, vArr On Error GoTo Fehler Set TB1 = ActiveSheet RR = TB1.Cells.SpecialCells(xlCellTypeLastCell).Row 'Letzte Zeile ReDim vArr(1 To RR, 1 To 1) With TB1 vArr(1, 1) = .Cells(1, 3) For i = 2 To RR If .Cells(i, 5) "" Then 'And TB1.Cells(i, 6) vArr(i, 1) = .Cells(i, 6) - .Cells(i, 5) + 1 End If Next .Cells(1, 3).Resize(UBound(vArr)) = vArr End With Fehler: If Err.Number 0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description End Sub

Beliebteste Forumthreads (12 Monate)

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread