Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

So jetzt hätt ich nochmal ne Frage. Wenn der x oder y wert nicht existiert zum beispiel nach Y10 gesucht wird, die tabelle aber nur von x12:x10 geht kommt eine Fehlermeldung #NV. Kann ich dann auch den wert 1 ausgeben lassen?

Hallo zusammen,
ich hab ein Problem.Hoffe es kann  mir jemand hier weiterhlefen.Es sit zielmlich kompleziert und weis nicht ob es überhaupt geht.
 Ich hab eine Matrix, bestehend aus y und x werten Diese beinhaltet fixe Werte
In Tabelle 2 (obere Tabelle) wird eine Zahl eingetragen, je nach dem ob man x1, x2,x3 oder x4 hat, in die entsprechende Tabelle. Genauso bei den y werten. 
Anhand dieser entstnadenen x und y werten soll dann aus der Matrix der fixe wert ermittelt werden.Dieser wert soll dann in z.B A1 stehen. Kann man das mit einer Formel realisieren ohne VBA zu benötigen.
Hört sich ziemlich komplex an :-) Hoffe es ist einigermaßen verständlich;-]
Danke schon mal für die Hilfe
VG

Super Danke Karin, genau das hab ich gemeint.
Aber irgendwo hab ich nen Fehler.
Und ich komm nicht drauf wo ( kenn mich mit VBA aber auch nicht so gut aus)
 Vielleicht kannst du kurz drüber schauen, und mir sagen wo mein Fehler ist.

Danke

Viele Grüße
Marcel

Schade.
Trotzdem Danke nochmal, das muss es ohne gehen:

Hallo zusammen,

hoffe mir kann jemand weiterhelfen.
Ich will Datenpunkte die sich in einem Diagramm befinden mit Kommentaren versehen.
Dabei soll die Quelle der Kommentare eine bestimmte Spalte sein.
Am besten wäre es wenn die Kommentare nur bei überfahren mit dem Curser angezeigt wird.
Wie könnte ich das am geschicktesten anstellen???
Danke

VG

Marcel

Hallo zusammen,

leider konnte mir gestern keiner weiterhelfen, deshalb probier ichs heute nochmal. 
Also, ich hab hier ein Makro, mit dem Daten aus einer Excel Tabelle in eine andere importiert werden.
mein Problem ist,dass nicht der Wert sonder die Formel, die sich in den Zellen befindet kopiert wird.
Kann mir jemand sagen, wie ich mein Makro umschreiben muss, damit das klappt???

Mein Makro:

Sub Import_mit_Dialog()

Dim Quelle As Object, Ziel As Object
Dim Datei As String
On Error GoTo Fehler
Datei = Application.GetOpenFilename("Excel-Dateien(*.xls),*xls")

If Datei = "Falsch" Then
MsgBox "keine Datei ausgewählt", , "Abbruch"
Exit Sub
End If

'MsgBox "Ausgewählte Datei: " & Datei, , ""

Workbooks.Open Filename:=Datei


Set Ziel = ThisWorkbook.Worksheets(3)

Blatt = Ziel.Range("N2").Value


Set Quelle = ActiveWorkbook.Worksheets(Blatt) '<-- gewähltes Blatt wird definiert als Quelle, alles andere wie gehabt

 
Quelle.Range("B9:B19").Copy Ziel.Range("B6:B17")
Quelle.Range("B20:B28").Copy Ziel.Range("B19:B27")
Quelle.Range("B29:B43").Copy Ziel.Range("B29:B43")
Quelle.Range("B44:B51").Copy Ziel.Range("B45:B52")
Quelle.Range("B52:B61").Copy Ziel.Range("B54:B63")
Quelle.Range("B62:B65").Copy Ziel.Range("B65:B68")
Quelle.Range("G9:G19").Copy Ziel.Range("G6:G17")
Quelle.Range("G20:G28").Copy Ziel.Range("G19:G27")
Quelle.Range("G29:G43").Copy Ziel.Range("G29:G43")
Quelle.Range("G44:G51").Copy Ziel.Range("G45:G52")
Quelle.Range("G52:G61").Copy Ziel.Range("G54:G63")

Quelle.Range("D9:D19").Copy Ziel.Range("D6:D17")
Quelle.Range("D20:D28").Copy Ziel.Range("D19:D27")
Quelle.Range("D29:D43").Copy Ziel.Range("D29:D43")
Quelle.Range("D44:D51").Copy Ziel.Range("D45:D52")
Quelle.Range("D52:D61").Copy Ziel.Range("D54:D63")
Quelle.Range("D62:D65").Copy Ziel.Range("D65:D68")
Quelle.Range("I9:I19").Copy Ziel.Range("I6:I17")
Quelle.Range("I20:I28").Copy Ziel.Range("I19:I27")
Quelle.Range("I29:I43").Copy Ziel.Range("I29:I43")
Quelle.Range("I44:I51").Copy Ziel.Range("I45:I52")
Quelle.Range("I52:I61").Copy Ziel.Range("I54:I63")
Quelle.Range("G62:G65").Copy Ziel.Range("G65:G68")

Quelle.Range("A9:A19").Copy Ziel.Range("A6:A17")
Quelle.Range("A20:A28").Copy Ziel.Range("A19:A27")
Quelle.Range("A29:A43").Copy Ziel.Range("A29:A43")
Quelle.Range("A44:A51").Copy Ziel.Range("A45:A52")
Quelle.Range("A52:A61").Copy Ziel.Range("A54:A63")
Quelle.Range("A62:A65").Copy Ziel.Range("A65:A68")
Quelle.Range("E9:E19").Copy Ziel.Range("E6:E17")
Quelle.Range("E20:E28").Copy Ziel.Range("E19:E27")
Quelle.Range("E29:E43").Copy Ziel.Range("E29:E43")
Quelle.Range("E44:E51").Copy Ziel.Range("E45:E52")
Quelle.Range("E52:E61").Copy Ziel.Range("E54:E63")




ActiveWorkbook.Close

Set Quelle = Nothing
Set Ziel = Nothing

Exit Sub

Fehler:
Set Quelle = Nothing
Set Ziel = Nothing

MsgBox "FehlerNr.: " & Err.Number & vbNewLine & vbNewLine _
& "Beschreibung: " & Err.Description _
 , vbCritical, "Fehler"
 


End Sub

Danke!!

Ok danke, aber ich glaub des is mir dann doch ein bisschen zu aufwendig 

Danke nochmal.

VG
Marcel

Hallo ZUsammne,

hatte gestern schon eine Frage und mir konnte hier super weitergeholfen werden.
Hoffentlich klappt dass heute auf   

Hab nun endelich ein Makro zum Importieren von Excel dadateien in eine andere.
Nun meine Frage: Da es unübersichtlich wird, wenn das kanze Blatt importiert wird, will ich nur noch einzelne Zellen importieren. Wie kann ich des mamchen???

Hier mein bereits bestehendes Makro:

Sub Import_mit_Dialog()

Dim Quelle As Object, Ziel As Object
Dim Datei As String
On Error GoTo Fehler
Datei = Application.GetOpenFilename("Excel-Dateien(*.xls),*xls")

If Datei = "Falsch" Then
MsgBox "keine Datei ausgewählt", , "Abbruch"
Exit Sub
End If

'MsgBox "Ausgewählte Datei: " & Datei, , ""

Workbooks.Open Filename:=Datei


Set Ziel = ThisWorkbook.Worksheets(3)

Blatt = Ziel.Range("N2").Value


Set Quelle = ActiveWorkbook.Worksheets(Blatt) '

Quelle.UsedRange.Copy Ziel.Cells(5, 1)

ActiveWorkbook.Close

Set Quelle = Nothing
Set Ziel = Nothing

Exit Sub

Fehler:
Set Quelle = Nothing
Set Ziel = Nothing

MsgBox "FehlerNr.: " & Err.Number & vbNewLine & vbNewLine _
& "Beschreibung: " & Err.Description _
 , vbCritical, "Fehler"
 


End Sub

Danke für eure Hilfe!!

Viele Grüße 
Marcel

Ahhh.
Jetzt hab ichs. 

Blatt = ActiveSheet.Range("A1").Value
heißt, dass ich in dem zu Importierenden Sheet die eingabe machen muss111 

Wie müsste die Formulierung lauten wenn ich denn Blattnamen in die Arbeitsmappe eingeben will in der Importiert wird?

So, es läuft nun fast. jetzt kommt immer: Fehler Nr. 9 Index außerhalb des gültigen Bereichs. Der Code müsste jetzt ja stimmen (Kann ihn auch Debuggen)
Was könnt edie Fehlermeldung heißen?? 

Hallo Zusammen,

ich bin neu hier, und hab ein Problem mit meiner Makro Programmierung:

Ich würd gerne einen Button Programmieren, der bei klicken Daten aus einer Excel Datei in meine geöffnete importiert. Dabei soll die Excel Datei ausgewählt werden können.

Nun aber zu meinem eigentlichen Problem:
Da ich nicht weiß ob ich bei der Excel Datei, deren Daten importiert werden sollen, das Tabellenblatt("Input Airbus") oder das Tabellenblatt("Input Bombardier") brauche, soll es möglich sein dies auszuwählen .

Probier mich nun schon seit 12 Stunden, komm aber einfach nicht auf eine Lösung.

 Hoffe mir kann jemand weiterhelfen.