Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
784to788
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
784to788
784to788
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Probleme auf anderen Rechnern

Probleme auf anderen Rechnern
02.08.2006 09:48:11
Max
Hallo,
Ich habe ein tool geschrieben zur Auswertung einer Tabelle mit Erstellung von Diagrammen.
Dieses Tool funktioniert nur auf meinem Rechner, auf bisher 4 anderen erscheint gleich im zweiten schritt (set A=...) die Fehlermeldung "Projekt oder Bibliothek nicht gefunden"...
Weiß jemand Rat?
omc_type_daten Makro
' Makro am 20.07.2006 von Maximilian Heim aufgezeichnet
'
' Tastenkombination: Strg+k
'
'OMC-Type-Spalte kopieren
Windows("Report_OrdersOfApplication.xls").Activate
Set A = Cells.Find("OMC Type")
If Not A Is Nothing Then r = A(1, 1).Row: c = A(1, 1).Column
lz = Cells(Rows.Count, c).End(xlUp).Row
Range(Cells(r, c), Cells(lz, c)).Select
Selection.Copy
Windows("endversion.xls").Activate
Sheets("Daten aus Tabelle").Select
Range("A1").Select
ActiveSheet.Paste
'Werte für Config.Total
Sheets("Config. Total").Select
Range("B5").Select
ActiveCell.FormulaR1C1 = "=COUNTIF('Daten aus Tabelle'!C[-1],""CTL"")"
Range("C5").Select
ActiveCell.FormulaR1C1 = "=COUNTIF('Daten aus Tabelle'!C[-2],""OMC_MINI"")"
Range("D5").Select
ActiveCell.FormulaR1C1 = _
"=COUNTIF('Daten aus Tabelle'!C[-3],""OMC_NIGHTTIME"")"
Range("E5").Select
ActiveCell.FormulaR1C1 = _
"=COUNTIF('Daten aus Tabelle'!C[-4],""OMC_REDUNDANT"")"
Range("F5").Select
ActiveCell.FormulaR1C1 = "=COUNTIF('Daten aus Tabelle'!C[-5],""OMC_SMALL"")"
Range("G5").Select
ActiveCell.FormulaR1C1 = "=COUNTIF('Daten aus Tabelle'!C[-6],""OMC_STANDARD"")"
'Interne Kunden aus Tabelle kopieren
Dim rng As Range
Dim I As Long
Windows("Report_OrdersOfApplication.xls").Activate
Sheets("Pivot Data").Select
Set rng = ActiveSheet.UsedRange.Find("Internal (SFR Project)", _
LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If rng Is Nothing Then
MsgBox "Suchbegriff nicht gefunden", vbCritical
Exit Sub
End If
If Not IsEmpty(rng.Offset(1, 0)) Then
I = rng.Row
Else
I = rng.End(xlDown).Row - 1
If I + 1 >= Rows.Count Then
MsgBox "Keine beschriebene Zelle unter dem Suchbegriff", vbCritical
Exit Sub
End If
End If
Range(rng, Cells(I, rng.Column + 3)).Copy Destination:= _
Workbooks("endversion.xls").Sheets("Daten aus Tabelle").Range("B1")
Windows("Report_OrdersOfApplication.xls").Activate
Sheets("Pivot Data").Select
Set rng = ActiveSheet.UsedRange.Find("Internal test use", _
LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If rng Is Nothing Then
MsgBox "Suchbegriff nicht gefunden", vbCritical
Exit Sub
End If
If Not IsEmpty(rng.Offset(1, 0)) Then
I = rng.Row
Else
I = rng.End(xlDown).Row - 1
If I + 1 >= Rows.Count Then
MsgBox "Keine beschriebene Zelle unter dem Suchbegriff", vbCritical
Exit Sub
End If
End If
Range(rng, Cells(I, rng.Column + 3)).Copy Destination:= _
Workbooks("endversion.xls").Sheets("Daten aus Tabelle").Range("B55")
Windows("Report_OrdersOfApplication.xls").Activate
Sheets("Pivot Data").Select
Set rng = ActiveSheet.UsedRange.Find("PG NIC TE 4", _
LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If rng Is Nothing Then
MsgBox "Suchbegriff nicht gefunden", vbCritical
Exit Sub
End If
If Not IsEmpty(rng.Offset(1, 0)) Then
I = rng.Row
Else
I = rng.End(xlDown).Row - 1
If I + 1 >= Rows.Count Then
MsgBox "Keine beschriebene Zelle unter dem Suchbegriff", vbCritical
Exit Sub
End If
End If
Range(rng, Cells(I, rng.Column + 3)).Copy Destination:= _
Workbooks("endversion.xls").Sheets("Daten aus Tabelle").Range("B110")
Windows("Report_OrdersOfApplication.xls").Activate
Sheets("Pivot Data").Select
Set rng = ActiveSheet.UsedRange.Find("PITAC Bangkok (internal use)", _
LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If rng Is Nothing Then
MsgBox "Suchbegriff nicht gefunden", vbCritical
Exit Sub
End If
If Not IsEmpty(rng.Offset(1, 0)) Then
I = rng.Row
Else
I = rng.End(xlDown).Row - 1
If I + 1 >= Rows.Count Then
MsgBox "Keine beschriebene Zelle unter dem Suchbegriff", vbCritical
Exit Sub
End If
End If
Range(rng, Cells(I, rng.Column + 3)).Copy Destination:= _
Workbooks("endversion.xls").Sheets("Daten aus Tabelle").Range("B160")
Windows("Report_OrdersOfApplication.xls").Activate
Sheets("Pivot Data").Select
Set rng = ActiveSheet.UsedRange.Find("Reinhard Unterstein", _
LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If rng Is Nothing Then
MsgBox "Suchbegriff nicht gefunden", vbCritical
Exit Sub
End If
If Not IsEmpty(rng.Offset(1, 0)) Then
I = rng.Row
Else
I = rng.End(xlDown).Row - 1
If I + 1 >= Rows.Count Then
MsgBox "Keine beschriebene Zelle unter dem Suchbegriff", vbCritical
Exit Sub
End If
End If
Range(rng, Cells(I, rng.Column + 3)).Copy Destination:= _
Workbooks("endversion.xls").Sheets("Daten aus Tabelle").Range("B210")
Windows("Report_OrdersOfApplication.xls").Activate
Sheets("Pivot Data").Select
Set rng = ActiveSheet.UsedRange.Find("RET test bed", _
LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If rng Is Nothing Then
MsgBox "Suchbegriff nicht gefunden", vbCritical
Exit Sub
End If
If Not IsEmpty(rng.Offset(1, 0)) Then
I = rng.Row
Else
I = rng.End(xlDown).Row - 1
If I + 1 >= Rows.Count Then
MsgBox "Keine beschriebene Zelle unter dem Suchbegriff", vbCritical
Exit Sub
End If
End If
Range(rng, Cells(I, rng.Column + 3)).Copy Destination:= _
Workbooks("endversion.xls").Sheets("Daten aus Tabelle").Range("B260")
Windows("Report_OrdersOfApplication.xls").Activate
Sheets("Pivot Data").Select
Set rng = ActiveSheet.UsedRange.Find("Siemens (Internal Test)", _
LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If rng Is Nothing Then
MsgBox "Suchbegriff nicht gefunden", vbCritical
Exit Sub
End If
If Not IsEmpty(rng.Offset(1, 0)) Then
I = rng.Row
Else
I = rng.End(xlDown).Row - 1
If I + 1 >= Rows.Count Then
MsgBox "Keine beschriebene Zelle unter dem Suchbegriff", vbCritical
Exit Sub
End If
End If
Range(rng, Cells(I, rng.Column + 3)).Copy Destination:= _
Workbooks("endversion.xls").Sheets("Daten aus Tabelle").Range("B310")
Windows("Report_OrdersOfApplication.xls").Activate
Sheets("Pivot Data").Select
Set rng = ActiveSheet.UsedRange.Find("Siemens (Testbed Munich)", _
LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If rng Is Nothing Then
MsgBox "Suchbegriff nicht gefunden", vbCritical
Exit Sub
End If
If Not IsEmpty(rng.Offset(1, 0)) Then
I = rng.Row
Else
I = rng.End(xlDown).Row - 1
If I + 1 >= Rows.Count Then
MsgBox "Keine beschriebene Zelle unter dem Suchbegriff", vbCritical
Exit Sub
End If
End If
Range(rng, Cells(I, rng.Column + 3)).Copy Destination:= _
Workbooks("endversion.xls").Sheets("Daten aus Tabelle").Range("B360")
Windows("Report_OrdersOfApplication.xls").Activate
Sheets("Pivot Data").Select
Set rng = ActiveSheet.UsedRange.Find("Siemens AG Muenchen", _
LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If rng Is Nothing Then
MsgBox "Suchbegriff nicht gefunden", vbCritical
Exit Sub
End If
If Not IsEmpty(rng.Offset(1, 0)) Then
I = rng.Row
Else
I = rng.End(xlDown).Row - 1
If I + 1 >= Rows.Count Then
MsgBox "Keine beschriebene Zelle unter dem Suchbegriff", vbCritical
Exit Sub
End If
End If
Range(rng, Cells(I, rng.Column + 3)).Copy Destination:= _
Workbooks("endversion.xls").Sheets("Daten aus Tabelle").Range("B410")
Windows("Report_OrdersOfApplication.xls").Activate
Sheets("Pivot Data").Select
Set rng = ActiveSheet.UsedRange.Find("Siemens Bangalore", _
LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If rng Is Nothing Then
MsgBox "Suchbegriff nicht gefunden", vbCritical
Exit Sub
End If
If Not IsEmpty(rng.Offset(1, 0)) Then
I = rng.Row
Else
I = rng.End(xlDown).Row - 1
If I + 1 >= Rows.Count Then
MsgBox "Keine beschriebene Zelle unter dem Suchbegriff", vbCritical
Exit Sub
End If
End If
Range(rng, Cells(I, rng.Column + 3)).Copy Destination:= _
Workbooks("endversion.xls").Sheets("Daten aus Tabelle").Range("B460")
Windows("Report_OrdersOfApplication.xls").Activate
Sheets("Pivot Data").Select
Set rng = ActiveSheet.UsedRange.Find("Siemens Internal", _
LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If rng Is Nothing Then
MsgBox "Suchbegriff nicht gefunden", vbCritical
Exit Sub
End If
If Not IsEmpty(rng.Offset(1, 0)) Then
I = rng.Row
Else
I = rng.End(xlDown).Row - 1
If I + 1 >= Rows.Count Then
MsgBox "Keine beschriebene Zelle unter dem Suchbegriff", vbCritical
Exit Sub
End If
End If
Range(rng, Cells(I, rng.Column + 3)).Copy Destination:= _
Workbooks("endversion.xls").Sheets("Daten aus Tabelle").Range("B510")
Windows("Report_OrdersOfApplication.xls").Activate
Sheets("Pivot Data").Select
Set rng = ActiveSheet.UsedRange.Find("Siemens Portugal (Mobile FT2)", _
LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If rng Is Nothing Then
MsgBox "Suchbegriff nicht gefunden", vbCritical
Exit Sub
End If
If Not IsEmpty(rng.Offset(1, 0)) Then
I = rng.Row
Else
I = rng.End(xlDown).Row - 1
If I + 1 >= Rows.Count Then
MsgBox "Keine beschriebene Zelle unter dem Suchbegriff", vbCritical
Exit Sub
End If
End If
Range(rng, Cells(I, rng.Column + 3)).Copy Destination:= _
Workbooks("endversion.xls").Sheets("Daten aus Tabelle").Range("B560")
Windows("Report_OrdersOfApplication.xls").Activate
Sheets("Pivot Data").Select
Set rng = ActiveSheet.UsedRange.Find("Siemens Testbed", _
LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If rng Is Nothing Then
MsgBox "Suchbegriff nicht gefunden", vbCritical
Exit Sub
End If
If Not IsEmpty(rng.Offset(1, 0)) Then
I = rng.Row
Else
I = rng.End(xlDown).Row - 1
If I + 1 >= Rows.Count Then
MsgBox "Keine beschriebene Zelle unter dem Suchbegriff", vbCritical
Exit Sub
End If
End If
Range(rng, Cells(I, rng.Column + 3)).Copy Destination:= _
Workbooks("endversion.xls").Sheets("Daten aus Tabelle").Range("B610")
Windows("Report_OrdersOfApplication.xls").Activate
Sheets("Pivot Data").Select
Set rng = ActiveSheet.UsedRange.Find("Siemens Training Institute", _
LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If rng Is Nothing Then
MsgBox "Suchbegriff nicht gefunden", vbCritical
Exit Sub
End If
If Not IsEmpty(rng.Offset(1, 0)) Then
I = rng.Row
Else
I = rng.End(xlDown).Row - 1
If I + 1 >= Rows.Count Then
MsgBox "Keine beschriebene Zelle unter dem Suchbegriff", vbCritical
Exit Sub
End If
End If
Range(rng, Cells(I, rng.Column + 3)).Copy Destination:= _
Workbooks("endversion.xls").Sheets("Daten aus Tabelle").Range("B660")
Windows("Report_OrdersOfApplication.xls").Activate
Sheets("Pivot Data").Select
Set rng = ActiveSheet.UsedRange.Find("Siemens, Com MN PG R T", _
LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If rng Is Nothing Then
MsgBox "Suchbegriff nicht gefunden", vbCritical
Exit Sub
End If
If Not IsEmpty(rng.Offset(1, 0)) Then
I = rng.Row
Else
I = rng.End(xlDown).Row - 1
If I + 1 >= Rows.Count Then
MsgBox "Keine beschriebene Zelle unter dem Suchbegriff", vbCritical
Exit Sub
End If
End If
Range(rng, Cells(I, rng.Column + 3)).Copy Destination:= _
Workbooks("endversion.xls").Sheets("Daten aus Tabelle").Range("B710")
Windows("Report_OrdersOfApplication.xls").Activate
Sheets("Pivot Data").Select
Set rng = ActiveSheet.UsedRange.Find("SIETEL RSA", _
LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If rng Is Nothing Then
MsgBox "Suchbegriff nicht gefunden", vbCritical
Exit Sub
End If
If Not IsEmpty(rng.Offset(1, 0)) Then
I = rng.Row
Else
I = rng.End(xlDown).Row - 1
If I + 1 >= Rows.Count Then
MsgBox "Keine beschriebene Zelle unter dem Suchbegriff", vbCritical
Exit Sub
End If
End If
Range(rng, Cells(I, rng.Column + 3)).Copy Destination:= _
Workbooks("endversion.xls").Sheets("Daten aus Tabelle").Range("B760")
Windows("Report_OrdersOfApplication.xls").Activate
Sheets("Pivot Data").Select
Set rng = ActiveSheet.UsedRange.Find("SLC", _
LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If rng Is Nothing Then
MsgBox "Suchbegriff nicht gefunden", vbCritical
Exit Sub
End If
If Not IsEmpty(rng.Offset(1, 0)) Then
I = rng.Row
Else
I = rng.End(xlDown).Row - 1
If I + 1 >= Rows.Count Then
MsgBox "Keine beschriebene Zelle unter dem Suchbegriff", vbCritical
Exit Sub
End If
End If
Range(rng, Cells(I, rng.Column + 3)).Copy Destination:= _
Workbooks("endversion.xls").Sheets("Daten aus Tabelle").Range("B810")
Windows("Report_OrdersOfApplication.xls").Activate
Sheets("Pivot Data").Select
Set rng = ActiveSheet.UsedRange.Find("St.Denis-Testbed", _
LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If rng Is Nothing Then
MsgBox "Suchbegriff nicht gefunden", vbCritical
Exit Sub
End If
If Not IsEmpty(rng.Offset(1, 0)) Then
I = rng.Row
Else
I = rng.End(xlDown).Row - 1
If I + 1 >= Rows.Count Then
MsgBox "Keine beschriebene Zelle unter dem Suchbegriff", vbCritical
Exit Sub
End If
End If
Range(rng, Cells(I, rng.Column + 3)).Copy Destination:= _
Workbooks("endversion.xls").Sheets("Daten aus Tabelle").Range("B860")
Windows("Report_OrdersOfApplication.xls").Activate
Sheets("Pivot Data").Select
Set rng = ActiveSheet.UsedRange.Find("Tacc Testbed for Vodafone", _
LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If rng Is Nothing Then
MsgBox "Suchbegriff nicht gefunden", vbCritical
Exit Sub
End If
If Not IsEmpty(rng.Offset(1, 0)) Then
I = rng.Row
Else
I = rng.End(xlDown).Row - 1
If I + 1 >= Rows.Count Then
MsgBox "Keine beschriebene Zelle unter dem Suchbegriff", vbCritical
Exit Sub
End If
End If
Range(rng, Cells(I, rng.Column + 3)).Copy Destination:= _
Workbooks("endversion.xls").Sheets("Daten aus Tabelle").Range("B910")
Windows("Report_OrdersOfApplication.xls").Activate
Sheets("Pivot Data").Select
Set rng = ActiveSheet.UsedRange.Find("Testbed Bangalore", _
LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If rng Is Nothing Then
MsgBox "Suchbegriff nicht gefunden", vbCritical
Exit Sub
End If
If Not IsEmpty(rng.Offset(1, 0)) Then
I = rng.Row
Else
I = rng.End(xlDown).Row - 1
If I + 1 >= Rows.Count Then
MsgBox "Keine beschriebene Zelle unter dem Suchbegriff", vbCritical
Exit Sub
End If
End If
Range(rng, Cells(I, rng.Column + 3)).Copy Destination:= _
Workbooks("endversion.xls").Sheets("Daten aus Tabelle").Range("B960")
Windows("Report_OrdersOfApplication.xls").Activate
Sheets("Pivot Data").Select
Set rng = ActiveSheet.UsedRange.Find("Testbed Italy", _
LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If rng Is Nothing Then
MsgBox "Suchbegriff nicht gefunden", vbCritical
Exit Sub
End If
If Not IsEmpty(rng.Offset(1, 0)) Then
I = rng.Row
Else
I = rng.End(xlDown).Row - 1
If I + 1 >= Rows.Count Then
MsgBox "Keine beschriebene Zelle unter dem Suchbegriff", vbCritical
Exit Sub
End If
End If
Range(rng, Cells(I, rng.Column + 3)).Copy Destination:= _
Workbooks("endversion.xls").Sheets("Daten aus Tabelle").Range("B1010")
Windows("Report_OrdersOfApplication.xls").Activate
Sheets("Pivot Data").Select
Set rng = ActiveSheet.UsedRange.Find("Testbesteller T-Mobile", _
LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If rng Is Nothing Then
MsgBox "Suchbegriff nicht gefunden", vbCritical
Exit Sub
End If
If Not IsEmpty(rng.Offset(1, 0)) Then
I = rng.Row
Else
I = rng.End(xlDown).Row - 1
If I + 1 >= Rows.Count Then
MsgBox "Keine beschriebene Zelle unter dem Suchbegriff", vbCritical
Exit Sub
End If
End If
Range(rng, Cells(I, rng.Column + 3)).Copy Destination:= _
Workbooks("endversion.xls").Sheets("Daten aus Tabelle").Range("B1060")
Windows("Report_OrdersOfApplication.xls").Activate
Sheets("Pivot Data").Select
Set rng = ActiveSheet.UsedRange.Find("T-Mobile", _
LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If rng Is Nothing Then
MsgBox "Suchbegriff nicht gefunden", vbCritical
Exit Sub
End If
If Not IsEmpty(rng.Offset(1, 0)) Then
I = rng.Row
Else
I = rng.End(xlDown).Row - 1
If I + 1 >= Rows.Count Then
MsgBox "Keine beschriebene Zelle unter dem Suchbegriff", vbCritical
Exit Sub
End If
End If
Range(rng, Cells(I, rng.Column + 3)).Copy Destination:= _
Workbooks("endversion.xls").Sheets("Daten aus Tabelle").Range("B1110")
Windows("Report_OrdersOfApplication.xls").Activate
Sheets("Pivot Data").Select
Set rng = ActiveSheet.UsedRange.Find("Foreign Systems Integration Center", _
LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If rng Is Nothing Then
MsgBox "Suchbegriff nicht gefunden", vbCritical
Exit Sub
End If
If Not IsEmpty(rng.Offset(1, 0)) Then
I = rng.Row
Else
I = rng.End(xlDown).Row - 1
If I + 1 >= Rows.Count Then
MsgBox "Keine beschriebene Zelle unter dem Suchbegriff", vbCritical
Exit Sub
End If
End If
Range(rng, Cells(I, rng.Column + 3)).Copy Destination:= _
Workbooks("endversion.xls").Sheets("Daten aus Tabelle").Range("B1160")
Windows("Report_OrdersOfApplication.xls").Activate
Sheets("Pivot Data").Select
Set rng = ActiveSheet.UsedRange.Find("OOO Siemens", _
LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If rng Is Nothing Then
MsgBox "Suchbegriff nicht gefunden", vbCritical
Exit Sub
End If
If Not IsEmpty(rng.Offset(1, 0)) Then
I = rng.Row
Else
I = rng.End(xlDown).Row - 1
If I + 1 >= Rows.Count Then
MsgBox "Keine beschriebene Zelle unter dem Suchbegriff", vbCritical
Exit Sub
End If
End If
Range(rng, Cells(I, rng.Column + 3)).Copy Destination:= _
Workbooks("endversion.xls").Sheets("Daten aus Tabelle").Range("B1210")
Windows("Report_OrdersOfApplication.xls").Activate
Sheets("Pivot Data").Select
Set rng = ActiveSheet.UsedRange.Find("Siemens Schulungszentren", _
LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If rng Is Nothing Then
MsgBox "Suchbegriff nicht gefunden", vbCritical
Exit Sub
End If
If Not IsEmpty(rng.Offset(1, 0)) Then
I = rng.Row
Else
I = rng.End(xlDown).Row - 1
If I + 1 >= Rows.Count Then
MsgBox "Keine beschriebene Zelle unter dem Suchbegriff", vbCritical
Exit Sub
End If
End If
Range(rng, Cells(I, rng.Column + 3)).Copy Destination:= _
Workbooks("endversion.xls").Sheets("Daten aus Tabelle").Range("B1260")
Windows("Report_OrdersOfApplication.xls").Activate
Sheets("Pivot Data").Select
Set rng = ActiveSheet.UsedRange.Find("Siemens AG Com Fixed Networks R40", _
LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If rng Is Nothing Then
MsgBox "Suchbegriff nicht gefunden", vbCritical
Exit Sub
End If
If Not IsEmpty(rng.Offset(1, 0)) Then
I = rng.Row
Else
I = rng.End(xlDown).Row - 1
If I + 1 >= Rows.Count Then
MsgBox "Keine beschriebene Zelle unter dem Suchbegriff", vbCritical
Exit Sub
End If
End If
Range(rng, Cells(I, rng.Column + 3)).Copy Destination:= _
Workbooks("endversion.xls").Sheets("Daten aus Tabelle").Range("B1310")
Windows("Report_OrdersOfApplication.xls").Activate
Sheets("Pivot Data").Select
Set rng = ActiveSheet.UsedRange.Find("Siemens S.A. - Belgium", _
LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If rng Is Nothing Then
MsgBox "Suchbegriff nicht gefunden", vbCritical
Exit Sub
End If
If Not IsEmpty(rng.Offset(1, 0)) Then
I = rng.Row
Else
I = rng.End(xlDown).Row - 1
If I + 1 >= Rows.Count Then
MsgBox "Keine beschriebene Zelle unter dem Suchbegriff", vbCritical
Exit Sub
End If
End If
Range(rng, Cells(I, rng.Column + 3)).Copy Destination:= _
Workbooks("endversion.xls").Sheets("Daten aus Tabelle").Range("B1360")
' Werte für Interne Kunden
Windows("endversion.xls").Activate
Sheets("Config. Intern - Extern").Select
Range("C5").Select
ActiveCell.FormulaR1C1 = _
"=COUNTIF('Daten aus Tabelle'!R[-4]C[2]:R[4995]C[2],""CTL"")"
Range("D5").Select
ActiveCell.FormulaR1C1 = _
"=COUNTIF('Daten aus Tabelle'!R[-4]C[1]:R[4995]C[1],""OMC_Mini"")"
Range("E5").Select
ActiveCell.FormulaR1C1 = _
"=COUNTIF('Daten aus Tabelle'!R[-4]C:R[4995]C,""OMC_Nighttime"")"
Range("F5").Select
ActiveCell.FormulaR1C1 = _
"=COUNTIF('Daten aus Tabelle'!R[-4]C[-1]:R[4995]C[-1],""OMC_Redundant"")"
Range("G5").Select
ActiveCell.FormulaR1C1 = _
"=COUNTIF('Daten aus Tabelle'!R[-4]C[-2]:R[4995]C[-2],""OMC_Small"")"
Range("H5").Select
ActiveCell.FormulaR1C1 = _
"=COUNTIF('Daten aus Tabelle'!R[-4]C[-3]:R[4995]C[-3],""OMC_Standard"")"
'Werte für Externe Kunden (Gesamt - Intern)
Windows("endversion.xls").Activate
Sheets("Config. Intern - Extern").Select
Range("C6").Select
ActiveCell.FormulaR1C1 = _
"=COUNTIF('Daten aus Tabelle'!R[-5]C[-2]:R[4994]C[-2],""CTL"")"
Range("C6").Select
ActiveCell.FormulaR1C1 = _
"=COUNTIF('Daten aus Tabelle'!R[-5]C[-2]:R[4994]C[-2],""CTL"")-R[-1]C"
Sheets("Config. Intern - Extern").Select
Range("D6").Select
ActiveCell.FormulaR1C1 = _
"=COUNTIF('Daten aus Tabelle'!R[-5]C[-3]:R[4994]C[-3],""OMC_Mini"")"
ActiveCell.FormulaR1C1 = _
"=COUNTIF('Daten aus Tabelle'!R[-5]C[-3]:R[4994]C[-3],""OMC_Mini"")-R[-1]C"
Sheets("Config. Intern - Extern").Select
Range("E6").Select
ActiveCell.FormulaR1C1 = _
"=COUNTIF('Daten aus Tabelle'!R[-5]C[-4]:R[4994]C[-4],""OMC_Nighttime"")"
ActiveCell.FormulaR1C1 = _
"=COUNTIF('Daten aus Tabelle'!R[-5]C[-4]:R[4994]C[-4],""OMC_Nighttime"")-R[-1]C"
Sheets("Config. Intern - Extern").Select
Range("F6").Select
ActiveCell.FormulaR1C1 = _
"=COUNTIF('Daten aus Tabelle'!R[-5]C[-5]:R[4994]C[-5],""OMC_Redundant"")"
ActiveCell.FormulaR1C1 = _
"=COUNTIF('Daten aus Tabelle'!R[-5]C[-5]:R[4994]C[-5],""OMC_Redundant"")-R[-1]C"
Sheets("Config. Intern - Extern").Select
Range("G6").Select
ActiveCell.FormulaR1C1 = _
"=COUNTIF('Daten aus Tabelle'!R[-5]C[-6]:R[4994]C[-6],""OMC_Small"")"
ActiveCell.FormulaR1C1 = _
"=COUNTIF('Daten aus Tabelle'!R[-5]C[-6]:R[4994]C[-6],""OMC_Small"")-R[-1]C"
Sheets("Config. Intern - Extern").Select
Range("H6").Select
ActiveCell.FormulaR1C1 = _
"=COUNTIF('Daten aus Tabelle'!R[-5]C[-7]:R[4994]C[-7],""OMC_Standard"")"
ActiveCell.FormulaR1C1 = _
"=COUNTIF('Daten aus Tabelle'!R[-5]C[-7]:R[4994]C[-7],""OMC_Standard"")-R[-1]C"
'Externe Kunden + Applikationen aus Tabelle kopieren (ERGEBNISZEILEN)
Windows("Report_OrdersOfApplication.xls").Activate
Sheets("Pivot Data").Select
Set rng = ActiveSheet.UsedRange.Find("Customer", _
LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If rng Is Nothing Then
MsgBox "Suchbegriff nicht gefunden", vbCritical
Exit Sub
End If
If Not IsEmpty(rng.Offset(1, 0)) Then
I = rng.Row
Else
I = rng.End(xlDown).Row - 1
If I + 1 >= Rows.Count Then
MsgBox "Keine beschriebene Zelle unter dem Suchbegriff", vbCritical
Exit Sub
End If
End If
Range(rng, Cells(I, rng.Column + 55)).Copy Destination:= _
Workbooks("endversion.xls").Sheets("Daten aus Tabelle").Range("F1")
Windows("Report_OrdersOfApplication.xls").Activate
Sheets("Pivot Data").Select
Set rng = ActiveSheet.UsedRange.Find("Cegeltel SFR France Ergebnis", _
LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If rng Is Nothing Then
MsgBox "Suchbegriff nicht gefunden", vbCritical
Exit Sub
End If
If Not IsEmpty(rng.Offset(1, 0)) Then
I = rng.Row
Else
I = rng.End(xlDown).Row - 1
If I + 1 >= Rows.Count Then
MsgBox "Keine beschriebene Zelle unter dem Suchbegriff", vbCritical
Exit Sub
End If
End If
Range(rng, Cells(I, rng.Column + 55)).Copy Destination:= _
Workbooks("endversion.xls").Sheets("Daten aus Tabelle").Range("F2")
Windows("Report_OrdersOfApplication.xls").Activate
Sheets("Pivot Data").Select
Set rng = ActiveSheet.UsedRange.Find("Cell C Ergebnis", _
LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If rng Is Nothing Then
MsgBox "Suchbegriff nicht gefunden", vbCritical
Exit Sub
End If
If Not IsEmpty(rng.Offset(1, 0)) Then
I = rng.Row
Else
I = rng.End(xlDown).Row - 1
If I + 1 >= Rows.Count Then
MsgBox "Keine beschriebene Zelle unter dem Suchbegriff", vbCritical
Exit Sub
End If
End If
Range(rng, Cells(I, rng.Column + 55)).Copy Destination:= _
Workbooks("endversion.xls").Sheets("Daten aus Tabelle").Range("F3")
Windows("Report_OrdersOfApplication.xls").Activate
Sheets("Pivot Data").Select
Set rng = ActiveSheet.UsedRange.Find("China Netcom Ergebnis", _
LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If rng Is Nothing Then
MsgBox "Suchbegriff nicht gefunden", vbCritical
Exit Sub
End If
If Not IsEmpty(rng.Offset(1, 0)) Then
I = rng.Row
Else
I = rng.End(xlDown).Row - 1
If I + 1 >= Rows.Count Then
MsgBox "Keine beschriebene Zelle unter dem Suchbegriff", vbCritical
Exit Sub
End If
End If
Range(rng, Cells(I, rng.Column + 55)).Copy Destination:= _
Workbooks("endversion.xls").Sheets("Daten aus Tabelle").Range("F4")
Windows("Report_OrdersOfApplication.xls").Activate
Sheets("Pivot Data").Select
Set rng = ActiveSheet.UsedRange.Find("DiGi Telecommunications Sdn. Bhd. Ergebnis", _
LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If rng Is Nothing Then
MsgBox "Suchbegriff nicht gefunden", vbCritical
Exit Sub
End If
If Not IsEmpty(rng.Offset(1, 0)) Then
I = rng.Row
Else
I = rng.End(xlDown).Row - 1
If I + 1 >= Rows.Count Then
MsgBox "Keine beschriebene Zelle unter dem Suchbegriff", vbCritical
Exit Sub
End If
End If
Range(rng, Cells(I, rng.Column + 55)).Copy Destination:= _
Workbooks("endversion.xls").Sheets("Daten aus Tabelle").Range("F5")
Windows("Report_OrdersOfApplication.xls").Activate
Sheets("Pivot Data").Select
Set rng = ActiveSheet.UsedRange.Find("E-Plus Ergebnis", _
LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If rng Is Nothing Then
MsgBox "Suchbegriff nicht gefunden", vbCritical
Exit Sub
End If
If Not IsEmpty(rng.Offset(1, 0)) Then
I = rng.Row
Else
I = rng.End(xlDown).Row - 1
If I + 1 >= Rows.Count Then
MsgBox "Keine beschriebene Zelle unter dem Suchbegriff", vbCritical
Exit Sub
End If
End If
Range(rng, Cells(I, rng.Column + 55)).Copy Destination:= _
Workbooks("endversion.xls").Sheets("Daten aus Tabelle").Range("F6")
Windows("Report_OrdersOfApplication.xls").Activate
Sheets("Pivot Data").Select
Set rng = ActiveSheet.UsedRange.Find("EXTEL Ergebnis", _
LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If rng Is Nothing Then
MsgBox "Suchbegriff nicht gefunden", vbCritical
Exit Sub
End If
If Not IsEmpty(rng.Offset(1, 0)) Then
I = rng.Row
Else
I = rng.End(xlDown).Row - 1
If I + 1 >= Rows.Count Then
MsgBox "Keine beschriebene Zelle unter dem Suchbegriff", vbCritical
Exit Sub
End If
End If
Range(rng, Cells(I, rng.Column + 55)).Copy Destination:= _
Workbooks("endversion.xls").Sheets("Daten aus Tabelle").Range("F7")
Windows("Report_OrdersOfApplication.xls").Activate
Sheets("Pivot Data").Select
Set rng = ActiveSheet.UsedRange.Find("Fastlink Jordan Ergebnis", _
LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If rng Is Nothing Then
MsgBox "Suchbegriff nicht gefunden", vbCritical
Exit Sub
End If
If Not IsEmpty(rng.Offset(1, 0)) Then
I = rng.Row
Else
I = rng.End(xlDown).Row - 1
If I + 1 >= Rows.Count Then
MsgBox "Keine beschriebene Zelle unter dem Suchbegriff", vbCritical
Exit Sub
End If
End If
Range(rng, Cells(I, rng.Column + 55)).Copy Destination:= _
Workbooks("endversion.xls").Sheets("Daten aus Tabelle").Range("F8")
Windows("Report_OrdersOfApplication.xls").Activate
Sheets("Pivot Data").Select
Set rng = ActiveSheet.UsedRange.Find("Hutchison Indonesia Ergebnis", _
LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If rng Is Nothing Then
MsgBox "Suchbegriff nicht gefunden", vbCritical
Exit Sub
End If
If Not IsEmpty(rng.Offset(1, 0)) Then
I = rng.Row
Else
I = rng.End(xlDown).Row - 1
If I + 1 >= Rows.Count Then
MsgBox "Keine beschriebene Zelle unter dem Suchbegriff", vbCritical
Exit Sub
End If
End If
Range(rng, Cells(I, rng.Column + 55)).Copy Destination:= _
Workbooks("endversion.xls").Sheets("Daten aus Tabelle").Range("F9")
Windows("Report_OrdersOfApplication.xls").Activate
Sheets("Pivot Data").Select
Set rng = ActiveSheet.UsedRange.Find("ITISSALAT al Maghrib Ergebnis", _
LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If rng Is Nothing Then
MsgBox "Suchbegriff nicht gefunden", vbCritical
Exit Sub
End If
If Not IsEmpty(rng.Offset(1, 0)) Then
I = rng.Row
Else
I = rng.End(xlDown).Row - 1
If I + 1 >= Rows.Count Then
MsgBox "Keine beschriebene Zelle unter dem Suchbegriff", vbCritical
Exit Sub
End If
End If
Range(rng, Cells(I, rng.Column + 55)).Copy Destination:= _
Workbooks("endversion.xls").Sheets("Daten aus Tabelle").Range("F10")
Windows("Report_OrdersOfApplication.xls").Activate
Sheets("Pivot Data").Select
Set rng = ActiveSheet.UsedRange.Find("JP PTT Saobracaja Srbija Ergebnis", _
LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If rng Is Nothing Then
MsgBox "Suchbegriff nicht gefunden", vbCritical
Exit Sub
End If
If Not IsEmpty(rng.Offset(1, 0)) Then
I = rng.Row
Else
I = rng.End(xlDown).Row - 1
If I + 1 >= Rows.Count Then
MsgBox "Keine beschriebene Zelle unter dem Suchbegriff", vbCritical
Exit Sub
End If
End If
Range(rng, Cells(I, rng.Column + 55)).Copy Destination:= _
Workbooks("endversion.xls").Sheets("Daten aus Tabelle").Range("F11")
Windows("Report_OrdersOfApplication.xls").Activate
Sheets("Pivot Data").Select
Set rng = ActiveSheet.UsedRange.Find("JSC * Ergebnis", _
LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If rng Is Nothing Then
MsgBox "Suchbegriff nicht gefunden", vbCritical
Exit Sub
End If
If Not IsEmpty(rng.Offset(1, 0)) Then
I = rng.Row
Else
I = rng.End(xlDown).Row - 1
If I + 1 >= Rows.Count Then
MsgBox "Keine beschriebene Zelle unter dem Suchbegriff", vbCritical
Exit Sub
End If
End If
Range(rng, Cells(I, rng.Column + 55)).Copy Destination:= _
Workbooks("endversion.xls").Sheets("Daten aus Tabelle").Range("F12")
Windows("Report_OrdersOfApplication.xls").Activate
Sheets("Pivot Data").Select
Set rng = ActiveSheet.UsedRange.Find("MAGTICOM LTD Ergebnis", _
LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If rng Is Nothing Then
MsgBox "Suchbegriff nicht gefunden", vbCritical
Exit Sub
End If
If Not IsEmpty(rng.Offset(1, 0)) Then
I = rng.Row
Else
I = rng.End(xlDown).Row - 1
If I + 1 >= Rows.Count Then
MsgBox "Keine beschriebene Zelle unter dem Suchbegriff", vbCritical
Exit Sub
End If
End If
Range(rng, Cells(I, rng.Column + 55)).Copy Destination:= _
Workbooks("endversion.xls").Sheets("Daten aus Tabelle").Range("F13")
Windows("Report_OrdersOfApplication.xls").Activate
Sheets("Pivot Data").Select
Set rng = ActiveSheet.UsedRange.Find("Maxis Mobile Sdn. Bhd. Ergebnis", _
LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If rng Is Nothing Then
MsgBox "Suchbegriff nicht gefunden", vbCritical
Exit Sub
End If
If Not IsEmpty(rng.Offset(1, 0)) Then
I = rng.Row
Else
I = rng.End(xlDown).Row - 1
If I + 1 >= Rows.Count Then
MsgBox "Keine beschriebene Zelle unter dem Suchbegriff", vbCritical
Exit Sub
End If
End If
Range(rng, Cells(I, rng.Column + 55)).Copy Destination:= _
Workbooks("endversion.xls").Sheets("Daten aus Tabelle").Range("F14")
Windows("Report_OrdersOfApplication.xls").Activate
Sheets("Pivot Data").Select
Set rng = ActiveSheet.UsedRange.Find("Mobile Telecommunications Co. Kuwait Ergebnis", _
LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If rng Is Nothing Then
MsgBox "Suchbegriff nicht gefunden", vbCritical
Exit Sub
End If
If Not IsEmpty(rng.Offset(1, 0)) Then
I = rng.Row
Else
I = rng.End(xlDown).Row - 1
If I + 1 >= Rows.Count Then
MsgBox "Keine beschriebene Zelle unter dem Suchbegriff", vbCritical
Exit Sub
End If
End If
Range(rng, Cells(I, rng.Column + 55)).Copy Destination:= _
Workbooks("endversion.xls").Sheets("Daten aus Tabelle").Range("F15")
Windows("Report_OrdersOfApplication.xls").Activate
Sheets("Pivot Data").Select
Set rng = ActiveSheet.UsedRange.Find("o2 (Germany) GmbH & Co OHG Ergebnis", _
LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If rng Is Nothing Then
MsgBox "Suchbegriff nicht gefunden", vbCritical
Exit Sub
End If
If Not IsEmpty(rng.Offset(1, 0)) Then
I = rng.Row
Else
I = rng.End(xlDown).Row - 1
If I + 1 >= Rows.Count Then
MsgBox "Keine beschriebene Zelle unter dem Suchbegriff", vbCritical
Exit Sub
End If
End If
Range(rng, Cells(I, rng.Column + 55)).Copy Destination:= _
Workbooks("endversion.xls").Sheets("Daten aus Tabelle").Range("F16")
Windows("Report_OrdersOfApplication.xls").Activate
Sheets("Pivot Data").Select
Set rng = ActiveSheet.UsedRange.Find("Oman Mobile Telecommunications Ergebnis", _
LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If rng Is Nothing Then
MsgBox "Suchbegriff nicht gefunden", vbCritical
Exit Sub
End If
If Not IsEmpty(rng.Offset(1, 0)) Then
I = rng.Row
Else
I = rng.End(xlDown).Row - 1
If I + 1 >= Rows.Count Then
MsgBox "Keine beschriebene Zelle unter dem Suchbegriff", vbCritical
Exit Sub
End If
End If
Range(rng, Cells(I, rng.Column + 55)).Copy Destination:= _
Workbooks("endversion.xls").Sheets("Daten aus Tabelle").Range("F17")
Windows("Report_OrdersOfApplication.xls").Activate
Sheets("Pivot Data").Select
Set rng = ActiveSheet.UsedRange.Find("P & T LUXEMBOURG Ergebnis", _
LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If rng Is Nothing Then
MsgBox "Suchbegriff nicht gefunden", vbCritical
Exit Sub
End If
If Not IsEmpty(rng.Offset(1, 0)) Then
I = rng.Row
Else
I = rng.End(xlDown).Row - 1
If I + 1 >= Rows.Count Then
MsgBox "Keine beschriebene Zelle unter dem Suchbegriff", vbCritical
Exit Sub
End If
End If
Range(rng, Cells(I, rng.Column + 55)).Copy Destination:= _
Workbooks("endversion.xls").Sheets("Daten aus Tabelle").Range("F18")
Windows("Report_OrdersOfApplication.xls").Activate
Sheets("Pivot Data").Select
Set rng = ActiveSheet.UsedRange.Find("P.T. Indosat Ergebnis", _
LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If rng Is Nothing Then
MsgBox "Suchbegriff nicht gefunden", vbCritical
Exit Sub
End If
If Not IsEmpty(rng.Offset(1, 0)) Then
I = rng.Row
Else
I = rng.End(xlDown).Row - 1
If I + 1 >= Rows.Count Then
MsgBox "Keine beschriebene Zelle unter dem Suchbegriff", vbCritical
Exit Sub
End If
End If
Range(rng, Cells(I, rng.Column + 55)).Copy Destination:= _
Workbooks("endversion.xls").Sheets("Daten aus Tabelle").Range("F19")
Windows("Report_OrdersOfApplication.xls").Activate
Sheets("Pivot Data").Select
Set rng = ActiveSheet.UsedRange.Find("P.T. TELEKOMUNIKASI SELULAR Ergebnis", _
LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If rng Is Nothing Then
MsgBox "Suchbegriff nicht gefunden", vbCritical
Exit Sub
End If
If Not IsEmpty(rng.Offset(1, 0)) Then
I = rng.Row
Else
I = rng.End(xlDown).Row - 1
If I + 1 >= Rows.Count Then
MsgBox "Keine beschriebene Zelle unter dem Suchbegriff", vbCritical
Exit Sub
End If
End If
Range(rng, Cells(I, rng.Column + 55)).Copy Destination:= _
Workbooks("endversion.xls").Sheets("Daten aus Tabelle").Range("F20")
Windows("Report_OrdersOfApplication.xls").Activate
Sheets("Pivot Data").Select
Set rng = ActiveSheet.UsedRange.Find("Phase 5 ZWUT/PTC Ergebnis", _
LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If rng Is Nothing Then
MsgBox "Suchbegriff nicht gefunden", vbCritical
Exit Sub
End If
If Not IsEmpty(rng.Offset(1, 0)) Then
I = rng.Row
Else
I = rng.End(xlDown).Row - 1
If I + 1 >= Rows.Count Then
MsgBox "Keine beschriebene Zelle unter dem Suchbegriff", vbCritical
Exit Sub
End If
End If
Range(rng, Cells(I, rng.Column + 55)).Copy Destination:= _
Workbooks("endversion.xls").Sheets("Daten aus Tabelle").Range("F21")
Windows("Report_OrdersOfApplication.xls").Activate
Sheets("Pivot Data").Select
Set rng = ActiveSheet.UsedRange.Find("PT Excelcomindo Pratama Ergebnis", _
LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If rng Is Nothing Then
MsgBox "Suchbegriff nicht gefunden", vbCritical
Exit Sub
End If
If Not IsEmpty(rng.Offset(1, 0)) Then
I = rng.Row
Else
I = rng.End(xlDown).Row - 1
If I + 1 >= Rows.Count Then
MsgBox "Keine beschriebene Zelle unter dem Suchbegriff", vbCritical
Exit Sub
End If
End If
Range(rng, Cells(I, rng.Column + 55)).Copy Destination:= _
Workbooks("endversion.xls").Sheets("Daten aus Tabelle").Range("F22")
Windows("Report_OrdersOfApplication.xls").Activate
Sheets("Pivot Data").Select
Set rng = ActiveSheet.UsedRange.Find("Safaricom Ltd. Ergebnis", _
LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If rng Is Nothing Then
MsgBox "Suchbegriff nicht gefunden", vbCritical
Exit Sub
End If
If Not IsEmpty(rng.Offset(1, 0)) Then
I = rng.Row
Else
I = rng.End(xlDown).Row - 1
If I + 1 >= Rows.Count Then
MsgBox "Keine beschriebene Zelle unter dem Suchbegriff", vbCritical
Exit Sub
End If
End If
Range(rng, Cells(I, rng.Column + 55)).Copy Destination:= _
Workbooks("endversion.xls").Sheets("Daten aus Tabelle").Range("F23")
Windows("Report_OrdersOfApplication.xls").Activate
Sheets("Pivot Data").Select
Set rng = ActiveSheet.UsedRange.Find("SFR Ergebnis", _
LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If rng Is Nothing Then
MsgBox "Suchbegriff nicht gefunden", vbCritical
Exit Sub
End If
If Not IsEmpty(rng.Offset(1, 0)) Then
I = rng.Row
Else
I = rng.End(xlDown).Row - 1
If I + 1 >= Rows.Count Then
MsgBox "Keine beschriebene Zelle unter dem Suchbegriff", vbCritical
Exit Sub
End If
End If
Range(rng, Cells(I, rng.Column + 55)).Copy Destination:= _
Workbooks("endversion.xls").Sheets("Daten aus Tabelle").Range("F24")
Windows("Report_OrdersOfApplication.xls").Activate
Sheets("Pivot Data").Select
Set rng = ActiveSheet.UsedRange.Find("SFR France Ergebnis", _
LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If rng Is Nothing Then
MsgBox "Suchbegriff nicht gefunden", vbCritical
Exit Sub
End If
If Not IsEmpty(rng.Offset(1, 0)) Then
I = rng.Row
Else
I = rng.End(xlDown).Row - 1
If I + 1 >= Rows.Count Then
MsgBox "Keine beschriebene Zelle unter dem Suchbegriff", vbCritical
Exit Sub
End If
End If
Range(rng, Cells(I, rng.Column + 55)).Copy Destination:= _
Workbooks("endversion.xls").Sheets("Daten aus Tabelle").Range("F25")
Windows("Report_OrdersOfApplication.xls").Activate
Sheets("Pivot Data").Select
Set rng = ActiveSheet.UsedRange.Find("SFR Testbed Redundant Ergebnis", _
LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If rng Is Nothing Then
MsgBox "Suchbegriff nicht gefunden", vbCritical
Exit Sub
End If
If Not IsEmpty(rng.Offset(1, 0)) Then
I = rng.Row
Else
I = rng.End(xlDown).Row - 1
If I + 1 >= Rows.Count Then
MsgBox "Keine beschriebene Zelle unter dem Suchbegriff", vbCritical
Exit Sub
End If
End If
Range(rng, Cells(I, rng.Column + 55)).Copy Destination:= _
Workbooks("endversion.xls").Sheets("Daten aus Tabelle").Range("F26")
Windows("Report_OrdersOfApplication.xls").Activate
Sheets("Pivot Data").Select
Set rng = ActiveSheet.UsedRange.Find("SFR Testbed Standard Ergebnis", _
LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If rng Is Nothing Then
MsgBox "Suchbegriff nicht gefunden", vbCritical
Exit Sub
End If
If Not IsEmpty(rng.Offset(1, 0)) Then
I = rng.Row
Else
I = rng.End(xlDown).Row - 1
If I + 1 >= Rows.Count Then
MsgBox "Keine beschriebene Zelle unter dem Suchbegriff", vbCritical
Exit Sub
End If
End If
Range(rng, Cells(I, rng.Column + 55)).Copy Destination:= _
Workbooks("endversion.xls").Sheets("Daten aus Tabelle").Range("F27")
Windows("Report_OrdersOfApplication.xls").Activate
Sheets("Pivot Data").Select
Set rng = ActiveSheet.UsedRange.Find("Sheba Telecom Ergebnis", _
LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If rng Is Nothing Then
MsgBox "Suchbegriff nicht gefunden", vbCritical
Exit Sub
End If
If Not IsEmpty(rng.Offset(1, 0)) Then
I = rng.Row
Else
I = rng.End(xlDown).Row - 1
If I + 1 >= Rows.Count Then
MsgBox "Keine beschriebene Zelle unter dem Suchbegriff", vbCritical
Exit Sub
End If
End If
Range(rng, Cells(I, rng.Column + 55)).Copy Destination:= _
Workbooks("endversion.xls").Sheets("Daten aus Tabelle").Range("F28")
Windows("Report_OrdersOfApplication.xls").Activate
Sheets("Pivot Data").Select
Set rng = ActiveSheet.UsedRange.Find("Siemens Telecommunications Ergebnis", _
LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If rng Is Nothing Then
MsgBox "Suchbegriff nicht gefunden", vbCritical
Exit Sub
End If
If Not IsEmpty(rng.Offset(1, 0)) Then
I = rng.Row
Else
I = rng.End(xlDown).Row - 1
If I + 1 >= Rows.Count Then
MsgBox "Keine beschriebene Zelle unter dem Suchbegriff", vbCritical
Exit Sub
End If
End If
Range(rng, Cells(I, rng.Column + 55)).Copy Destination:= _
Workbooks("endversion.xls").Sheets("Daten aus Tabelle").Range("F29")
Windows("Report_OrdersOfApplication.xls").Activate
Sheets("Pivot Data").Select
Set rng = ActiveSheet.UsedRange.Find("SOOO Mobile TeleSystems Ergebnis", _
LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If rng Is Nothing Then
MsgBox "Suchbegriff nicht gefunden", vbCritical
Exit Sub
End If
If Not IsEmpty(rng.Offset(1, 0)) Then
I = rng.Row
Else
I = rng.End(xlDown).Row - 1
If I + 1 >= Rows.Count Then
MsgBox "Keine beschriebene Zelle unter dem Suchbegriff", vbCritical
Exit Sub
End If
End If
Range(rng, Cells(I, rng.Column + 55)).Copy Destination:= _
Workbooks("endversion.xls").Sheets("Daten aus Tabelle").Range("F30")
Windows("Report_OrdersOfApplication.xls").Activate
Sheets("Pivot Data").Select
Set rng = ActiveSheet.UsedRange.Find("SPICE Communications Pvt. Limited Ergebnis", _
LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If rng Is Nothing Then
MsgBox "Suchbegriff nicht gefunden", vbCritical
Exit Sub
End If
If Not IsEmpty(rng.Offset(1, 0)) Then
I = rng.Row
Else
I = rng.End(xlDown).Row - 1
If I + 1 >= Rows.Count Then
MsgBox "Keine beschriebene Zelle unter dem Suchbegriff", vbCritical
Exit Sub
End If
End If
Range(rng, Cells(I, rng.Column + 55)).Copy Destination:= _
Workbooks("endversion.xls").Sheets("Daten aus Tabelle").Range("F31")
Windows("Report_OrdersOfApplication.xls").Activate
Sheets("Pivot Data").Select
Set rng = ActiveSheet.UsedRange.Find("TelCell Ergebnis", _
LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If rng Is Nothing Then
MsgBox "Suchbegriff nicht gefunden", vbCritical
Exit Sub
End If
If Not IsEmpty(rng.Offset(1, 0)) Then
I = rng.Row
Else
I = rng.End(xlDown).Row - 1
If I + 1 >= Rows.Count Then
MsgBox "Keine beschriebene Zelle unter dem Suchbegriff", vbCritical
Exit Sub
End If
End If
Range(rng, Cells(I, rng.Column + 55)).Copy Destination:= _
Workbooks("endversion.xls").Sheets("Daten aus Tabelle").Range("F32")
Windows("Report_OrdersOfApplication.xls").Activate
Sheets("Pivot Data").Select
Set rng = ActiveSheet.UsedRange.Find("Telefonica Ergebnis", _
LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If rng Is Nothing Then
MsgBox "Suchbegriff nicht gefunden", vbCritical
Exit Sub
End If
If Not IsEmpty(rng.Offset(1, 0)) Then
I = rng.Row
Else
I = rng.End(xlDown).Row - 1
If I + 1 >= Rows.Count Then
MsgBox "Keine beschriebene Zelle unter dem Suchbegriff", vbCritical
Exit Sub
End If
End If
Range(rng, Cells(I, rng.Column + 55)).Copy Destination:= _
Workbooks("endversion.xls").Sheets("Daten aus Tabelle").Range("F33")
Windows("Report_OrdersOfApplication.xls").Activate
Sheets("Pivot Data").Select
Set rng = ActiveSheet.UsedRange.Find("Telenor Pakistan (Private) Limited Ergebnis", _
LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If rng Is Nothing Then
MsgBox "Suchbegriff nicht gefunden", vbCritical
Exit Sub
End If
If Not IsEmpty(rng.Offset(1, 0)) Then
I = rng.Row
Else
I = rng.End(xlDown).Row - 1
If I + 1 >= Rows.Count Then
MsgBox "Keine beschriebene Zelle unter dem Suchbegriff", vbCritical
Exit Sub
End If
End If
Range(rng, Cells(I, rng.Column + 55)).Copy Destination:= _
Workbooks("endversion.xls").Sheets("Daten aus Tabelle").Range("F34")
Windows("Report_OrdersOfApplication.xls").Activate
Sheets("Pivot Data").Select
Set rng = ActiveSheet.UsedRange.Find("Telkomsel Ergebnis", _
LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If rng Is Nothing Then
MsgBox "Suchbegriff nicht gefunden", vbCritical
Exit Sub
End If
If Not IsEmpty(rng.Offset(1, 0)) Then
I = rng.Row
Else
I = rng.End(xlDown).Row - 1
If I + 1 >= Rows.Count Then
MsgBox "Keine beschriebene Zelle unter dem Suchbegriff", vbCritical
Exit Sub
End If
End If
Range(rng, Cells(I, rng.Column + 55)).Copy Destination:= _
Workbooks("endversion.xls").Sheets("Daten aus Tabelle").Range("F35")
Windows("Report_OrdersOfApplication.xls").Activate
Sheets("Pivot Data").Select
Set rng = ActiveSheet.UsedRange.Find("Vodacom (PTY) Ltd. Ergebnis", _
LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If rng Is Nothing Then
MsgBox "Suchbegriff nicht gefunden", vbCritical
Exit Sub
End If
If Not IsEmpty(rng.Offset(1, 0)) Then
I = rng.Row
Else
I = rng.End(xlDown).Row - 1
If I + 1 >= Rows.Count Then
MsgBox "Keine beschriebene Zelle unter dem Suchbegriff", vbCritical
Exit Sub
End If
End If
Range(rng, Cells(I, rng.Column + 55)).Copy Destination:= _
Workbooks("endversion.xls").Sheets("Daten aus Tabelle").Range("F36")
Windows("Report_OrdersOfApplication.xls").Activate
Sheets("Pivot Data").Select
Set rng = ActiveSheet.UsedRange.Find("Vodacom Tanzania Limited Ergebnis", _
LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If rng Is Nothing Then
MsgBox "Suchbegriff nicht gefunden", vbCritical
Exit Sub
End If
If Not IsEmpty(rng.Offset(1, 0)) Then
I = rng.Row
Else
I = rng.End(xlDown).Row - 1
If I + 1 >= Rows.Count Then
MsgBox "Keine beschriebene Zelle unter dem Suchbegriff", vbCritical
Exit Sub
End If
End If
Range(rng, Cells(I, rng.Column + 55)).Copy Destination:= _
Workbooks("endversion.xls").Sheets("Daten aus Tabelle").Range("F37")
Windows("Report_OrdersOfApplication.xls").Activate
Sheets("Pivot Data").Select
Set rng = ActiveSheet.UsedRange.Find("Vodafone D2 GmbH Ergebnis", _
LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If rng Is Nothing Then
MsgBox "Suchbegriff nicht gefunden", vbCritical
Exit Sub
End If
If Not IsEmpty(rng.Offset(1, 0)) Then
I = rng.Row
Else
I = rng.End(xlDown).Row - 1
If I + 1 >= Rows.Count Then
MsgBox "Keine beschriebene Zelle unter dem Suchbegriff", vbCritical
Exit Sub
End If
End If
Range(rng, Cells(I, rng.Column + 55)).Copy Destination:= _
Workbooks("endversion.xls").Sheets("Daten aus Tabelle").Range("F38")
Windows("Report_OrdersOfApplication.xls").Activate
Sheets("Pivot Data").Select
Set rng = ActiveSheet.UsedRange.Find("Vodafone Malta ltd Ergebnis", _
LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If rng Is Nothing Then
MsgBox "Suchbegriff nicht gefunden", vbCritical
Exit Sub
End If
If Not IsEmpty(rng.Offset(1, 0)) Then
I = rng.Row
Else
I = rng.End(xlDown).Row - 1
If I + 1 >= Rows.Count Then
MsgBox "Keine beschriebene Zelle unter dem Suchbegriff", vbCritical
Exit Sub
End If
End If
Range(rng, Cells(I, rng.Column + 55)).Copy Destination:= _
Workbooks("endversion.xls").Sheets("Daten aus Tabelle").Range("F39")
Windows("Report_OrdersOfApplication.xls").Activate
Sheets("Pivot Data").Select
Set rng = ActiveSheet.UsedRange.Find("Vodafone SFR Ergebnis", _
LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If rng Is Nothing Then
MsgBox "Suchbegriff nicht gefunden", vbCritical
Exit Sub
End If
If Not IsEmpty(rng.Offset(1, 0)) Then
I = rng.Row
Else
I = rng.End(xlDown).Row - 1
If I + 1 >= Rows.Count Then
MsgBox "Keine beschriebene Zelle unter dem Suchbegriff", vbCritical
Exit Sub
End If
End If
Range(rng, Cells(I, rng.Column + 55)).Copy Destination:= _
Workbooks("endversion.xls").Sheets("Daten aus Tabelle").Range("F40")
Windows("Report_OrdersOfApplication.xls").Activate
Sheets("Pivot Data").Select
Set rng = ActiveSheet.UsedRange.Find("Advanced Info Service Ergebnis", _
LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If rng Is Nothing Then
MsgBox "Suchbegriff nicht gefunden", vbCritical
Exit Sub
End If
If Not IsEmpty(rng.Offset(1, 0)) Then
I = rng.Row
Else
I = rng.End(xlDown).Row - 1
If I + 1 >= Rows.Count Then
MsgBox "Keine beschriebene Zelle unter dem Suchbegriff", vbCritical
Exit Sub
End If
End If
Range(rng, Cells(I, rng.Column + 55)).Copy Destination:= _
Workbooks("endversion.xls").Sheets("Daten aus Tabelle").Range("F41")
Windows("Report_OrdersOfApplication.xls").Activate
Sheets("Pivot Data").Select
Set rng = ActiveSheet.UsedRange.Find("GTO Oman Ergebnis", _
LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If rng Is Nothing Then
MsgBox "Suchbegriff nicht gefunden", vbCritical
Exit Sub
End If
If Not IsEmpty(rng.Offset(1, 0)) Then
I = rng.Row
Else
I = rng.End(xlDown).Row - 1
If I + 1 >= Rows.Count Then
MsgBox "Keine beschriebene Zelle unter dem Suchbegriff", vbCritical
Exit Sub
End If
End If
Range(rng, Cells(I, rng.Column + 55)).Copy Destination:= _
Workbooks("endversion.xls").Sheets("Daten aus Tabelle").Range("F42")
Windows("Report_OrdersOfApplication.xls").Activate
Sheets("Pivot Data").Select
Set rng = ActiveSheet.UsedRange.Find("Hutchison HCPT Ergebnis", _
LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If rng Is Nothing Then
MsgBox "Suchbegriff nicht gefunden", vbCritical
Exit Sub
End If
If Not IsEmpty(rng.Offset(1, 0)) Then
I = rng.Row
Else
I = rng.End(xlDown).Row - 1
If I + 1 >= Rows.Count Then
MsgBox "Keine beschriebene Zelle unter dem Suchbegriff", vbCritical
Exit Sub
End If
End If
Range(rng, Cells(I, rng.Column + 55)).Copy Destination:= _
Workbooks("endversion.xls").Sheets("Daten aus Tabelle").Range("F43")
Windows("Report_OrdersOfApplication.xls").Activate
Sheets("Pivot Data").Select
Set rng = ActiveSheet.UsedRange.Find("MobiFon S.A. Ergebnis", _
LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If rng Is Nothing Then
MsgBox "Suchbegriff nicht gefunden", vbCritical
Exit Sub
End If
If Not IsEmpty(rng.Offset(1, 0)) Then
I = rng.Row
Else
I = rng.End(xlDown).Row - 1
If I + 1 >= Rows.Count Then
MsgBox "Keine beschriebene Zelle unter dem Suchbegriff", vbCritical
Exit Sub
End If
End If
Range(rng, Cells(I, rng.Column + 55)).Copy Destination:= _
Workbooks("endversion.xls").Sheets("Daten aus Tabelle").Range("F44")
Windows("Report_OrdersOfApplication.xls").Activate
Sheets("Pivot Data").Select
Set rng = ActiveSheet.UsedRange.Find("OJSC Mobile TeleSystems Ergebnis", _
LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If rng Is Nothing Then
MsgBox "Suchbegriff nicht gefunden", vbCritical
Exit Sub
End If
If Not IsEmpty(rng.Offset(1, 0)) Then
I = rng.Row
Else
I = rng.End(xlDown).Row - 1
If I + 1 >= Rows.Count Then
MsgBox "Keine beschriebene Zelle unter dem Suchbegriff", vbCritical
Exit Sub
End If
End If
Range(rng, Cells(I, rng.Column + 55)).Copy Destination:= _
Workbooks("endversion.xls").Sheets("Daten aus Tabelle").Range("F45")
Windows("Report_OrdersOfApplication.xls").Activate
Sheets("Pivot Data").Select
Set rng = ActiveSheet.UsedRange.Find("Telekom Srpske/Mobis Ergebnis", _
LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If rng Is Nothing Then
MsgBox "Suchbegriff nicht gefunden", vbCritical
Exit Sub
End If
If Not IsEmpty(rng.Offset(1, 0)) Then
I = rng.Row
Else
I = rng.End(xlDown).Row - 1
If I + 1 >= Rows.Count Then
MsgBox "Keine beschriebene Zelle unter dem Suchbegriff", vbCritical
Exit Sub
End If
End If
Range(rng, Cells(I, rng.Column + 55)).Copy Destination:= _
Workbooks("endversion.xls").Sheets("Daten aus Tabelle").Range("F46")
Windows("Report_OrdersOfApplication.xls").Activate
Sheets("Pivot Data").Select
Set rng = ActiveSheet.UsedRange.Find("Rep. Srbska Ergebnis", _
LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If rng Is Nothing Then
MsgBox "Suchbegriff nicht gefunden", vbCritical
Exit Sub
End If
If Not IsEmpty(rng.Offset(1, 0)) Then
I = rng.Row
Else
I = rng.End(xlDown).Row - 1
If I + 1 >= Rows.Count Then
MsgBox "Keine beschriebene Zelle unter dem Suchbegriff", vbCritical
Exit Sub
End If
End If
Range(rng, Cells(I, rng.Column + 55)).Copy Destination:= _
Workbooks("endversion.xls").Sheets("Daten aus Tabelle").Range("F47")
Windows("Report_OrdersOfApplication.xls").Activate
Sheets("Pivot Data").Select
Set rng = ActiveSheet.UsedRange.Find("Turkcell Ergebnis", _
LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If rng Is Nothing Then
MsgBox "Suchbegriff nicht gefunden", vbCritical
Exit Sub
End If
If Not IsEmpty(rng.Offset(1, 0)) Then
I = rng.Row
Else
I = rng.End(xlDown).Row - 1
If I + 1 >= Rows.Count Then
MsgBox "Keine beschriebene Zelle unter dem Suchbegriff", vbCritical
Exit Sub
End If
End If
Range(rng, Cells(I, rng.Column + 55)).Copy Destination:= _
Workbooks("endversion.xls").Sheets("Daten aus Tabelle").Range("F48")
Windows("Report_OrdersOfApplication.xls").Activate
Sheets("Pivot Data").Select
Set rng = ActiveSheet.UsedRange.Find("VELCOM Ergebnis", _
LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If rng Is Nothing Then
MsgBox "Suchbegriff nicht gefunden", vbCritical
Exit Sub
End If
If Not IsEmpty(rng.Offset(1, 0)) Then
I = rng.Row
Else
I = rng.End(xlDown).Row - 1
If I + 1 >= Rows.Count Then
MsgBox "Keine beschriebene Zelle unter dem Suchbegriff", vbCritical
Exit Sub
End If
End If
Range(rng, Cells(I, rng.Column + 55)).Copy Destination:= _
Workbooks("endversion.xls").Sheets("Daten aus Tabelle").Range("F49")
Windows("Report_OrdersOfApplication.xls").Activate
Sheets("Pivot Data").Select
Set rng = ActiveSheet.UsedRange.Find("Vietnam Telecom Services Company Ergebnis", _
LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If rng Is Nothing Then
MsgBox "Suchbegriff nicht gefunden", vbCritical
Exit Sub
End If
If Not IsEmpty(rng.Offset(1, 0)) Then
I = rng.Row
Else
I = rng.End(xlDown).Row - 1
If I + 1 >= Rows.Count Then
MsgBox "Keine beschriebene Zelle unter dem Suchbegriff", vbCritical
Exit Sub
End If
End If
Range(rng, Cells(I, rng.Column + 55)).Copy Destination:= _
Workbooks("endversion.xls").Sheets("Daten aus Tabelle").Range("F50")
'Werte für ext. Appl. - license Vergleich
Windows("endversion.xls").Activate
With Worksheets("ext. Appl. - license Vergleich")
.Range("C5") = Format(SucheSpezial("SYPD (System Panel Display for OMC) - new license"), "#,##0")
.Range("C7") = Format(SucheSpezial("SYPD (System Panel Display for OMC) - temporary license"), "#,##0")
.Range("D5") = Format(SucheSpezial("SYPD (System Panel Display for CTL) - new license"), "#,##0")
.Range("E5") = Format(SucheSpezial("CLA (Centralized Log Analyzer) - new license"), "#,##0")
.Range("E7") = Format(SucheSpezial("CLA (Centralized Log Analyzer) - temporary license"), "#,##0")
.Range("F5") = Format(SucheSpezial("CLI (Command Line Interface) - new license"), "#,##0")
.Range("F6") = Format(SucheSpezial("CLI (Command Line Interface) - upgrade license"), "#,##0")
.Range("F7") = Format(SucheSpezial("CLI (Command Line Interface) - temporary license"), "#,##0")
.Range("G5") = Format(SucheSpezial("NE Measurement Admin - new license"), "#,##0")
.Range("G7") = Format(SucheSpezial("NE Measurement Admin - temporary license"), "#,##0")
.Range("H5") = Format(SucheSpezial("APNM (APN Mgmt) - new license"), "#,##0")
.Range("H7") = Format(SucheSpezial("APNM (APN Mgmt) - temporary license"), "#,##0")
.Range("I5") = Format(SucheSpezial("AutoPatch - new license"), "#,##0")
.Range("J5") = Format(SucheSpezial("CBR - new license"), "#,##0")
.Range("J6") = Format(SucheSpezial("CBR - upgrade license"), "#,##0")
.Range("J7") = Format(SucheSpezial("CBR - temporary license"), "#,##0")
.Range("K5") = Format(SucheSpezial("CDM - new license"), "#,##0")
.Range("K7") = Format(SucheSpezial("CDM - temporary license"), "#,##0")
.Range("L5") = Format(SucheSpezial("ISS (Integrated SWM Solution) - IPS - new license"), "#,##0")
.Range("M5") = Format(SucheSpezial("MFFM-Q3 - new license"), "#,##0")
.Range("M6") = Format(SucheSpezial("MFFM-Q3 - upgrade license"), "#,##0")
.Range("M7") = Format(SucheSpezial("MFFM-Q3 - temporary license"), "#,##0")
.Range("N5") = Format(SucheSpezial("MFFM-SNMP - new license") + SucheSpezial("MFFM-SNMP in OMC Mini - new license"), "#,##0")
.Range("N6") = Format(SucheSpezial("MFFM-SNMP - upgrade license"), "#,##0")
.Range("N7") = Format(SucheSpezial("MFFM-SNMP - temporary license"), "#,##0")
.Range("O5") = Format(SucheSpezial("MNP (Mobile Number Portability) - new license") + SucheSpezial("MNP (Mobile Number Portability) hiS700m V5 - new license"), "#,##0")
.Range("O6") = Format(SucheSpezial("MNP (Mobile Number Portability) - upgrade license SCR11/SCR12"), "#,##0")
.Range("O7") = Format(SucheSpezial("MNP (Mobile Number Portability) - temporary license"), "#,##0")
.Range("P5") = Format(SucheSpezial("NCM - Plan - new license") + SucheSpezial("NCM - Load Export - new license"), "#,##0")
.Range("P7") = Format(SucheSpezial("NCM - Plan - temporary license"), "#,##0")
.Range("Q5") = Format(SucheSpezial("PDC - new license") + SucheSpezial("PDC in OMC Mini - new license"), "#,##0")
.Range("Q6") = Format(SucheSpezial("PDC - upgrade license"), "#,##0")
.Range("Q7") = Format(SucheSpezial("PDC - temporary license"), "#,##0")
.Range("R5") = Format(SucheSpezial("Basic Application Software SCR - new license"), "#,##0")
End With
End Sub

Private Function SucheSpezial(strSuchkriterium As String) As Currency
Dim WS As Worksheet
Set WS = Worksheets("Daten aus Tabelle")
SucheSpezial = WorksheetFunction.Sum(WS.Columns(Application.Match(strSuchkriterium, WS.Rows(1), 0)))
End Function

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Probleme auf anderen Rechnern
02.08.2006 09:51:18
Dr.
Schlanker Codeschnipsel! ;-)
Schau mal bei den anderen Rechnern im VBA-Editor unter Extras/Verweise, ob eine oder mehrere Bibliotheken fehlen.
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige