Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
668to672
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
668to672
668to672
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellen Abfrage mit schleife

Zellen Abfrage mit schleife
20.09.2005 10:54:05
Schubert
Hallo,
ich brauche ein Makro für folgende Funktion:
Wenn Zelle D leer ist dann soll der Inhalt von Zelle D = Zelle E*1,16 sein und wenn Zelle E leer ist dann soll der Inhalt von Zelle E = D/1,16 sein und das über das ganze Blatt bis z.B. ein x in der Zelle A einer beliebigen Zeile steht.
Ich hoffe Ihr könnt mir weiterhelfen.
Besten Dank im Voraus
MfG
Schubert

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

Betreff
Datum
Anwender
Anzeige
AW: Zellen Abfrage mit schleife
20.09.2005 11:19:04
Klaus-Dieter
Hallo Schubert,
versuche es mal so:
Option Explicit

Sub ausfuellen()
Dim s As Integer
For s = 1 To ActiveCell.SpecialCells(xlLastCell).Row
If Cells(s, 4) = "" Then Cells(s, 4) = Cells(s, 5).Value * 1.16
If Cells(s, 5) = "" Then Cells(s, 5) = Cells(s, 4).Value / 1.16
Next s
End Sub

Viele Grüße Klaus-Dieter

Online-Excel
AW: Zellen Abfrage mit schleife
20.09.2005 11:48:48
Schubert
Hallo, danke für die Hilfe!
Funktioniert schon fast so wie ich es brauche.
Allerdings macht er auch die Berechnung wenn beide Zellen leer sind, wie kann ich das verhindern?
MfG
Schubert
Anzeige
AW: Zellen Abfrage mit schleife
20.09.2005 12:27:41
Klaus-Dieter
Hallo Schubert,
das geht so:
Option Explicit

Sub ausfuellen()
Dim s As Integer
For s = 1 To ActiveCell.SpecialCells(xlLastCell).Row
If Cells(s, 4) = "" And Cells(s, 5) = "" Then s = s + 1
If Cells(s, 4) = "" Then Cells(s, 4) = Cells(s, 5).Value * 1.16
If Cells(s, 5) = "" Then Cells(s, 5) = Cells(s, 4).Value / 1.16
Next s
End Sub

Viele Grüße Klaus-Dieter

Online-Excel
AW: Zellen Abfrage mit schleife Merci
20.09.2005 13:28:19
Schubert
Danke für die Hilfe!!!

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige