Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
724to728
724to728
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalte einfügen

Forumthread: Spalte einfügen

Spalte einfügen
03.02.2006 15:54:45
Marco
Hallo,
ich möchte folgendes mit einem Makro lösen:
Splate A enthält Werte
Spalte B enthält Werte
Spalte C soll hinzugefügt werden und enthält die Formel = A / B.
Dies soll ausserdem für sämtliche Zeilen der Tabelle geschehen, welche Werte enthalten.
Vielen Dank für eure Antworten.
Gruß Marco
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalte einfügen
03.02.2006 16:06:02
Peter
Hallo Marco,
zum Beispiel so:

Sub Rechnen()
Dim lZeile  As Long
   For lZeile = 1 To Range("A65536").End(xlUp).Row
      If Not IsEmpty(Range("A" & lZeile).Value) And _
         IsNumeric(Range("A" & lZeile).Value) And _
         Not IsEmpty(Range("B" & lZeile).Value) And _
         IsNumeric(Range("B" & lZeile).Value) And _
         Range("B" & lZeile).Value <> 0 Then
         Range("C" & lZeile).Value = Range("A" & lZeile).Value / _
            Range("B" & lZeile).Value
      End If
   Next lZeile
Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
Anzeige
AW: Spalte einfügen
03.02.2006 16:21:51
Marco
Danke. Genau sowas habe ich gesucht.
Marco
;

Beliebteste Forumthreads (12 Monate)

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