Ich glaube, ich habe es im Handbuch gefunden:
wks.Cells(118, 17).Shading.ForegroundPatternColorIndex = smoColorIndexBlue
Das färbt die Zelle gemäß kompatiblen Zahlenwerten. Das Auslesen der von Excel nach Planmaker überführten Tabelle dürfte somit auch kein Problem mehr darstellen. Handbuchverweis ...
Die Suche ergab 6 Treffer
- 16.11.2022 18:39:58
- Forum: BasicMaker 2021 für Windows
- Thema: Farbe einer Zelle auslesen
- Antworten: 5
- Zugriffe: 15618
- 16.11.2022 18:14:25
- Forum: BasicMaker 2021 für Windows
- Thema: Wie ermittelt man die letzte Zeile einer Tabelle
- Antworten: 5
- Zugriffe: 8658
Re: Wie ermittelt man die letzte Zeile einer Tabelle
Do ... loop ist besser. Stimmt, schreibe ich um, aber schade ist, dass bei variabler Zeilenanzahl das Range immer angepasst werden muss. Daher verwende ich künftig Do ... loop plus Abfrage ... muss aber immer darauf achten, dass die jeweilige Spalte (die runter gelesen wird) keine Leerzelle hat. 
- 16.11.2022 18:04:35
- Forum: BasicMaker 2021 für Windows
- Thema: Farbe einer Zelle auslesen
- Antworten: 5
- Zugriffe: 15618
Re: Farbe einer Zelle auslesen
Ja, es funktioniert tatsächlich mit den Standardfarbwerten von Excel. (Farbübereinstimmung muss ich noch genauer mal prüfen)
wks.Cells(118, 17).Font.ColorIndex=5
z.B ergibt rot. Ich meine in Excel ist das auch die Zahl 5.
Ein Problem ist das noch. Es wird die Schriftfarbe analysiert. Ich brauche ...
wks.Cells(118, 17).Font.ColorIndex=5
z.B ergibt rot. Ich meine in Excel ist das auch die Zahl 5.
Ein Problem ist das noch. Es wird die Schriftfarbe analysiert. Ich brauche ...
- 15.11.2022 16:41:31
- Forum: BasicMaker 2021 für Windows
- Thema: Farbe einer Zelle auslesen
- Antworten: 5
- Zugriffe: 15618
Re: Farbe einer Zelle auslesen
Vielen Dank für die Hilfe. Funktioniert als solches soweit. Erstaunlich auch die hohe Kompatibilität. Der Code musste nur an ein paar Zeilen geändert werden. Finde ich prima. Die Farben aus Excel lassen sich allerdings nur mit dem Wert -1 auslesen. Grün, Blau und Gelb hatte ich verwendet und im ...
- 13.11.2022 17:17:52
- Forum: BasicMaker 2021 für Windows
- Thema: Wie ermittelt man die letzte Zeile einer Tabelle
- Antworten: 5
- Zugriffe: 8658
Re: Wie ermittelt man die letzte Zeile einer Tabelle
Ist da schon etwas passiert? Ich versuche es gerade hiermit:
Sub main
Dim i,c As Integer
Dim pm as Object
Set pm = CreateObject("PlanMaker.Application")
pm.Application.Visible = True
For i = 1 To pm.Application.Workbooks.Count
MsgBox pm.Application.Workbooks.Item(i).Name
Next i
'MsgBox (pm ...
Sub main
Dim i,c As Integer
Dim pm as Object
Set pm = CreateObject("PlanMaker.Application")
pm.Application.Visible = True
For i = 1 To pm.Application.Workbooks.Count
MsgBox pm.Application.Workbooks.Item(i).Name
Next i
'MsgBox (pm ...
- 13.11.2022 13:53:50
- Forum: BasicMaker 2021 für Windows
- Thema: Farbe einer Zelle auslesen
- Antworten: 5
- Zugriffe: 15618
Farbe einer Zelle auslesen
Ich versuche gerade eins meiner Excel VBA-Skripte für Basicmaker zu konvertieren und finde nichts zu folgendem Problem:
Wie kann man in BasicMaker die Farbe einer Zelle auslesen und weiterverarbeiten?
Code: Alles auswählen
If wks.Cells(a, 12).Interior.ColorIndex = far1 Then