Aktuelle Zeit: 21.06.2018 19:39

Alle Zeiten sind UTC + 1 Stunde [ Sommerzeit ]




Ein neues Thema erstellen Auf das Thema antworten  [ 169 Beiträge ]  Gehe zu Seite Vorherige  1 ... 13, 14, 15, 16, 17  Nächste
Autor Nachricht
 Betreff des Beitrags: Re: ExcelFunktionen COMatePlus
BeitragVerfasst: 14.12.2015 09:35 
Offline

Registriert: 21.01.2008 19:11
Hallo Falko!

Danke, daß Du den ersten Beitrag überarbeitet hast.

Die jetzige Version der ExcelFunktion.pbi funkioniert jetzt bei mir
soweit fehlerfrei.
Wegen Unicode-Abhängigkeit der neuen Version werde ich aber
bei der alten Version bleiben.

_________________
Bild


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: ExcelFunktionen COMatePlus
BeitragVerfasst: 25.02.2016 09:41 
Offline
Benutzeravatar

Registriert: 13.09.2004 11:33
Wohnort: Am schönsten Flecken der Erde, zwischen PC und Motorrad
Hallo Falko,

ich hab mir jetzt nicht den ganzen Therad durchgelesen und bin auch nicht auf dem neuesten Stand. Darum weiß ich nicht so genau ob es den folgenden Codeschnipsel schon gibt. Wenn nicht dann kannst du wieder mal eine Klitzekleinigkeit :) von mir einfügen.

Code:
[/Procedure.s XLSFunc_ColumnNumberToColumnName(ExcelObject.COMateObject, Column.i);Convert Number to Column Name
  Protected.s ReturnValue, sTmp
  Protected.i iPos
  ReturnValue = ExcelObject\GetStringProperty("Cells(1,"+Str(Column)+")\Address")
  ProcedureReturn Mid(ReturnValue,2,FindString(ReturnValue,"$",2)-2)
EndProcedure

Procedure.i XLSFunc_ColumnNameToColumnNumber(ExcelObject.COMateObject, ColumnName.s);Convert Name to Column Number
  Protected ReturnValue.i
  ReturnValue=ExcelObject\GetIntegerProperty("Range('"+ ColumnName + "1')\Column")
  ProcedureReturn ReturnValue
EndProcedure

Nochmals vielen Dank dass Du und das Projekt zur Verfügung stellst. Ich liebe dieses Teil. :allright:

_________________
"Wenn Sie glauben, mich verstanden zu haben, dann habe ich mich falsch ausgedrückt" ( Alan Greenspan)


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: ExcelFunktionen COMatePlus
BeitragVerfasst: 25.02.2016 19:04 
Offline
Admin
Benutzeravatar

Registriert: 29.08.2004 11:27
Hallo mueckerich,

das freut mich. Ich habe deinen Code aufgenommen und die Änderung auf heute datiert, sowie mit der
aktuellen PB 5.42LTS B3 getestet.

Vielen Dank für deine Unterstützung. :allright:

Gruß,
Falko

_________________
Bild
Win10 Pro 64-Bit, PB_5.4,GFA-WinDOS, Powerbasic9.05-Windows, NSBasic/CE, NSBasic/Desktop, NSBasic4APP, EmergenceBasic


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: ExcelFunktionen COMatePlus
BeitragVerfasst: 15.03.2016 14:29 
Offline
Benutzeravatar

Registriert: 13.09.2004 11:33
Wohnort: Am schönsten Flecken der Erde, zwischen PC und Motorrad
Ich versuch gerade verzweifelt die bedingte Formatierung einer Zelle in Excel hinzubekommen. Krieg es aber nicht hin, hat jemand eine Idee wo mein Fehler liegt?
Hier der VBA Code:
Code:
Sub Makro1()
    Range("A1:G1").Select
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, Formula1:="=0"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = -16383844
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13551615
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
    Range("A1").Select
End Sub


und hier mein Scheitern :cry: . Irgendwie seh ich den Wald vor lauter Bäumen nicht, da schon das Hinzufügen einer bedingten Formatierung mit "Selection\FormatConditions\Add" nicht funktioniert.
Code:
Procedure XLSFunc_SetConditionalFormat(ExcelObject.COMateObject, Range.s, Farbe.l, Typ.i=#xlCellValue, Operator.i=#xlGreater, Formel.s="=0")
  ExcelObject\Invoke("Range('"+Range + "')\Select")
  ExcelObject\SetProperty("Selection\FormatConditions\Add(" + Str(Typ) + ", " + Str(Operator) + ", " + Formel + ")")
  ExcelObject\Invoke("Selection\FormatConditions(Selection\FormatConditions\Count)\SetFirstpriority")
  ExcelObject\SetProperty("Selection\FormatConditions(1)\Interior\PatternColorIndex = " + Str(#xlAutomatic))
  ExcelObject\SetProperty("Selection\FormatConditions(1)\Interior\Color = " + Str(Farbe))
  ExcelObject\SetProperty("Selection\FormatConditions(1)\TintAndShade = 0")
  ExcelObject\SetProperty("Selection\FormatConditions(1)\StopIfTrue = False")
EndProcedure

_________________
"Wenn Sie glauben, mich verstanden zu haben, dann habe ich mich falsch ausgedrückt" ( Alan Greenspan)


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: ExcelFunktionen COMatePlus
BeitragVerfasst: 24.03.2016 09:25 
Offline

Registriert: 24.03.2016 09:11
Ich habe versucht ein Programm auszuführen. Bis PB 5.41 klappt alles. Ab aktueller Version 5.42 meckert PB die COMatePlus.pbi in der Zeile 619 excep\pfnDeferredFillin(excep) an mit "unbrauchbarer Code am Ende der Zeile".
Habe es unter Win7 und XP getested.
Zurück nach PB 5.41 geht alles wieder.


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: ExcelFunktionen COMatePlus
BeitragVerfasst: 25.03.2016 00:47 
Offline
Admin
Benutzeravatar

Registriert: 29.08.2004 11:27
COMatePLUS, welche für PB 5.42 angepasst sein soll.

http://www.purebasic.fr/english/viewtop ... 13&t=65292

MfG,

Falko

_________________
Bild
Win10 Pro 64-Bit, PB_5.4,GFA-WinDOS, Powerbasic9.05-Windows, NSBasic/CE, NSBasic/Desktop, NSBasic4APP, EmergenceBasic


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: ExcelFunktionen COMatePlus
BeitragVerfasst: 29.03.2016 08:02 
Offline

Registriert: 24.03.2016 09:11
Vielen Dank, nun läuft auch PB 5.42 :allright:


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Speichern unter Win7 mit Excel 2010
BeitragVerfasst: 10.08.2016 09:42 
Offline

Registriert: 24.03.2016 09:11
Gibt es Besonderheiten bei Win7 Excel 2010 , die unter XP und Excel 2000 nicht waren? Es ist nicht mehr möglich, eine Excel Tabelle mit WorkbookSaveAs abzuspeichern. Der Befehl wird einfach ignoriert. Ich starte Purebasic mit Administratorrechten und habe auch in den Einstellungen Admin Rechte holen angeklickt.


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: Speichern unter Win7 mit Excel 2010
BeitragVerfasst: 10.08.2016 10:39 
Offline
Benutzeravatar

Registriert: 08.09.2004 08:21
Wohnort: Amphibios 9
füge mal hinter der Zeile:

Code:
Workbook\Invoke("SaveAs('"+FileName+"', " + Str(FFormat) + ")") ;Save As #xlNormal or #xlCSV or another CSV (MSDOS or Windows)

testweise folgendes ein:

Code:
Debug COMate_GetLastErrorCode()
Debug COMate_GetLastErrorDescription()


Unter Umständen wird Dir dann angezeigt, was schief gelaufen ist.

Grüße ... Peter

_________________
einfach ist schwierig


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: ExcelFunktionen COMatePlus
BeitragVerfasst: 10.08.2016 11:35 
Offline

Registriert: 24.03.2016 09:11
Vielen Dank für den schnellen Tip.
Hat leider nicht geholfen
Debug Ausgabe
0
OKAY

Speichert aber nicht.


Nach oben
 Profil  
Mit Zitat antworten  
Beiträge der letzten Zeit anzeigen:  Sortiere nach  
Ein neues Thema erstellen Auf das Thema antworten  [ 169 Beiträge ]  Gehe zu Seite Vorherige  1 ... 13, 14, 15, 16, 17  Nächste

Alle Zeiten sind UTC + 1 Stunde [ Sommerzeit ]


Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 2 Gäste


Sie dürfen keine neuen Themen in diesem Forum erstellen.
Sie dürfen keine Antworten zu Themen in diesem Forum erstellen.
Sie dürfen Ihre Beiträge in diesem Forum nicht ändern.
Sie dürfen Ihre Beiträge in diesem Forum nicht löschen.

Suche nach:
Gehe zu:  

 


Powered by phpBB © 2008 phpBB Group | Deutsche Übersetzung durch phpBB.de
subSilver+ theme by Canver Software, sponsor Sanal Modifiye