VBS - ermitteln der ActiveCell (Offsets)
Hallo liebes administrator.de Forum,
ich habe ein Problem mit dem ermitteln der ActiveCell.
Das ganze soll so ablaufen, wenn eine Abfrage mit "Ja" erfolgt, soll das Script über ActiveCell den columnOffset, sowie den rowOffset ermitteln und ihn einsetzen.
Falls nicht, nimmt das Script als columnOffset und rowOffset 0.
Hier ist der Code. Es ist nur ein kleines Szenario.
Excel muss für dieses Script geöffnet sein und die Abfrage muss mit "Ja" beantwortet werden.
Gruß,
unkwownuser
ich habe ein Problem mit dem ermitteln der ActiveCell.
Das ganze soll so ablaufen, wenn eine Abfrage mit "Ja" erfolgt, soll das Script über ActiveCell den columnOffset, sowie den rowOffset ermitteln und ihn einsetzen.
Falls nicht, nimmt das Script als columnOffset und rowOffset 0.
Hier ist der Code. Es ist nur ein kleines Szenario.
Excel muss für dieses Script geöffnet sein und die Abfrage muss mit "Ja" beantwortet werden.
Set Shell = WScript.CreateObject("WScript.Shell")
Result = Shell.AppActivate("Microsoft Excel")
columnOffset = 0
rowOffset = 0
If Result = True Then
Set xExcel = GetObject(, "Excel.Application")
Answer = MsgBox("In aktive Arbeitsmappe einfügen?", 4)
If Answer = vbYes Then
Call setValue(3, 3, "Teafdaffafsafxt")
columnOffset = ERMITTELN DER ACTIVECELL?
rowOffset = ERMITTELN DER ACTIVECELL?
Else
xExcel.Quit
End If
End If
Sub setValue(ByVal ColumnNumber, ByVal RowNumber, ByRef Value)
ColumnNumber = ColumnNumber + columnOffset
RowNumber = RowNumber + rowOffset
xExcel.ActiveWorkbook.ActiveSheet.Cells(RowNumber, ColumnNumber) = value
End Sub
Gruß,
unkwownuser
Please also mark the comments that contributed to the solution of the article
Content-Key: 129056
Url: https://administrator.de/contentid/129056
Printed on: April 20, 2024 at 02:04 o'clock
2 Comments
Latest comment
Hallo unkwownuser!
Probiers mal damit:
Gruß Dieter
Probiers mal damit:
columnOffset = xExcel.ActiveCell.Column
rowOffset = xExcel.ActiveCell.Row
Gruß Dieter