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: 13650
Re: Farbe einer Zelle auslesen
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: ...
- 16.11.2022 18:14:25
- Forum: BasicMaker 2021 für Windows
- Thema: Wie ermittelt man die letzte Zeile einer Tabelle
- Antworten: 5
- Zugriffe: 6699
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: 13650
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 abe...
- 15.11.2022 16:41:31
- Forum: BasicMaker 2021 für Windows
- Thema: Farbe einer Zelle auslesen
- Antworten: 5
- Zugriffe: 13650
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 Basi...
- 13.11.2022 17:17:52
- Forum: BasicMaker 2021 für Windows
- Thema: Wie ermittelt man die letzte Zeile einer Tabelle
- Antworten: 5
- Zugriffe: 6699
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...
- 13.11.2022 13:53:50
- Forum: BasicMaker 2021 für Windows
- Thema: Farbe einer Zelle auslesen
- Antworten: 5
- Zugriffe: 13650
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