Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema InputBox
BildScreenshot zu InputBox InputBox-Seite mit Beispielarbeitsmappe aufrufen

Inputbox

Betrifft: Inputbox von: Tom
Geschrieben am: 22.08.2014 09:39:41

Hallo zusammen,

wie bekommen ich ein Eingabefenster in einem Makro für die IE Steuerung hin?
In das Feld "metaData.visibleFilters[0].pattern" soll manuell vom User eine Angebotsnummer eingetragen werden?

Sub IE()

  On Error Resume Next
  
  Dim IEApp   As Object
  Dim IEDoc   As Object
  

  Set IEApp = CreateObject("InternetExplorer.Application")
  
      With IEApp
          .Visible = True
.Navigate "http://um.dc.lan/umebosswebapp/frmAN100.do"
          Do: Loop Until .Busy = False
          Do: Loop Until .Busy = False
      
          If .ReadyState = 4 Then
        
             Set IEDoc = IEApp.Document
                 With IEDoc.Forms(0)
                      .Elements("metaData.visibleFilters[0].pattern").Value = "40500"
                      SendKeys ("{enter}")
                 
                 End With
          
          End If
      End With

End Sub

Danke für die Unterstützung

gruß Tom

  

Betrifft: AW: Inputbox von: hary
Geschrieben am: 22.08.2014 10:08:54

Moin Tom
statt "40500"
dies
Application.InputBox("Nummer eingeben", "Nummer", Type:=1) 'Nur Nummern(Type:=1) zugelassen
gruss hary


  

Betrifft: AW: Inputbox von: Tom
Geschrieben am: 22.08.2014 10:24:58

Moin Moin Hary,

danke, funktioniert bis auf de Bestätigung der Selektierung. Sendkeys wird nicht mehr durchgeführt. Gibts eine Möglichkeit ohne die Methode?

Sub IE()


  On Error Resume Next
  
  Dim IEApp   As Object
  Dim IEDoc   As Object
  
  Set IEApp = CreateObject("InternetExplorer.Application")
  
      With IEApp
          .Visible = True
.Navigate "http://um.dc.lan/umebosswebapp/frmAN100.do"
          Do: Loop Until .Busy = False
          Do: Loop Until .Busy = False
      
          If .ReadyState = 4 Then
        
             Set IEDoc = IEApp.Document
                 With IEDoc.Forms(0)
                      .Elements("metaData.visibleFilters[0].pattern").Value = Application. _
InputBox("Bitte eCON Angebots-Nr. eingeben", "Nummer", Type:=1) 
                      SendKeys ("{enter}")

                 
                 End With
          
          End If
      End With

End Sub



  

Betrifft: AW: Inputbox von: hary
Geschrieben am: 22.08.2014 10:50:21

Moin Tom
Der erste Code hat gefunzt?? Bin unterwegs, kann nicht testen.
Versuch mal so.

On Error Resume Next
    Dim IEApp   As Object
    Dim IEDoc   As Object
    Dim strWert As String
    strWert = Application.InputBox("Nummer eingeben", "Nummer", Type:=1) 'Nur Nummern(Type:=1)  _
zugelassen
    Set IEApp = CreateObject("InternetExplorer.Application")
        With IEApp
            .Visible = True
.Navigate "http://um.dc.lan/umebosswebapp/frmAN100.do"
            Do: Loop Until .Busy = False
            Do: Loop Until .Busy = False
            If .ReadyState = 4 Then
               Set IEDoc = IEApp.Document
                   With IEDoc.Forms(0)
                        .Elements("metaData.visibleFilters[0].pattern").Value = strWert
                        SendKeys ("{enter}")
                   End With
            End If
        End With

gruss hary


  

Betrifft: AW: Inputbox von: Tom
Geschrieben am: 22.08.2014 11:01:48

Hi Hary,

jup, hat vorher gefunzt. Jetzt läufts wieder. Dein Code passt!

Weißt Du vielleicht noch wie ich über Sendkeys STRG+A (alles markieren), STRG+C (kopieren) und dann STRG+V einfügen in ein Tabellenblatt hinbekomme? Die Sendkeys Methode mag nicht so recht! Gibt es evtl. eine Alternative zu Sendkeys?

gruß Tom


  

Betrifft: AW: Inputbox von: Peter
Geschrieben am: 25.08.2014 17:06:50

Hallo Tom

Da gibt es eine gute Seite :
http://www.activevb.de/tutorials/tut_sendkeys/sendkeys.html

Schau Mal da - Gruss Peter.


 

Beiträge aus den Excel-Beispielen zum Thema "Inputbox "