🙏 Helfen Sie jetzt mit, unser LibreOffice Forum zu erhalten! 🙏
Mit Ihrer Spende sichern Sie den Fortbestand, den Ausbau und die laufenden Kosten dieses Forums. 🌱
🍀 Jeder Beitrag zählt – vielen Dank für Ihre Unterstützung!🍀

❤️ DANKE >> << DANKE ❤️

>> Dank Ihrer Unterstützung -> Keine Werbung für alle registrierten LibreOffice-Forum User! <<
🤗 Als Dankeschön werden Sie im Forum als LO-SUPPORTER gekennzeichnet. 🤗

gelöst; variable Zellenzahl ermitteln

Alles zur Programmierung im LibreOffice.
Antworten
natal
Beiträge: 120
Registriert: So 8. Mär 2020, 20:03

Re: variable Zellenzahl ermitteln

Beitrag von natal » So 31. Jan 2021, 18:50

Hallo
Hier die Bilder
Dateianhänge
Bildschirmfoto vom 2021-01-31 18-46-52.png
Bildschirmfoto vom 2021-01-31 18-46-52.png (152.96 KiB) 3134 mal betrachtet
Bildschirmfoto vom 2021-01-31 18-46-15.png
Bildschirmfoto vom 2021-01-31 18-46-15.png (136.6 KiB) 3134 mal betrachtet
Nach oben
craig
* LO-Experte *
Beiträge: 1137
Registriert: Do 21. Apr 2016, 11:42

Re: variable Zellenzahl ermitteln

Beitrag von craig » So 31. Jan 2021, 19:27

Hallo Natal,

verkleinere die Bilder mit der Maus und/oder verschiebe sie nach unten.
Gruß

Craig

Nie die Sicherungskopie vergessen!
════════════════════════════════════════════════
WIN 10 Pro 64-Bit • LO 7.4.5.1 (x64) • AOO 4.1.8
Nach oben
natal
Beiträge: 120
Registriert: So 8. Mär 2020, 20:03

Re: variable Zellenzahl ermitteln

Beitrag von natal » Mo 1. Feb 2021, 14:57

Hi craig
Leider die alte Antwort, es wird mir nur meine leere Dokuvorlage gezeigt.
Es erscheint auch nicht kurzzeitig eine Hans_Meerkatz*.csv Datei.

Ein Laie denkt (ist gefährlich):
* der Programmteil CSV_DATEN importieren funktioniert (F5-Test)
* es hackt am Teil CheckForFile
Besteht die Möglichkeit, nach jedem Schritt des Programmteils CheckForFile eine MSGBX einzufügen, die die erfoglreiche oder nicht erfolgreiche Ausführung diese Schrittes meldet, um eventuell zu sehen, wo das Programm stecken bleibt?
Nach oben
craig
* LO-Experte *
Beiträge: 1137
Registriert: Do 21. Apr 2016, 11:42

Re: variable Zellenzahl ermitteln

Beitrag von craig » Mo 1. Feb 2021, 16:36

Hallo Natal,
Natal hat geschrieben:Ein Laie denkt (ist gefährlich):
und der Profi denkt und sucht nach Anwenderfehlern :lol:
Siehe da, der Anwenderfehler:
Natal hat geschrieben:* es hackt am Teil CheckForFile
In der Zwischentzeit wurde das Makro geändert:
Die Funktion CheckForFile ist nicht mehr vorhanden :!:
Daraus schließe ich, dass Du mit einem veralteten Code von mir arbeitest.
Aus diesem Grunde wie folgt:
  1. Öffne Calc und die Basic-IDE
  2. Im Objektkatalog suchst Du nach der Bibliothek nach libPolar
  3. Öffne darunter das Modul modCSVImport
  4. Im Codefenster sollte nun der Basic-Code erscheinen, diesen löscht Du komplett
  5. Füge dann diesen Code in das Modulfenster ein:

    Code: Alles auswählen

    REM  *****  BASIC  *****
REM Modul1
Sub [CSV_DATEN importieren]
Dim oSD as Object
Dim oFrames as Object
Dim oFrame as Object
Dim nCnt1 as Long

Dim oDocCSV as Object  
Dim oSheet as Object
Dim oRange1 as Object
Dim oRange2 as Object

Dim mData1() as Variant	' Array für die Daten
Dim mData2() as Variant	' Array für die Daten
Dim mData3() as Variant	' Array für die Daten

Dim mPath as Variant

Dim vDate as Variant
Dim sDate as String	
Dim mDate as Variant


Dim sFileCSV as String
Dim sPath as String
Dim sFile as String

Dim oDocAusVorlage as Object
Dim oSheetAusVorlage as Object
Dim oRange1AusVorlage as Object
Dim oRange2AusVorlage as Object
Dim oRange3AusVorlage as Object

Dim bFound as Boolean
Msgbox 	"1)"& chr(10) & _
				"_________________________________"&  chr(10) & chr(10) & _
				"Programmstart"
	oDocAusVorlage=ThisComponent

		oSheetAusVorlage=oDocAusVorlage.CurrentController.ActiveSheet
			oRange1AusVorlage=oSheetAusVorlage.getCellRangeByName("A2:C2")
			oRange2AusVorlage=oSheetAusVorlage.getCellRangeByName("B4:C86410")
REM ---------------------------------------------------------------------------
REM 				Zellinhalte löschen
REM
REM VALUE		Nummerische Werte
REM DATETIME	Datum/Zeit-Werte
REM STRING		Text
REM ANNOTATION	Die Notiz
REM FORMULA		Formeln
REM HARDATTR	Die harten Formatierungen
REM STYLES		Styles
REM OBJECTS		Grafik
REM EDITATTR	Textformartierungen ?
			oRange1AusVorlage.ClearContents(com.sun.star.sheet.CellFlags.VALUE _
                         + com.sun.star.sheet.CellFlags.STRING _
                         + com.sun.star.sheet.CellFlags.DATETIME)
                         
			oRange2AusVorlage.ClearContents(com.sun.star.sheet.CellFlags.VALUE _
                         + com.sun.star.sheet.CellFlags.STRING _
                         + com.sun.star.sheet.CellFlags.DATETIME)
                         

REM ══════════════════════════════════════════════════════════════════════════════════════════════════════
REM 				Hier die Pfadangabe, bzw. die URL ändern

	' Unter Linux auch als URL angeben
	sUrl="file:///home/servus/Schreibtisch/Ha/" 

		sFile=dir(sUrl & "Hans*.csv")
			sPath = convertFromUrl(sFile)
			if sFile = "" Then
				Msgbox 	"2a)"& chr(10) & _
				"_________________________________"&  chr(10) & _
				"URL = " & sURL & chr(10) &  chr(10) &_
				"Die im Code angegeben URL ist nicht korrekt (Zeile 69) !!!" ,8, "Anwenderfehler"
	
			else
Msgbox 	"2b)"& chr(10) & _
				"_________________________________"&  chr(10) & _
				"URL = " & sURL & chr(10) & _
				"CSV-Datei = " & sFile & chr(10) & _	
				"Pfad = " & sPath
			End If
REM ══════════════════════════════════════════════════════════════════════════════════════════════════════

REM 			...................................
REM Prüfen ob die CSV-Datei bereits geöffnet ist
	sURL = ConverttoURL(sPath)
	bFound=False
		oAllComponents = StarDesktop.getComponents	
			oElements = oAllComponents.CreateEnumeration
	Do While oElements.HasMoreElements
		oElement = oElements.NextElement
		If oElement.hasLocation Then
			If oElement.URL = sUrl Then
					bFound = True
					 Goto ErrorHandler
				Exit Do
			End If	
		End If
	Loop
	
	If bFound=False Then

REM -----------------------------------------------------------------------------------------------------
REM Prüfung ob die Datei existiert.
REM Dazu wird die "FileExists(sUrl)" aufgerufen;
REM "FileExists(sUrl)" = TRUE		' Datei existiert
REM "FileExists(sUrl)" = FALSE		' Datei existiert nicht oder der Dateiname ist falsch, bzw.
REM der Dateiname entspricht nicht den Vorgaben, welche von diesem Makro gefordert werden
	If FileExists(sUrl) Then
		' "FileExists(sUrl)" = TRUE
Msgbox 	"3a)"& chr(10) & _
				"_________________________________" & chr(10) & _
				"URL = " & sUrl & chr(10) & _
				" CSV-Datei wird jetzt geöffnet"
	Else
		' "FileExists(sUrl)" = FALSE
    	msgBox  "3b)" & chr(10) & _
				"_________________________________"& chr(10) & _
    			"Die angegebene Datei " & chr(10) & _
     			sFileCSV	 & chr(10) & _
     			"exisitiert nicht oder die URL (Zeile 69) ist falsch angegeben!"  & chr(10) & _
     		"--------------------------------"  & chr(10) & _
     		"Das Programm wird beendet"	,16, "Datei nicht vorhanden"
     			Exit Sub
  End If 


REM 			...................................
REM CSV-Datei öffnen
    sFileCSV = convertToUrl(sPath)
		Msgbox 	"4a)"& chr(10) & _
						"_________________________________"&  chr(10) & _
						"CSV-Datei = " & sFileCSV
    if len(sFileCSV)>0 then
        dim mFileProps(2) as new com.sun.star.beans.PropertyValue
        mFileProps(0).Name = "FilterName" 	: mFileProps(0).Value = "Text - txt - csv (StarCalc)"
		' der erste Token (59) der Filteroptionen gibt den Datenfeld-Separator an:
		' Kommata	= 44
		' Semikola	= 59
        mFileProps(1).Name = "FilterOptions" : mFileProps(1).Value = "44,34,76,1,,0,false,true,true,false"
		' Datei im Hintergrund öffnen
        mFileProps(2).Name = "Hidden"		: mFileProps(2).Value = False
        oDocCSV = StarDesktop.loadComponentFromURL(sFileCSV, "_blank", 0, mFileProps())        
    end if
		Msgbox 	"4b)"& chr(10) & _
						"_________________________________"&  chr(10) & _
						"CSV-Datei ist geladen"

REM 			...................................
REM Daten aus dem CSV-File kopieren

	oSheet=oDocCSV.CurrentController.ActiveSheet
Msgbox 	"5a)"& chr(10) & _
				"_________________________________" &  chr(10) & _
				"Active-Sheet"  &  chr(10) & _
				"oDocCSV.URL = " & oDocCSV.Url

		oRange1=oSheet.getCellRangeByName("C2:E2")
		oRange2=oSheet.getCellRangeByName("B4:C86410")
		oRange3=oSheet.getCellRangeByName("A4:A86410")
			mData1()=oRange1.getDataArray()
			mData2()=oRange2.getDataArray()
			mData3()=oRange3.getDataArray()
Msgbox 	"5b)"& chr(10) & _
				"_________________________________" &  chr(10) & _
				"Active-Sheet"  &  chr(10) & _
				"Daten wurden in die Array's eingelesen"
				
		oSheetAusVorlage.getCellRangeByName("A2:C2").setDataArray(mData1())
		oSheetAusVorlage.getCellRangeByName("B4:C86410").setDataArray(mData2())
Msgbox 	"6)"& chr(10) & _
				"_________________________________"&  chr(10) & _
				"a) setDataArray Bereich: A2:C2" &  chr(10) & _
				"b) setDataArray Bereich: B4:C86410"
REM 			...................................
REM Zellformat 41 = 12:12:10
REM https://api.libreoffice.org/docs/idl/ref/namespacecom_1_1sun_1_1star_1_1i18n_1_1NumberFormatIndex.html
		oSheetAusVorlage.getCellRangeByName("B2:C2").NumberFormat=41
		oSheetAusVorlage.getCellRangeByName("B4:B86410").NumberFormat=41

Msgbox 	"7)"& chr(10) & _
				"_________________________________"&  chr(10) & _
				"a) formatierter Bereich: B2:C2 = Formatcode 41 (HH.MM.SS)" &  chr(10) & _
				"b) formatierter Bereich: B4:C86410 = Formatcode 41 (HH.MM.SS)"
REM 			...................................
REM Zähler für Spalte A
Dim oCellCursor as Object
Dim nEndRow as Long

			oCellCursor = oSheetAusVorlage.createCursor()
   			oCellCursor.GotoEndOfUsedArea(True)
	
			nEndRow = oCellCursor.getRangeAddress.EndRow+1
				For nCnt1 = 1 To nEndRow-3
					mData3(nCnt1-1)(0)=nCnt1
				Next nCnt1
		oSheetAusVorlage.getCellRangeByName("A4:A86410").setDataArray(mData3())
Msgbox 	"8)"& chr(10) & _
				"_________________________________"&  chr(10) & _
				"Zähler wurde in Spalte A geschrieben"

REM 			...................................
REM CSV-Datei schließen
	oDocCSV.Close(True)
		Msgbox 	"9"& chr(10) & _
				"_________________________________"&  chr(10) & _
				"a) Hans_Meerkatz*.csv wurde geschlossen"		&  chr(10) & chr(10) & _
				"b) Programmende:  'Sub [CSV_DATEN importieren]'", 64,"Programmende"
End If
Exit Sub
REM 			...................................
ErrorHandler:

	    MsgBox "Die CSV-Datei"  & Chr(10) & _
	    			sPath   & Chr(10) & _
	    			 "ist bereits geöffnet" & Chr(10) & _
	    			   "Bitte schließen Sie die Datei und starten das Programm erneut" & Chr(10) & _
	    		"______________________________" & Chr(10)  & Chr(10) & _
			   	"Das Programm wird beendet!"	,0,"Fehlermeldung"

On Error Goto 0 ' Error-Handler deaktivieren

End Sub
  6. Schließe alle Office-Applikationen :!:
  7. Öffne Calc und die Basic-IDE
  8. Im Objektkatalog suchst Du nach der Bibliothek nach libPolar
  9. Öffne darunter das Modul modCSVImport
  10. Im Codefenster sollte nun der Basic-Code erscheinen.
  11. Stelle den Cursor in den Code irgendwo unterhalb der Zeile 3
  12. Drücke [F5]
  13. Es erscheinen nun nacheinander verschiedene, durchnummerierte Messageboxen.
  14. Mache Screenshots von jeder Messagebox und füge diese in ein Writerdokument ein.
    Dies hilft mir bei der Analyse des Ablaufs. Danke.
  15. Lade das Writerdokument hier hoch.
Gruß

Craig

Nie die Sicherungskopie vergessen!
════════════════════════════════════════════════
WIN 10 Pro 64-Bit • LO 7.4.5.1 (x64) • AOO 4.1.8
Nach oben
natal
Beiträge: 120
Registriert: So 8. Mär 2020, 20:03

Re: variable Zellenzahl ermitteln

Beitrag von natal » Mo 1. Feb 2021, 17:10

Das Ergebnis.
Dateianhänge
Unbenannt 3.odt
(52 KiB) 172-mal heruntergeladen
Nach oben
craig
* LO-Experte *
Beiträge: 1137
Registriert: Do 21. Apr 2016, 11:42

Re: variable Zellenzahl ermitteln

Beitrag von craig » Mo 1. Feb 2021, 19:12

Hallo Natal,

ersetze den vorherigen Code durch diesen:

Code: Alles auswählen

REM  *****  BASIC  *****
REM Modul1
Sub [CSV_DATEN importieren]
Dim oSD as Object
Dim oFrames as Object
Dim oFrame as Object
Dim nCnt1 as Long

Dim oDocCSV as Object  
Dim oSheet as Object
Dim oRange1 as Object
Dim oRange2 as Object

Dim mData1() as Variant	' Array für die Daten
Dim mData2() as Variant	' Array für die Daten
Dim mData3() as Variant	' Array für die Daten

Dim mPath as Variant

Dim vDate as Variant
Dim sDate as String	
Dim mDate as Variant


Dim sFileCSV as String
Dim sPath as String
Dim sFile as String

Dim oDocAusVorlage as Object
Dim oSheetAusVorlage as Object
Dim oRange1AusVorlage as Object
Dim oRange2AusVorlage as Object
Dim oRange3AusVorlage as Object

Dim bFound as Boolean
Msgbox 	"1)"& chr(10) & _
				"_________________________________"&  chr(10) & chr(10) & _
				"Programmstart"
	oDocAusVorlage=ThisComponent

		oSheetAusVorlage=oDocAusVorlage.CurrentController.ActiveSheet
			oRange1AusVorlage=oSheetAusVorlage.getCellRangeByName("A2:C2")
			oRange2AusVorlage=oSheetAusVorlage.getCellRangeByName("B4:C86410")
REM ---------------------------------------------------------------------------
REM 				Zellinhalte löschen
REM
REM VALUE		Nummerische Werte
REM DATETIME	Datum/Zeit-Werte
REM STRING		Text
REM ANNOTATION	Die Notiz
REM FORMULA		Formeln
REM HARDATTR	Die harten Formatierungen
REM STYLES		Styles
REM OBJECTS		Grafik
REM EDITATTR	Textformartierungen ?
			oRange1AusVorlage.ClearContents(com.sun.star.sheet.CellFlags.VALUE _
                         + com.sun.star.sheet.CellFlags.STRING _
                         + com.sun.star.sheet.CellFlags.DATETIME)
                         
			oRange2AusVorlage.ClearContents(com.sun.star.sheet.CellFlags.VALUE _
                         + com.sun.star.sheet.CellFlags.STRING _
                         + com.sun.star.sheet.CellFlags.DATETIME)
                         

REM ══════════════════════════════════════════════════════════════════════════════════════════════════════
REM 				Hier die Pfadangabe, bzw. die URL ändern

	' Unter Linux auch als URL angeben
	sUrl="file:///home/servus/Schreibtisch/Ha/" 

		sFile=dir(sUrl & "Hans*.csv",0)
			sURL=sURL & sFile

msgbox "2a)" & chr(10) &_
				sURL,,"sURL"

msgbox "2b)" & chr(10) &_
				sFile,,"sFile"
			sPath = convertFromUrl(sUrl)

			if sFile = "" Then
				Msgbox 	"3a)"& chr(10) & _
				"_________________________________"&  chr(10) & _
				"URL = " & sURL & chr(10) &  chr(10) &_
				"Die im Code angegeben URL ist nicht korrekt (Zeile 69) !!!" ,8, "Anwenderfehler"
	
			else
Msgbox 	"3b)"& chr(10) & _
				"_________________________________"&  chr(10) & _
				"CSV-Datei = "  & chr(10) &_
						sFile & chr(10) & _	
						chr(10) & _
				"URL = " & chr(10) &_
						sURL & chr(10) & _
							chr(10) & _
				"Pfad = "  & chr(10) &_
						sPath
			End If
REM ══════════════════════════════════════════════════════════════════════════════════════════════════════

REM 			...................................
REM Prüfen ob die CSV-Datei bereits geöffnet ist
	sURL = ConverttoURL(sPath)
	bFound=False
		oAllComponents = StarDesktop.getComponents	
			oElements = oAllComponents.CreateEnumeration
	Do While oElements.HasMoreElements
		oElement = oElements.NextElement
		If oElement.hasLocation Then
			If oElement.URL = sUrl Then
					bFound = True
					 Goto ErrorHandler
				Exit Do
			End If	
		End If
	Loop
	
	If bFound=False Then

REM -----------------------------------------------------------------------------------------------------
REM Prüfung ob die Datei existiert.
REM Dazu wird die "FileExists(sUrl)" aufgerufen;
REM "FileExists(sUrl)" = TRUE		' Datei existiert
REM "FileExists(sUrl)" = FALSE		' Datei existiert nicht oder der Dateiname ist falsch, bzw.
REM der Dateiname entspricht nicht den Vorgaben, welche von diesem Makro gefordert werden
'	sFile2=sUrlB & sPath

	If FileExists(sUrl) Then
		' "FileExists(sUrl)" = TRUE
Msgbox 	"4a)"& chr(10) & _
				"_________________________________" & chr(10) & _
				"URL = " &  chr(10) & _
				sFile & chr(10) & chr(10) & _
				" CSV-Datei wird jetzt geöffnet"
	Else
		' "FileExists(sUrl)" = FALSE
    	msgBox  "4b)" & chr(10) & _
				"_________________________________"& chr(10) & _
    			"Die angegebene Datei " & chr(10) & _
     			sFile2	 & chr(10) & _
     			"exisitiert nicht oder die URL (Zeile 69) ist falsch angegeben!"  & chr(10) & _
     		"--------------------------------"  & chr(10) & _
     		"Das Programm wird beendet"	,16, "Datei nicht vorhanden"
     			Exit Sub
  End If 


REM 			...................................
REM CSV-Datei öffnen
		Msgbox 	"5a)"& chr(10) & _
						"_________________________________"&  chr(10) & _
						"CSV-Datei = " &  chr(10) & _
						 sURL
    if len(sUrl)>0 then
        dim mFileProps(2) as new com.sun.star.beans.PropertyValue
        mFileProps(0).Name = "FilterName" 	: mFileProps(0).Value = "Text - txt - csv (StarCalc)"
		' der erste Token (59) der Filteroptionen gibt den Datenfeld-Separator an:
		' Kommata	= 44
		' Semikola	= 59
        mFileProps(1).Name = "FilterOptions" : mFileProps(1).Value = "44,34,76,1,,0,false,true,true,false"
		' Datei im Hintergrund öffnen
        mFileProps(2).Name = "Hidden"		: mFileProps(2).Value = False
        oDocCSV = StarDesktop.loadComponentFromURL(sUrl, "_blank", 0, mFileProps())        
    end if
		Msgbox 	"5b)"& chr(10) & _
						"_________________________________"&  chr(10) & _
						"CSV-Datei ist geladen"

REM 			...................................
REM Daten aus dem CSV-File kopieren

	oSheet=oDocCSV.CurrentController.ActiveSheet
Msgbox 	"6a)"& chr(10) & _
				"_________________________________" &  chr(10) & _
				"Active-Sheet"  &  chr(10) & _
					"oDocCSV.URL = " &  chr(10) & _
						oDocCSV.Url

		oRange1=oSheet.getCellRangeByName("C2:E2")
		oRange2=oSheet.getCellRangeByName("B4:C86410")
		oRange3=oSheet.getCellRangeByName("A4:A86410")
			mData1()=oRange1.getDataArray()
			mData2()=oRange2.getDataArray()
			mData3()=oRange3.getDataArray()
Msgbox 	"6b)"& chr(10) & _
				"_________________________________" &  chr(10) & _
				"Active-Sheet"  &  chr(10) & _
				"Daten wurden in die Array's eingelesen"
				
		oSheetAusVorlage.getCellRangeByName("A2:C2").setDataArray(mData1())
		oSheetAusVorlage.getCellRangeByName("B4:C86410").setDataArray(mData2())
Msgbox 	"7"& chr(10) & _
				"_________________________________"&  chr(10) & _
				"a) setDataArray Bereich: A2:C2" &  chr(10) & _
				"b) setDataArray Bereich: B4:C86410"
REM 			...................................
REM Zellformat 41 = 12:12:10
REM https://api.libreoffice.org/docs/idl/ref/namespacecom_1_1sun_1_1star_1_1i18n_1_1NumberFormatIndex.html
		oSheetAusVorlage.getCellRangeByName("B2:C2").NumberFormat=41
		oSheetAusVorlage.getCellRangeByName("B4:B86410").NumberFormat=41

Msgbox 	"8)"& chr(10) & _
				"_________________________________"&  chr(10) & _
				"a) formatierter Bereich: B2:C2 = Formatcode 41 (HH.MM.SS)" &  chr(10) & _
				"b) formatierter Bereich: B4:C86410 = Formatcode 41 (HH.MM.SS)"
REM 			...................................
REM Zähler für Spalte A
Dim oCellCursor as Object
Dim nEndRow as Long

			oCellCursor = oSheetAusVorlage.createCursor()
   			oCellCursor.GotoEndOfUsedArea(True)
	
			nEndRow = oCellCursor.getRangeAddress.EndRow+1
				For nCnt1 = 1 To nEndRow-3
					mData3(nCnt1-1)(0)=nCnt1
				Next nCnt1
		oSheetAusVorlage.getCellRangeByName("A4:A86410").setDataArray(mData3())
Msgbox 	"9)"& chr(10) & _
				"_________________________________"&  chr(10) & _
				"Zähler wurde in Spalte A geschrieben"

REM 			...................................
REM CSV-Datei schließen
	oDocCSV.Close(True)
		Msgbox 	"10"& chr(10) & _
				"_________________________________"&  chr(10) & _
				"a) Hans_Meerkatz*.csv wurde geschlossen"		&  chr(10) & chr(10) & _
				"b) Programmende: " 		&  chr(10) & chr(10) & _
						"'Sub [CSV_DATEN importieren]'", 64,"Programmende"
End If
Exit Sub
REM 			...................................
ErrorHandler:

	    MsgBox "119"  & Chr(10) & _
		    			"Die CSV-Datei"  & Chr(10) & _
			    			sPath   & Chr(10) & _
	    					 "ist bereits geöffnet" & Chr(10) & _
	    						"Bitte schließen Sie die Datei und starten das Programm erneut" & Chr(10) & _
	    		"______________________________" & Chr(10)  & Chr(10) & _
			   	"Das Programm wird beendet!"	,0,"Fehlermeldung"

On Error Goto 0 ' Error-Handler deaktivieren

End Sub
Gruß

Craig

Nie die Sicherungskopie vergessen!
════════════════════════════════════════════════
WIN 10 Pro 64-Bit • LO 7.4.5.1 (x64) • AOO 4.1.8
Nach oben
natal
Beiträge: 120
Registriert: So 8. Mär 2020, 20:03

Re: variable Zellenzahl ermitteln

Beitrag von natal » Mo 1. Feb 2021, 20:45

Hi craig
Neues Ergebnis.
Dateianhänge
Blatt 1_→4a.odt
(78.5 KiB) 161-mal heruntergeladen
Blatt 2→6b.odt
(62.48 KiB) 113-mal heruntergeladen
Blatt3→10.odt
(63.21 KiB) 131-mal heruntergeladen
Nach oben
craig
* LO-Experte *
Beiträge: 1137
Registriert: Do 21. Apr 2016, 11:42

Re: variable Zellenzahl ermitteln

Beitrag von craig » Mo 1. Feb 2021, 20:49

Hallo Natal,

alle Meldungen wurde ohne Fehler abgearbeitet.

Was ist mit dem Inhalt der geööfneten Calc-Datei?
Wurden die Daten aus der CVS-Datei in die Datei eingefügt?
Gruß

Craig

Nie die Sicherungskopie vergessen!
════════════════════════════════════════════════
WIN 10 Pro 64-Bit • LO 7.4.5.1 (x64) • AOO 4.1.8
Nach oben
natal
Beiträge: 120
Registriert: So 8. Mär 2020, 20:03

Re: variable Zellenzahl ermitteln

Beitrag von natal » Mo 1. Feb 2021, 21:26

Hi craig
Hier die Hans_Meerkatz*.csv Datei wie sie innerhalb des Ablaufs erscheint.
Dateianhänge
Bildschirmfoto vom 2021-02-01 21-24-25.png
Bildschirmfoto vom 2021-02-01 21-24-25.png (64.46 KiB) 3118 mal betrachtet
Nach oben
natal
Beiträge: 120
Registriert: So 8. Mär 2020, 20:03

Re: variable Zellenzahl ermitteln

Beitrag von natal » Mo 1. Feb 2021, 21:35

Hi
Wenn ich die Dokuvorlage über Dokuvorlagen verwalten und Natal 31.01.2021 starte ist das das Ergebnis.
Dateianhänge
Bildschirmfoto vom 2021-02-01 21-32-10.png
Bildschirmfoto vom 2021-02-01 21-32-10.png (54.72 KiB) 3118 mal betrachtet
Nach oben

An alle, die das LibreOffice-Forum gern nutzen und unterstützen wollen:
Bitte helfen Sie uns mit 7 Euro pro Monat.
Durch Ihren Beitrag tragen Sie dazu bei, unsere laufenden Kosten für die kommenden Monate zu decken.
Unkompliziert per Kreditkarte oder PayPal.
 Als ein kleines Dankeschön werden Sie im LO-Forum als SUPPORTER gekennzeichnet.


Antworten

Zurück zu „LibreOffice Programmierung“