2
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 SubGruß,
unkwownuser
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 129056
Url: https://administrator.de/contentid/129056
Printed on: April 19, 2024 at 21:04 o'clock
2 Comments
Latest comment
Hallo unkwownuser!
Probiers mal damit:
Gruß Dieter
Probiers mal damit:
columnOffset = xExcel.ActiveCell.Column
rowOffset = xExcel.ActiveCell.RowGruß Dieter
Hallo Dieter,
genauso habe ich es auch noch rausgefunden.
Vielen Dank für die Unterstützung.
Gruß,
unkwownuser
genauso habe ich es auch noch rausgefunden.
Vielen Dank für die Unterstützung.
Gruß,
unkwownuser
