ࡱ>  &% !"#$'69()*+,-./0123457;8:Root Entry F@<ӠAWorkbook\ _VBA_PROJECT_CUR"`UӠ@<ӠVBA`UӠ@<Ӡ (ɀ\pThomas Harmening Ba=DieseArbeitsmappe=<L;n78X@"1Arial1Arial1Arial1Arial1Arial1QTahoma1QTahoma1Arial3#,##0\ " ";\-#,##0\ " "=#,##0\ " ";[Red]\-#,##0\ " "?#,##0.00\ " ";\-#,##0.00\ " "I"#,##0.00\ " ";[Red]\-#,##0.00\ " "q*6_-* #,##0\ " "_-;\-* #,##0\ " "_-;_-* "-"\ " "_-;_-@_-k)3_-* #,##0\ _ _-;\-* #,##0\ _ _-;_-* "-"\ _ _-;_-@_-,>_-* #,##0.00\ " "_-;\-* #,##0.00\ " "_-;_-* "-"??\ " "_-;_-@_-{+;_-* #,##0.00\ _ _-;\-* #,##0.00\ _ _-;_-* "-"??\ _ _-;_-@_-                + )  , *    h""@ @ /  x"@ @4  x"@ 4  x" @ 4  x"@ 4  0"@  0 " @  x  @/  x /  x"@@ /  x"@ @/  x" @ / ` V Liste11 herbstleseTZR3 A@@   Allgemeine Infos: Elektroden:ElektrodenparameterMaterialRohling Schruppen Vorschlichten SchlichtenPolierenAbd-Pas-Kon-Nach Elektrode-ArtMessen Kommentar 1 Kommentar 2Hhe Feste LngeBreiteAnzahl'Elektrodenname2  (ɀ   dMbP?_*+%M\\smtcp938.pcd.daimler-benz.co$S 4dXXA4PRIV0''''` P4(%TRJPHAAADMINISTRATOR BAPHAAHP Color LaserJet 4600 PS" dXX<~?<~?U                              !!!!!d:T<(  ~  <pXPP?@]4@p$E  $ΘB@6ܬM 0<1wurde gendert, damit Zeile 14 die letzte ist!: </ 0~~  <DCC@KK],@D EP9 $<push the Button!<_s Thomas Harmening>@J      7 Tabelle1 DieseArbeitsmappe$ __SRP_4__SRP_5 BTabelle1  !"#$%&'()*+-./13456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqstvxyz{|}~<jxgo"#<SpD `2mF LّΠOkx LّΠOkSpD `2mME(SLSS6"N0{00020819-0000-0000-C000-000000000046}(%H` % %`h8@0QF$*\Rffff*2T46e9668b4xAttribute VB_Name = "DieseArbeitsmappe" " Bas0{00020819-0C$ 0046} |GlobalSpacIFalse dCreatablPredeclaIdTru BExposeTemplate`DerivBustomizD2rU  4a9`rU @n<jxgor#<Nk>WL%_JJ F?AIG x?AIG ɲNk>WL%_JJME(SLSS6"N0{00020820-0000-0000-C000-000000000046}(%H` % %`h8@<<0QF$*\Rffff*2w46e967904xAttribute VB_Name = "Tabelle1"  Bas|0{00020820-; C$0046} |GlobalSpac False dCr@eatablPredeclaDIdTru BE xposeTemplateDeriv$Bust0omizD2rU (A4i`__SRP_6 ,__SRP_70BModul12__SRP_3 rrU @n ; goxMEL@< B@eien fD 4B@B (in Spalte 2)%l p V!n `%l%!r'v v Liste$%l B@ZB@ZKopieren1Die letzte Zeile, die einen Wert beinhaltet ist: v xIs nicht wahr! :-)A@( 4 >H Liste.xls$>B@^Zs%B15:O p V!n `%l%!r$d.IB15 bis zur letzten Zeile!In۲Attribute VB_Name = "Modul1" Sub herbstlese() Dim WB As Workbook&Letzt@eZeile8Integer AmappThish.:'(in Spajl2_ K= ActiveSheet.Cells(Rows.Count, 2).End(xlUp). AMsgBox "Die l , deinen Wert b h>t ist@: " & ?, vbInformation, "Is nicht wahr! :-) GetMsAppli c. Open Fn("xls-Datei@H(*.)," , . fr Dokument& auswhlen!MultiSelect:=FalseIf Type(Ziel)Boolean"` ThenBXeepGENSImss)K -I Exit @C@c IfG |s.B C:=M 'Kopier'Set cpy-Range("B15:OAg) '@ bis zurĂnF!'("Le1e").@j !@#DestiRnb:= ss + 1E8 For EachIscoWB <>j oA Close savec:hKseNext  A7qrU~| 0 h  krU $`nas *\G{000204EF-0__SRP_2ug_VBA_PROJECTwdir?__SRP_0 000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{00020813-0000-0000-C000-000000000046}#1.4#0#C:\Program Files\Microsoft Office\Office10\EXCEL.EXE#Microsoft Excel 10.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\system32\stdole2.tlb#OLE Automation(*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.2#0#C:\Program Files\Common Files\Microsoft Shared\Office10\MSO.DLL#Microsoft Office 10.0 Object Library QFgo"DieseArbeitsmappe2T46e9668b"DieseArbeitsmappe"Tabelle12w46e96790Tabelle1r Modul13T46e998ad Modul10 P0[A7_OZ?b1@9QHڿХstdole h%^*\G{00020430-C 0046}#2.0#0#C:\WINDOWS\syst em32\e2.tlb#OLE Automation`EOffDicEOficEE2DF8D04C-5BFA-101B-BDE5EAAC42Egram Files\CommonMicrosoft Shared\@10\MSO.DLL# 10.0 Ob Libra,ryKgo DieseArbeitsmappeG" iksArbi^smap@e2HB1`B,B)"#+ Tabelle1GAk$'l„1%23rMoXdul@AMduAG2BI :!3:6K*srU~~~~~~~~~~~~~~~~I ! Ĭ`@4/.$ e Ye YA    )DieseArbeitsmappeTabelle1Modul1 VBAProjectF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA A i0F4C:\Program Files\Microsoft Office\Office10\EXCEL.EXEExcel 9a@0FC:\WINDOWS\system32\stdole2.tlbstdole Liste.xls IqPL-[DR?C:\Program Files\Common Files\Microsoft Shared\Office10\MSO.DLLOffice a`test  2xls-Dateien (*.xls),*.xls Pxls-Dateien fr Dokumentation auswhlen!FFF Booleansavechanges @Sie mssen eine Datei auswhlen!FVBE6.DLL O  S  2C:\Test\01234-703-020.xlsF 15:15 SelectCopy Test1.xlsF Paste A16 "01234-703-020.xls 2C:\Test\2468A-000-100.xls A17 "2468A-000-100.xls 15:24 A27SpD `2mF LّΠOkDFWorkbook @ CellsEndRowFNk>WL%_JJ F?AIG DF Worksheet Liste Closet bDie letzte Zeile, die einen Wert beinhaltet ist:  Is ja toll ! $Is nicht wahr! :-) 30:EntireRow Insert A30 Tabelle4F RangeDestination B15:O15Rows CountCell B15:E16 Mappe1 B22 C28 herbstlese Tabelle2 A65536FF Areas I bName B15:OV__SRP_1 PROJECTwmhPROJECTSummaryInformation(rU~~{     ilDieseArbeitsmappeDieseArbeitsmappeTabelle1Tabelle1Modul1Modul1ID="{5E324387-4D46-4E7B-B864-6668107D2630}" Document=DieseArbeitsmappe/&H00000000 Document=Tabelle1/&H00000000 Module=Modul1 Name="VBAProject" HelpContextID="0" VersionCompatible32="393222000" CMG="3735AD4FAD4F2953295329532953" DPB="B7B52DCF2DCFACD0ACD0AC" GC="3735AD4FAD4F2C502C50D3" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] DieseArbeitsmappe=0, 0, 0, 0, C Tabelle1=0, 0, 0, 0, C Modul1=110, 110, 1021, 556, Z Oh+'0@HXt nix da!Thomas HarmeningMicrosoft Excel@u'@Ӡ՜.+,0 PXl t|  chaos :-) Liste Arbeitsbltter FMicrosoft Excel-ArbeitsblattBiff8Excel.Sheet.89qDocumentSummaryInformation8CompObji