[Erledigt] Excel cells counten
Verfasst: 12.02.2012 22:45
Hallo zusammen.
Hab mal wieder, wer hätte das gedacht, ein Excel Problem.
Leider finde ich nicht die passene Lösung um die Zellen in der Exceltabelle durchzuzählen,
um den nächsten Satz am Ende anzuhängen.
hier fehlt mir ein Teil
Kann mir natürlich denken, das meine andauernden Excel Probleme nerven.
Bin gerade deshalb für jede Hilfe dankbar.
Hab mal wieder, wer hätte das gedacht, ein Excel Problem.
Leider finde ich nicht die passene Lösung um die Zellen in der Exceltabelle durchzuzählen,
um den nächsten Satz am Ende anzuhängen.
Code: Alles auswählen
Procedure Hinzufuegen(ExcelTwenty5.COMateObject, ExcelNeu.COMateObject)
AddKeyboardShortcut(#Window_frm_Haupt,#PB_Shortcut_Escape,100)
Define str_Suchnummer.s = ""
str_Suchnummer = GetGadgetText(#Gadget_frm_Haupt_tbx_Suchnummer)
str_Suchnummer = Trim(str_Suchnummer)
Protected Worksheet.COMateObject
Worksheet = ExcelTwenty5\GetObjectProperty("Worksheets('"+str_Suchnummer+"')")
If Worksheet
ExcelTwenty5\Invoke("Worksheets('"+str_Suchnummer+"')\Select")
ExcelTwenty5\Invoke("Columns\Select")
ExcelTwenty5\Invoke("Columns\Copy")
Code: Alles auswählen
Define str_Tabellenende.s =
Define Range.s = XLSFunc_RowCol2Range(str_Tabellenende,1)
XLSFunc_ActivateCell(ExcelNeu.COMateObject, Range.s)
ExcelNeu\Invoke("ActiveSheet\Paste")
Debug str_Tabellenende
ClearClipboard()
Worksheet\Release()
Else
MessageBox_(0,"Der angegebene Datensatz wurde nicht gefunden !","Warnung !", #MB_ICONWARNING | #MB_OK ) ; Nutzung die Winapi Funktion MessageBox_()
EndIf
SetActiveGadget(#Gadget_frm_Haupt_tbx_Suchnummer)
SendMessage_(GadgetID(#Gadget_frm_Haupt_tbx_Suchnummer), #EM_SETSEL, 0,-1)
EndProcedureKann mir natürlich denken, das meine andauernden Excel Probleme nerven.
Bin gerade deshalb für jede Hilfe dankbar.
