der Code unten kopiert "ADXL364" Blatt in meinem aktiven Arbeitsblatt, aber ist so, dass ich das Blatt kopieren kann, wenn es "XL364" oder "364"Verweis auf eine Zelle, wenn das Blatt eine bestimmte Zeichenfolge enthält VBA
enthältwenn ich Sternchen 'C: \ Daten [Adxl364.xls] * ADXL364_QC'! A1 in meinem Code setzt es nicht funktioniert.
Sub GetRange()
With Range("A:Z")
.Formula = "=If('C:\data\[adxl364.xls]ADXL364_QC'!A1 > 0,'C:\data\[adxl364.xls]ADXL364_QC'!A1,Text(,))"
.Formula = .Value
End With
End Sub
der lange Code wird die Lage der Datei vom Benutzer bekommt dann ein Arbeitsblatt kopieren, die ADXL364 oder XL364 enthält
With ActiveWorkbook
Sheets.Add.Name = "Flow_table"
Application.EnableEvents = False
TP_location = Left(TextBox1.Value, InStrRev(TextBox1.Value, "\"))
TP_filename = Right(TextBox1.Value, Len(TextBox1.Value) - InStrRev(TextBox1.Value, "\"))
TP_filename = "[" & TP_filename & "]"
TP_formula = "'" & TP_location & TP_filename & TextBox2.Value & "'!A1"
getcellvalue = "=if(" & TP_formula & ">0," & TP_formula & "," & """"")"
With Range("A:Z")
.Formula = getcellvalue
.Formula = .Value
End With
Sheets.Add.Name = "Job_lists"
End With
Unload UserForm2
End Sub
Wo wird kopiert? –
mit Zelle A1 ist die in diese Zelle geschriebene Formel = If ('C: \ Daten \ [Adxl364.xls] ADXL364_QC'! A1> 0, 'C: \ Daten \ [Adxl364.xls] ADXL364_QC'! A1, " "). Die Schleife passiert von A bis Z. So referenziert vielleicht der richtige Begriff eine Zelle aus einer geschlossenen Arbeitsmappe –
Sie können versuchen, die Pfadposition zu bearbeiten und ein Blatt auszuwählen, das Sie "referenzieren" und das Modul in ein neues Arbeitsblatt einfügen möchten. Sie erhalten eine Kopie des Referenzbogens. In diesem Fall ADXL364 Blatt, Bereich A bis Z –