Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
272to276
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
272to276
272to276
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Makro umstellen

Makro umstellen
26.06.2003 21:27:15
Gerd
Hallo
Ich habe hier ein Makro in der Recherche gefunden das ich gern ein wenig verändert haben möchte.
Und zwar geht es um die Zeile Cells(N, 1) = lgNummer
lgNummer = lgNummer + 1
da soll jetzt nicht lgNummer stehen sondern es soll eine Formel eingetragen werden die sich auf die reihe N bezieht zB B * E der reihe N.
Also wenn ich in Reihe 33 stehe und in B etwas eintrage dann soll Die Formel B33*E33 in F33 eingetragen werden

For N = 21 To [b65536].End(xlUp).Row
If Not IsEmpty(Cells(N, 2)) And IsNumeric(Cells(N, 2)) Then
Cells(N, 1) = lgNummer
lgNummer = lgNummer + 1

Ich hoffe meine Auskünfte reichen aus



6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Makro umstellen
26.06.2003 21:34:50
Georg_Zi

Hallo Gerd

hast Du nur die Hälfte erzählt, oder warum Schleife,

In Vba in die Tabelle, nicht Modul

Gruß Hajo

Falls Code vorhanden wurde er getestet unter Betriebssystem Windows 2000 Pro und Excel Version 2003 Beta 2.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

Re: Makro umstellen
26.06.2003 21:35:57
ChrisL

Hi Gerd

Versuchs mal mit...

Cells(N, 6).Formula = "=B" & N & "*E" & N

Gruss
Chris

Anzeige
Re: Makro umstellen
26.06.2003 21:43:45
Gerd

Hier ist das Ganze Makro
Mit den Lösungen von euch konnte ich leider nichts anfangen

Private Sub Worksheet_Change(ByVal Target As Range)
Dim N As Long
Dim lgNummer
lgNummer = 1
If Target.Column = 2 Then

For N = 21 To [b65536].End(xlUp).Row
If Not IsEmpty(Cells(N, 2)) And IsNumeric(Cells(N, 2)) Then
Cells(N, 1) = lgNummer
lgNummer = lgNummer + 1
End If
Next
End If
End Sub

Re: Makro umstellen
26.06.2003 21:48:53
Georg_Zi

Hallo Gerd

ich kann mit Deinem Beitrag nichts anfangen. Mein Code macht genau das was Du im ersten Beitrag geschrieben hast.
"es soll eine Formel eingetragen werden die sich auf die reihe N bezieht zB B * E der reihe N.
Also wenn ich in Reihe 33 stehe und in B etwas eintrage dann soll Die Formel B33*E33 in F33 eingetragen werden"

Du kannst meinen Code noch ergänzen um den Teil If IsNumeric...

Gruß Hajo

Falls Code vorhanden wurde er getestet unter Betriebssystem Windows 2000 Pro und Excel Version 2003 Beta 2.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

Anzeige
Danke es Klappt
26.06.2003 21:54:59
Gerd

Hatte es erst falsch eingefügt

Danke Ihr seid die Besten

Danke es Klappt
26.06.2003 21:55:00
Gerd

Hatte es erst falsch eingefügt

Danke Ihr seid die Besten

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige