Beiträge von tubsids

Danke chesstiger und Autoiter für Vorschläge!

Hallo Oscar,

aber ich möchte jede Fund haben. Wie erwische ich nun alle gefundene Stellen?
Danke und Gruß

Hallo zusammen,

für die Funktion StringInStr gibt es die Möglichkeit eine Position einen definierten Inhalt zu bestimmen.

#include <MsgBoxConstants.au3>


; Retrieve the character position of where the string 'white' first occurs in the sentence.
Local $iPosition = StringInStr("This is a sentence with whitespace. White is twice hier. White.", "white")
_ArrayDisplay($iPosition)
MsgBox($MB_SYSTEMMODAL, "", "The search string 'white' first appears at position: " & $iPosition)

Nun wie sieht es mit mehreren Stellen aus (s. Beispiel) ?
Danke und Gruß

Prima und Danke an alle!

Ganz herzlichen Dank für die Lösungen!

Hallo zusammen,

wie kann man 2 String zusammenführen?

Mein Code funktioniert nicht.

Local $sString1 = " Hello "
Local $sString2 = " World "
_StringInsert($sString1, $sString2, StringLen($sString1))
ConsoleWrite ($sString1)

Hallo zusammen,

wie kann man geschickt ein String untersuchen nach Inhalten ?

Beispiel String = "Hallo Welt! Hier untersuchen wir String"
1. Von Start bis z.B. "Hier"
2. Ab "Hier" bis zur Ende

Ich habe zunächst die Frage mit Funktion _StringBetween gedacht. Aber auch RegEx kommen in Frage.
Danke und Gruß

Hallo zusammen,

gibt es Vorschlag wie ich geschickt eine Zeile aus EXCEL auslesen kann???
Eine Spalte auszulesen gibt es schon

Local $aResult = _Excel_RangeRead($oWorkbook, Default, $oWorkbook.ActiveSheet.Usedrange.Columns("A:A"), 2)

Was ist mit eine Zeile ???
Danke und Gruß

Danke für Eure Hilfe!

Grundsätzlich suche ich nach definierten Inhalten mit Hilfe von
_Excel_RangeFind
und finde in Excel passende Info. Aus diese Information bekomme ich Hinweis auf aktuelle Zeile, wo diese Info in Excelblatt versteckt hat - mit Hilfe von
Local $aCelle = StringSplit($aResult_sSuchstring[0][2], "$").
Da ich es als Array deklariere und nur Info über die Zeilenummer bräuchte, gehe ich mit dem Zeilenummer $aCelle[3].
Danach setze ich diese Information ein, um weitere definierte Zellen in gleiche Zeile zu untersuchen.
_Excel_RangeRead($oWorkbook, Default, "X" & $aCelle[3])
X - definierten Zeilen --> für mich bedeutet es als z.B. Zelle B10 oder A10, G10 etc.

Parallel habe ich mir eine andere Lösung gedacht mit
_Excel_RangeFind($oWorkbook, '*', "F" & $aCelle[3])

Dort wird alles angezeigt als Formula und als Value, ist sicher. Aber !!! Ich erwarte gleiches in _Excel_RangeRead. Wo habe ich ein Denkfehler?

Hallo zusammen,

mein Script schaut in jeder definierte Zelle nach Inhalt und manchmal findet Info nicht, obwohl ich es lesen in Excel lesen kann. Diese Problem-Zellen-Inhalte haben einführungszeichen " ... ", daher vermute ich, dass der Text als Kommentar dort angezeigt ist.
Aktuell prüfe ich Inhalt mit folgende Funktion - Beispiel für die Zelle M in Zeile X:

Local $sResult = _Excel_RangeRead($oWorkbook, Default, "M" & $aCelle[3])
MsgBox(0, "$sResult", $sResult)

Wie kann man das Porblem beseitigen?

Ich habe auch ohne Erfolg folgende Varianten ausprobiert:

_Excel_RangeRead($oWorkbook, Default, "M" & $aCelle[3], 1)
_Excel_RangeRead($oWorkbook, Default, "M" & $aCelle[3], 2)
_Excel_RangeRead($oWorkbook, Default, "M" & $aCelle[3], 3)

Bitte um die Unterstützung
Danke und Gruß

gefunden:

If sSuchstring = "Inhalt1" Then ContinueLoop ; Skip loop
If sSuchstring = "Inhalt2" Then ContinueLoop ; Skip loop

Hallo zusammen,

mein Script soll nach Inhalt suchen und Ergebnisse in Array speichern.
Danach durchsuche ich Excel nach Inhalt dieses Array - Zeile für Zeile.
Zum Anfang habe ich aktuell zwei ersten unnötigen Inhalten, die ich nicht betrachten möchte.
Wie schliesse ich dieses aus der Schleife aus? Gibt es ein Abbruchsverfahren für solchen Fall ???
Ich habe einmal es im Forum - denke ich - gesehen. Finde aber z.Z. nicht mehr.

If $aResult[0] = "" Then 
		MsgBox(0, "Empty", "Nichts gefunden")
Else 			

		For $i = 0 To UBound($aResult) - 1
			; Zeige aktuellen Search		
			Local $sSuchstring = ""
			$sSuchstring = $aResult_LinkAuswerteprotokollSpalteA[$i]
			MsgBox($MB_SYSTEMMODAL, "$sSuchstring: ", $sSuchstring, 1)

			;If sSuchstring = "Inhalt1" Suchvorgang abbrechen
			;If sSuchstring = "Inhalt2" Suchvorgang abbrechen

			Local $aResult_sSuchstring = _Excel_RangeFind($oWorkbook, $sSuchstring, Default, Default, $xlWhole)
			If @error Then Exit
			_ArrayDisplay($aResult_sSuchstring, "Excel UDF: _Excel_RangeFind ", "", 0, "|", "Sheet|Name|Cell|Value|Formula|Comment")

		Next
EndIf

Danke und Gruß

Hallo zusammen,

sorry, ich habe es wirklich nur eine einzige Zelle gemeint.
Danke BugFix für die Lösung!

Das Problem ist damit behoben.

Hallo zusammen,

ich möchte Text-Inhalt eine Zelle unterschiedlich darstellen: kursiv, fett-markiert, farbliche Darstellung ... alles gleichzeitig in nur eine Zelle. Wie macht man es?
Danke und Gruß

Hallo zusammen,

ich habe die Lösung nun selbst gefunden

$ExcelBlatt1 = 'Tabelle1'
$ExcelBlatt2 = 'Tabelle2'
$oWorkbook.Sheets($ExcelBlatt2).Activate

und dann wie gewöhnt weiter ...

PS: Wie setzte ich Status auf gelöst???

Sorry, ich habe mich schlecht ausgedrückt. Nun eben habe ich mein ersten Post ergänzt.

Kann jemand noch schreiben, wie man zwischen Blättern umschaltet?
Aktuell habe folgenden stringent

$read = _Excel_RangeRead($workbook, $workbook.Activesheet, "A1", 1) ; read the content of the A1 case of the excel file

Das Problem ist aber, wenn man an einem anderen Blatt was lesen will...

Danke und Gruß

Hallo zusammen,

ich habe folgende Herausforderung:
In Excel Reiter1(Blatt1) Spalte1 Zeilenweise (also A1, A2...) --> habe ich Verlinkung, die auf Reiter2 (Blatt2) SpalteX Zeilenweise führt.

Wie kann ich den Link in Script folgen? In EXCEL ohne Script drücke ich aufs Link und komme direkt an richtige Stelle (Zeile X)
Nun möchte ich mit Script die Zeile "untersuchen" und
--> hier ist mir schon klar wie - bestimmte Info rauskopieren.

Auch interessant ist hier und her switchen zwischen Blatt 1 und Blatt 2

Danke und Gruß

Danke Water!

Das hat nicht geholfen
Mein Script sieht so aus

Local $sFileExcel = @ScriptDir & "Test.xlsx" ; Change this to the path/name of your Excel sheet
    If Not FileExists($sFileExcel) Then ; Just a check to be sure..
        MsgBox($MB_SYSTEMMODAL, "Excel Data Test", "Error: Can't find file" & $sFileExcel)
        Exit
    EndIf






    ; Create application object and open an example workbook
    Local $oApplExcel = _Excel_Open(Default, True)
    If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Excel UDF: Example", "Error creating the Excel application object." & @CRLF & "@error = " & @error & ", @extended = " & @extended)






    Local $oWorkbook_Deckblatt = _Excel_BookOpen($oApplExcel, $sFileExcel, True)
    If @error Then
        MsgBox($MB_SYSTEMMODAL, "Excel UDF:  Example", "Error opening workbook '" & $sFileExcel & @CRLF & "@error = " & @error & ", @extended = " & @extended)
        _Excel_Close($oApplExcel)
        Exit
    EndIf

Früher hatte ich
Local $oApplExcel = _Excel_Open()
Nun habe ich es erweitert erweitert, aber erfolglos

Wo habe ich was falsch?

Danke und Gruß

Hallo zusammen,

ich habe folgendes Problem. Beim Öffnen eines EXCEL-Vorlage wird ständig abgefragt, ob ich Dokument aktualisieren will.

Wie kann ich diese Abfrage mit "Aktualisieren" bzw. "Nicht aktualisieren" abfangen?
Danke und Gruß