Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellen Abfrage mit schleife

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

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
Anzeige
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
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
Anzeige
AW: Zellen Abfrage mit schleife Merci
20.09.2005 13:28:19
Schubert
Danke für die Hilfe!!!
;

Beliebteste Forumthreads (12 Monate)

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