Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1340to1344
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1340to1344
1340to1344
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Römische Zahlen. Makro

Römische Zahlen. Makro
11.12.2013 08:16:20
alifa
Hi,
Die Römischen Zahlen von 100 bis 1000 stehen in Spalte B. In Spalte C sollen Zahlen stehen, die aus der jeweiligen Römischen Zahl so gebildet werden: Alle einzelnen Römischen Ziffern werden nebeneinander geschrieben. Beispiel: DLXXXIX(589) gibt 50050101010110. Es sollen nur die Zahlen ausgegeben werden, die Dreieckszahlen sind.
Für Dreieckszahlen: If (1+8*a)^0,5=Fix((1+8*a)^0,5) Then
Kann mir jemand helfen?
Gruß, Alifa

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

Betreff
Datum
Anwender
Anzeige
AW: Römische Zahlen. Makro
11.12.2013 09:24:14
hary
Moin Alifa
Keine Ahnung was das ist,aber versuch mal. 
Dim i As Long
Dim ii As Long
Dim a As String
For i = 1 To Cells(Rows.Count, 2).End(xlUp).Row
For ii = 1 To Len(Cells(i, 2))
Select Case Mid(Cells(i, 2), ii, 1)
Case "I"
a = 1
Case "V"
a = 5
Case "X"
a = 10
Case "L"
a = 50
Case "C"
a = 100
Case "D"
a = 500
Case "M"
a = 1000
End Select
If (1 + 8 * a) ^ 0.5 = Fix((1 + 8 * a) ^ 0.5) Then
Cells(i, 3) = Cells(i, 3) & " " & a & " "
end if
Next
Next
End Sub

gruss hary

AW: Römische Zahlen. Makro
11.12.2013 13:30:17
alifa
Hallo hary,
vielen Dank für das Makro. Konnte es an meine Gegebenheiten anpassen. Habe die Leerstellen zwischen den a's weggelassen, so dass explizite Zahlen entstehen. Die Abfrage auf Dreieckszahlen geschieht mit separatem Makro.
Viele Grüße
Alifa
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige