Vitosh

===================================

Ein Aufrufziel hat einen Ausnahmefehler verursacht. (mscorlib)

------------------------------
Speicherort des Programms:

   bei System.RuntimeMethodHandle.InvokeMethod(Object target, Object[] arguments, Signature sig, Boolean constructor)
   bei System.Reflection.RuntimeMethodInfo.UnsafeInvokeInternal(Object obj, Object[] parameters, Object[] arguments)
   bei System.Reflection.RuntimeMethodInfo.Invoke(Object obj, BindingFlags invokeAttr, Binder binder, Object[] parameters, CultureInfo culture)

Vitosh

===================================

Es wurde versucht, im geschützten Speicher zu lesen oder zu schreiben. Dies ist häufig ein Hinweis darauf, dass anderer Speicher beschädigt ist. (Microsoft.VisualStudio.OLE.Interop)

------------------------------
Speicherort des Programms:

   bei Microsoft.VisualStudio.OLE.Interop.IOleCommandTarget.QueryStatus(Guid& pguidCmdGroup, UInt32 cCmds, OLECMD[] prgCmds, IntPtr pCmdText)
   bei Microsoft.VisualStudio.Platform.WindowManagement.DocumentObjectSite.QueryStatus(Guid& pguidCmdGroup, UInt32 cCmds, OLECMD[] prgCmds, IntPtr pCmdText)
   bei Microsoft.VisualStudio.Platform.WindowManagement.WindowFrame.QueryStatus(Guid& pguidCmdGroup, UInt32 cCmds, OLECMD[] prgCmds, IntPtr pCmdText)

Vitosh

sub rangeme

	dim k as range
	set k = cells(1,1)
	if cells(1,1) = "" then set k = cells(1,2)
	debug.print k.address

end sub

Vitosh

using System;
class t01
{
    static void Main()
    {
        string str_read = "";
        long long_total = long.Parse(Console.ReadLine());
        long long_left;
        long long_right;
        long long_answer = 0;

Vitosh

Private Sub btnExit_Click()

    RaiseEvent OnExit

End Sub

Private Sub UserForm_QueryClose(CloseMode As Integer, Cancel As Integer)

    If CloseMode = vbFormControlMenu Then
        Cancel = True

Vitosh

Option Explicit
Option Private Module

Sub Testing()

    Dim strCell As String
    
    With ActiveSheet
    
        strCell = Left(.Cells(1, 1), 5)

Vitosh

Write in the immediate window the following:

s = "2"
?[s]
?Evaluate(s)

a = 2
?[a]
?Evaluate(a)

Vitosh

wkb.wks.Range("A1") = 213
wkb.wks.Range("B1") = 322
wkb.wks.Range("C1") = 32232

Vitosh

using System;

namespace Hanna
{
    class Startup
    {
        static void Main()
        {
            String input = "12.12.2222";
            int[] x = { 0, 0, 0 };

Vitosh

Option Explicit

Sub TestMe()
    
    Dim errorArray()
    
    Dim checkArray As Integer
    Dim errorString As String

    Dim c As Range