title image


Smiley Die Methode 'Range' für das Objekt '_Global' ist fehlgeschlagen
Mein Code:



Sub codieren()

Dim b As Integer

Dim Zelle As Object

Reihe = ActiveCell.Row

PW_Klartext = InputBox("Bitte geben Sie das zu verschlüsselnde Passwort ein", "Passworteingabe", "Passwort")

Länge = Len(PW_Klartext)

For pos = 1 To Länge

C = Asc(Mid(PW_Klartext, pos, 1))

Range(Cells(Reihe, pos + 2)).Value = C

.

.

.

.

Next

End Sub



Warum bekomme ich immer o.g. fehler??



Danke im voraus



Gruß HPS2


Viele Grüße aus dem Teutoburger Wald, Horst-Peter

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: