Zellen Abfrage mit schleife

Forumthread: Zellen Abfrage mit schleife
4 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Zellen Abfrage mit schleife

20.09.2005 12: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

AW: Zellen Abfrage mit schleife

20.09.2005 13:19:04

Klaus-Dieter
AW: Zellen Abfrage mit schleife

20.09.2005 13:48:48

Schubert
AW: Zellen Abfrage mit schleife

20.09.2005 14:27:41

Klaus-Dieter
AW: Zellen Abfrage mit schleife Merci

20.09.2005 15:28:19

Schubert

AW: Zellen Abfrage mit schleife

20.09.2005 13: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 13: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 14: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 15:28:19

Schubert

Danke für die Hilfe!!!