OOF with external Signature Software

Hallo WH_STR,

bezüglich Microsoft Exchange 2010 und Outlook2010 Anfragen würde ich Dich bitten im Technet Forum deine Anfrage nochmal zu stellen.

Leider ist es mir nicht möglich deine Anfrage direkt dorthin zu verschieben, ich möchte dich deshalb bitten diese Anfrage erneut im TechNet zu stellen.

Hier der Link zum Forum:

• http://social.technet.microsoft.com/Forums/de-de/categories/

Es wäre sehr nett von dir, wenn du uns einen Link, zu deinem posting im TechNet, zur Verfügung stellst. Auf diese Weise können auch andere User schnell die Antwort finden.

Gruss
André

Guten Morgen,

Hier
einiges Grundlegendes zu dem Thema.

Erstellen und Verwalten externer Gruppen in Yammer.

Auf der linken Seite im text findest Du noch mehr zu dem Thema.

Stelle bitte sicher das die externe Komunikation nicht unterbunden ist.

Freue mich auf Deine Rückmeldung

Mit freundlichem Gruß

Wolf Fabian Spohr

Microsoft Office 365 Support Engineer

glaub es oder nicht, aber das hatte ich auch schon versucht. Ging auch nicht. Hab nun den File zu gemacht und wieder geoeffnet und schon klappt es mit dem .range(.cells()).



Wenn ich jedoch mit dem Cursor ueber die With Bloecke gehe, dann sehe ich noch immer die Nachricht das die With Block Variable nicht stimmt. Jedoch warden nun auf einmal die Lrows berechnet und die VlookUps klappen.



Was ist dann aber nun an dem folgenden Befehl falsch? Dort bekomme ich fuer jede Formel: Application-defined or object-defined error





With wshSum



lrowSum = .Cells(.Rows.Count, "a").End(xlUp).Row

LrowTrend = .Cells(.Rows.Count, "i").End(xlUp).Row





.Range("b3:b" & lrowSum).Formula = "=SUMIFS('Data Signature'!$E$3:$E$" & lrowdata1 & ",'Data Signature'!$b$3:$b$ " & lrowdata1 & ",Summary!a3)"

.Range("c3:c" & lrowSum).Formula = "=SUMIFS('Data Signature'!$Q$3:$Q$" & lrowdata2 & ",'Data Signature'!$h$3:$h$" & lrowdata2 & ",Summary!a3)"

.Range("D3:d" & lrowSum).Formula = "=IFERROR(SUM(C3/B3),""NA"")"

.Range("F3:F11").Formula = "=iferror(Sum(SUMIFS('Data Signature'!$Q$3:$Q$" & lrowdata2 & ",'Data Signature'!$G$3:$G$" & lrowdata2 & ",Summary!E3)/SUMIFS('Data Signature'!$E$3:$E$" & lrowdata1 & ",'Data Signature'!$A$3:$A$ " & lrowdata1 & ",Summary!E3)),""NA"")"

Ich werde wohl weiterhin die Formel ausschreiben muessen da ich mich innerhalb einer formel auf verschiedene Worksheets beziehe und es dann wohl mit dem ganzen Set etc zu kompliziert wird.

Nein, genau das Gegenteil ist der Fall.

Ganz viele Leute brechen sich die Füße mit dieser Geschichte, gerade dann wenn Sie versuchen die Formel ala "=iferror(countifs("&CRD&"k:k,""Top Box"","&CRD&"h:h,$k7,"&CRD&"a:a,$k$3),0) zusammenzusetzen.

Es ist viel einfacher die Basisformel mit Platzhaltern als String zu sehen und die Platzhalter einfach zu ersetzen. Nehmen wir die Formel an der Du Dich gerade probierst und schreiben Sie universell.

In diesem Beispiel fängt jeder Platzhalter mit einem @ an, dabei sei @B1, @B2, @B3 der Bereich und @K1, @K2, @K3 die Kriterien:

Sub Test()

Dim S As String

Dim R As Range

S = "=IFERROR(COUNTIFS(@B1,@K1,@B2,@K2,@B3,@K3),0)"



With Worksheets("Chat Raw Data")

Set R = .Range("K:K")

S = Replace(S, "@B1", R.Address(0, 0, External:=True))

Set R = .Range("H:H")

S = Replace(S, "@B2", R.Address(0, 0, External:=True))

Set R = .Range("A:A")

S = Replace(S, "@B3", R.Address(0, 0, External:=True))

End With

With Worksheets("Team League")

S = Replace(S, "@K1", """Top Box""")

Set R = .Range("K7")

S = Replace(S, "@K2", R.Address(0, 1, External:=True))

Set R = .Range("K3")

S = Replace(S, "@K3", R.Address(1, 1, External:=True))

End With

Range("L7:L44").Formula = S

End Sub

Einfacher geht es wirklich nicht. Der Vorteil dieser Methode ist das es völlig egal ist in welche Tabelle auf welche Zelle Du R jeweils setzt, die generierte Formel ist immer korrekt... ob sie richtig rechnet ist eine andere Frage.

Andreas.

Guten Morgen,

Hier einiges zur
externen Freigabe eines Kalenders.

Freue mich auf Diene Rückmeldung.

Mit freundlichem Gruß

Wolf Fabian Spohr

Microsoft Office 365 Moderator