Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.05.2025 16:19:36
20.05.2025 15:34:36
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: 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
Anzeige

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

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

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