Anzeige
Archiv - Navigation
1040to1044
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
Inhaltsverzeichnis

differenz von konstanter und variabler zelle

differenz von konstanter und variabler zelle
22.01.2009 21:45:16
konstanter
hallo zusammen,
brauche dringend hilfe von profis.
ich habe eine tabelle, in der ich wöchentliche zahlen von einer konstanten abziehen muß. das sieht ungefähr so aus, dass in zelle a3 eine konstante zahl habe und eine matrix mit wochen (c5;e5;g5;i5;k5 usw) für ca ein halbes jahr habe. jetzt ist es so, dass ich immer die letzte wochenzahl von der konstanten abziehen soll und das automatisch.
wäre schön, wenn mir hier jemand helfen könnte.
gruß
herbert

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: differenz von konstanter und variabler zelle
22.01.2009 21:58:07
konstanter
Hallo Herbert,
ich würde der Konstante (z. B. die Zelle "A3") einen Namen geben. Menü - Einfügen - Namen - Definieren ...
dann kannst du ganz einfach weiterrechnen:
= C5 - DefinierterName
= E5 - DefinierterName, etc
Gruß
Sigi
AW: differenz von konstanter und variabler zelle
22.01.2009 22:02:00
konstanter
Hallo,
geht es hiermit?
Den Tabellennamen musst Du noch anpassen.
Sub Abziehen()
Dim Bereich As Range
Set Bereich = Sheets("Tabelle1").Range("G5", Cells(5, Columns.Count).End(xlToLeft))

With Application
 .ScreenUpdating = False
 .EnableEvents = False
    
    For Each Bereich In Bereich
     If IsNumeric(Bereich) Then
      Bereich = Bereich - Sheets("Tabelle1").Range("A3")
     End If
    Next Bereich
 
 .ScreenUpdating = True
 .EnableEvents = True
End With
End Sub


Gruß Tino

Anzeige
Korrektur
22.01.2009 22:05:00
Tino
Hallo,
eine Zuordnung war nicht iO.
Sub Abziehen()
Dim Bereich As Range


With Sheets("Tabelle1")
 Set Bereich = .Range("G5", Cells(5, .Columns.Count).End(xlToLeft))


With Application
 .ScreenUpdating = False
 .EnableEvents = False
End With
    
    For Each Bereich In Bereich
     If IsNumeric(Bereich) Then
      Bereich = Bereich - .Range("A3")
     End If
    Next Bereich

With Application
 .ScreenUpdating = True
 .EnableEvents = True
End With

End With
End Sub


Gruß Tino

Anzeige
AW: Korrektur
22.01.2009 22:22:13
Herbert
Hallo zusammen,
werde die versionen kurz mal ausprobieren ob das funzt.
bin gleich zurück.
gruß
herbert

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige