Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
25.04.2024 17:49:39
Bedingte Formatierung
25.04.2024 16:50:59
2 Zellen in 2 Blättern mit unterschiedlichen Bereichen vergl
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1064to1068
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige