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

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

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)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige