Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1064to1068
1064to1068
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Addition in Blätter

Forumthread: Addition in Blätter

Addition in Blätter
06.04.2009 21:39:24
AndreasB
Hallo zusammen,
meine Frage:
- ich habe ein Excelfile mit ca. 50 Blättern
- die Daten in jedem Blatt sind zur Zeit gleich
- ich müsste nun die Werte in den Zellen F3 bis F56 und H3 bis H56 erhöhen
und zwar um 1 im ersten Blatt, um 2 im zweiten Blatt, um 3 im dritten Blatt usw.
Kann mir jemand bitte mit einem Makro weiterhelfen. Ich habe es mit aufzeichnen
versucht, aber ohne Erfolg.
Vielen Dank im Voraus
Andreas
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Addition in Blätter
06.04.2009 22:01:36
Daniel
Hi
probier mal das hier, die Blätter müssen in der richtigen Reihenfolge im Register stehen:

Sub erhöhen()
Dim i As Long
Dim Zelle As Long
Dim Bereich As String
Bereich = "F3:F56,H3:H56"
For i = 1 To ActiveWorkbook.Sheets.Count
With Sheets(i).Cells(Rows.Count, 1).End(xlUp).Offset(2, 0)
.Value = i
.Copy
On Error Resume Next
Sheets(i).Range(Bereich).SpecialCells(xlCellTypeConstants, 1).PasteSpecial _
Operation:=xlAdd, SkipBlanks:=False, Transpose:=False
On Error GoTo 0
.ClearContents
End With
Next
Application.CutCopyMode = False
End Sub


Gruß, Daniel

Anzeige
hier eine weitere Variante ...
07.04.2009 07:56:34
Matthias
Hallo
hier eine weitere Variante 


Option Explicit
Sub UmEinsErhoehen()
Dim Rng As Range
Dim C As Range
Dim LoX As Long, X As Long
X = 1
For LoX = 1 To Worksheets.Count
With Worksheets(LoX)
Set Rng = .Range("F3:F56")
For Each C In Rng
If IsNumeric(C.Value) Then C.Value = C.Value + X
If IsNumeric(C.Offset(, 2).Value) Then C.Offset(, 2).Value = C.Offset(, 2).Value + X
Next
End With
Set Rng = Nothing
X = X + 1
Next
MsgBox "fertig ...", vbInformation, Now
End Sub



hier die Beispieldatei:
https://www.herber.de/bbs/user/61035.xls

Das Flackern des Bildschirmschirms in Daniel seinem Beispiel unterbindest Du mit
Application.ScreenUpdating = False
und am Enden des Code wieder
Application.ScreenUpdating = True
Welchen Code Du nun benutzt ist allein Dir überlassen
Gruß Matthias
Anzeige
Danke
07.04.2009 11:59:57
AndreasB
Ein spätes, großes Danke an alle!!!
Grüße
Andreas
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige