[Erledigt] Excel cells counten

[Pure_Beginner]

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.

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")
  

hier fehlt mir ein Teil

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)
 
EndProcedure

Kann mir natürlich denken, das meine andauernden Excel Probleme nerven.
Bin gerade deshalb für jede Hilfe dankbar.

[Kiffi]

Excel cells counten

uih! Lass das mal nicht WPö sehen...

Zum Thema: Du willst die Anzahl der Zeilen zählen, um
den neuen Inhalt dann unten anzuhängen?

Grüße ... Kiffi

[Pure_Beginner]

@Kiffi

Die Anzahl der Zellen, nicht die Anzahl der Zeilen.

Grüße Christian

[Pure_Beginner]

@Kiffi

Ja ich möcht die Zellen counten um das Ende zu finden und den nächsten Satz anhängen.

Grüße Chrisitan

[Kiffi]

guck ich mal morgen mal nach (wenn ich im Büro bin).

Grüße ... Kiffi

[Kiffi]

@Christian:

http://www.excel-inside.de/vba-loesunge ... tteln.html

(solltest Du eigentlich mit Deinen bisherigen COMate-Kenntnissen leicht übertragen können)

Grüße ... Kiffi

[Pure_Beginner]

@ Kiffi

Danke,
werde mich daran versuchen, wenn meine COMate Kenntnisse auch recht rudimentär sind.