Mail-Kontowiderherstellung scheitert auf Grund von unzureichenden Daten ich fülle immer...

So. Danke!!!! - hat geklappt. Wobei ich es schon auch kompliziert finde mit dem zusätzlichen App-PW, an dem so etwas dann scheitert...

es hat seine Gründe, Ja... aber... ;-)

Es ist mir jetzt gelungen, Azure zu aktivieren und mich einzulogen. Dort habe ich einen globalen Administrator eingerichtet. Mit den Daten kann ich mich jetzt auch in PORTAL.OFFICE.COM einloggen. Aber dort habe ich jetzt die Meldung: "Office 365-Dienste
sind aus einem der folgenden Gründe nicht verfügbar: Sie haben keine Dienste abonniert ..."

Der Versuch, die Partnerlizenzen für Office 365 neu zu aktivieren, scheitert daran, dass mir kein Produktkey mehr angezeigt wird. Wenn ich auf Produktkey klicke werde ich direkt zur Aktivierung weitergeleitet und dort sofort nach dem Produktkey gefragt.

Irgendwie ist diese ganze Prozedur eine Qual.

Hallo WAL58,

hast du mehrere unterschiedliche Versionen des Microsoft Office Systems installiert?

Schau dir bitte mal diesen Thread von mir an.
http://social.answers.microsoft.com/Forums/de-DE/officeinstallde/thread/4d4ae165-91d9-4466-8fa3-12fb9aa794a5

Hilft dir das weiter?

Mit freundlichem Gruss

Marco

This posting is provided "AS IS" with no warranties and confers no rights.

Hallo,



wozu brauchst du das? Wenn es rein um die Anzeige geht, kannst du doch mit der eingebauten Maske arbeiten. Dort Kriterien wählen und in Feld1 den gewünschten Wert schreiben und alles Weitere geht dann von allein.

Sonst ein anderer Ansatz, der für dich vielleicht verständlicher ist (Musst du noch weiter ausfüllen):



Private Sub CommandButton1_Click()

Dim lngSuch

Dim i As Integer

Dim LRow As Long

Dim rngC As Range

LRow = Cells(Rows.Count, 1).End(xlUp).Row

lngSuch = Me.TextBox2.Value

Set rngC = Range("A1:A" & LRow).Find(lngSuch, _

Range("A" & LRow), xlValues)

With UserForm1

If Not rngC Is Nothing Then

.TextBox1 = Cells(rngC.Row, 1)

.TextBox3 = Cells(rngC.Row, 2)

.TextBox4 = Cells(rngC.Row, 3)

.TextBox5 = Cells(rngC.Row, 4)

'......

Else

MsgBox "Wert wurde nicht gefunden"

End If

End With

End Sub



Mit freundlichen Grüßen

Claus

überschriften in der listbox wären schon toll und sinnvoll.

Na denn mach ich einfach mal.

Aber bevor es los geht, den Quatsch ala

ThisWorkbook.Close SaveChanges:=False

und

Private Sub Workbook_BeforeClose(Cancel As Boolean)

SendKeys "%{F4}", True

Call An

End Sub

und

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

If CloseMode = 0 Then Cancel = True

End Sub

solltest Du Dir echt schenken. Der User ist doch nicht doof, oder?

Naja, ist wohl so'n typisch deutsches Verlangen überall erst mal Reglementierungen einzubauen bevor es überhaupt los geht. )

BTW, schau mal in diese Datei, so einfach kann laden und speichern von Daten in/aus einer Userform sein:

https://dl.dropboxusercontent.com/u/35239054/Simple_Userform.xlsm

Damit Du das Beispiel auch mal ansehen kannst hab ich das ganze obige Gerümpel entsorgt:

https://dl.dropboxusercontent.com/u/35239054/Samples/7437e18b-2591-41af-96d7-63512880bc41.xlsm

Mach die Datei mal auf und kuck in die Tabelle "UserForm3". In die 1st Zeile habe ich einfach alle Überschriften reinkopiert und die nicht benötigten gelöscht.

Drück Alt-F8 und UserForm3_Show ausführen. Dann gibst Du als Kundennamen z.B. M* ein und drückst ENTER.

Kuck Dir den Code in UserForm3 an, sollte ausreichend kommentiert sein. Fragen?

Andreas.