MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 12.07.2011, 12:42   #16
Fernando123
Threadstarter Threadstarter
MOF User
MOF User
Standard

danke
ja die tabelle soll extern aufgerufen werden, diese sieht ungefähr so aus
aber das ändern der zellbezüge sollte kein problem sein (also die zu suchenende steht bei der extern auch in der gersten zeile)
nur sucht er anscheinend gar nicht in der externen der tabelle
habe ganz normal mit workbooks.open und select(tabelle) earbeitet und er öffnet mir auch die tabelle aber anscheinend liest er gar nicht in der externen
kannst du mir ein bsp. gben welchen befehl ich an einem bestimmten punkt bringen muss um die externe richtig zu öffnen?

Geändert von Fernando123 (12.07.2011 um 12:45 Uhr).
Fernando123 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 12.07.2011, 13:08   #17
Peter9
MOF Profi
MOF Profi
Standard

Hallo Fernando

hier mal die geänderte Datei " Suchen_fernando_v10.xlsm"

auf den Button drucken und 12345 eingeben dann kommt ein FielDialog
mit dem suchst du die "Suchen_fernando_v9.xlsm" und schwupp die Daten sind drin

« Gruß Peter9 »
Angehängte Dateien
Dateityp: xlsm Suchen_fernando_v10.xlsm (31,6 KB, 13x aufgerufen)
Peter9 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 12.07.2011, 13:33   #18
Fernando123
Threadstarter Threadstarter
MOF User
MOF User
Standard

danke sp müssts funktionieren
muss es gleich machen
aber kann man die datei auch im hintergrund öffen, also im quellcode den pfad angeben?
danke
Fernando123 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 12.07.2011, 13:49   #19
Peter9
MOF Profi
MOF Profi
Standard

HAllo Fernando

naklar geht das wenn Du den Fildialog auskommentierst und bei Datiename
Pfad und Dateiname angibst

Code:

Private Sub CommandButton1_Click()
Dim a As Long
Dim i As Long, q As Long, f As Long
Dim Name, Nameb
Dim Dateiname As String
i = 1: q = 0: f = 1
  Dim Loletzte As String, zelle As String
  
  Nameb = ActiveWorkbook.Name
If IsNumeric(TextBox55.Value) Then

     ChDir "\" '"Daten\ExcelFiles\"
    ChDrive "C:\" ' "D:\Daten\ExcelFiles\"
    'Das Dialogfenster
   Dateiname = "C:\Suchen_fernando_v9.xlsm"   
' Dateiname = Application.GetOpenFilename _
       ("Micrsoft Excel-Dateien (*.xls*),*.xls*")
    If Dir(Dateiname) <> "" Then Exit Sub
 Application.ScreenUpdating = False
     Workbooks.Open Filename:= _
        Dateiname
Name = Right(Dateiname, InStr(1, StrReverse(Dateiname), "\") - 1)

'--------------------------------------------------------------------
  
 With Sheets("Tabelle1")
 
 ' Suchen der Nummer
    On Error Resume Next
    zelle = Application.Match(CLng(TextBox55.Value), Worksheets("Tabelle1").Columns(1), 0)
     If Not zelle = "" Then 'Exit Sub
'Worksheets("Tabelle1").Activate
a = 1
' Loeschen der Textboxen
    For i = 1 To 54
      Me("TextBox" & i) = ""
    Next i
 i = 1: f = 1
 ' Loeschen der Lapel´s
    For i = 1 To 9
      Me("Label" & i) = ""
    Next i
 i = 1: f = 1
 ' beschreiben der Label´s u. Textboxen
     TextBox57 = Cells(zelle, 7).Value
        TextBox56 = Cells(zelle, 5).Value
    Do Until Cells(4, 11 + q).Value = ""
         Me("Label" & a) = Cells(zelle, 11 + q).Value
          Me("TextBox" & i) = Cells(zelle, 12 + q).Value
           Me("TextBox" & 1 + i) = Cells(zelle, 15 + q).Value
            Me("TextBox" & 2 + i) = Cells(zelle, 16 + q).Value

      If Cells(zelle, 11 + q).Value = "" Then
   ' i = i - 2
   ' a = a - 1:
        q = q + 7
        Else
        i = i + 3
          a = a + 1
          q = q + 7
      End If
    Loop
     Else
      MsgBox "Datensatz existiert nicht !?"
    End If
    'MsgBox i
    End With
    '---------------------------------------------------------------
' Schlissen
 Windows(Nameb).Activate
Workbooks(Name).Close SaveChanges:=False
Else
    
       MsgBox "Sie haben in ein o. einigen Feldern keine o. eine Falsche eingabe gemacht.", vbInformation

    End If
    Application.ScreenUpdating = True
End Sub
« Gruß Peter9 »

Geändert von Peter9 (12.07.2011 um 13:52 Uhr).
Peter9 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 12.07.2011, 14:29   #20
Fernando123
Threadstarter Threadstarter
MOF User
MOF User
Standard

dank dir
einfach genail
funktioniert einwandfrei
Fernando123 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 14:54 Uhr.



Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.