Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 10:59:29
Datei Auswählen und öffnen
19.04.2024 10:46:47
Bestimmte Zellen aus dynamischer Liste zurückgeben
19.04.2024 10:39:36
Schaltfläche auf einem Tabellenblatt NICHT mit abspeichern
19.04.2024 09:26:26
Median für Zeilen mit gleichen Zeitstempel
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1848to1852
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1848to1852
1848to1852
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Feldinhalt aus SAP kopieren

Feldinhalt aus SAP kopieren
13.10.2021 09:51:33
Gerd
Hallo Zusammen,
ich müüste aus einem SAP Feld kopieren und in einer Tebellen Zelle einfügen.
Folgendes habe ich mir zusammen gestrickt:

Sub Pickliste()
'VL03N zum kopieren der PickNr
objSess.findById("wnd[0]/tbar[0]/okcd").Text = "/nvl03n"
objSess.findById("wnd[0]").sendVKey 0
objSess.findById("wnd[0]").sendVKey 0
' PickNo kopieren
objSess.findById("wnd[0]/usr/subSUBSCREEN_HEADER:SAPMV50A:1502/ctxtLIKP-VBELN").SetFocus
objSess.findById("wnd[0]/usr/subSUBSCREEN_HEADER:SAPMV50A:1502/ctxtLIKP-VBELN").caretPosition = 0
Cells(3, 1) = objSess.findById("wnd[0]/usr/txtLIKP-VBELN").Text
' PickNo Beschriftung drucken
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True, IgnorePrintAreas:=False
Es scheitert an >> Cells(3, 1) = objSess.findById("wnd[0]/usr/txtLIKP-VBELN").Text"

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Feldinhalt aus SAP kopieren
13.10.2021 17:36:22
Yal
Hallo Gerd,
Ist der Code in einer Worksheet-Codepane oder Modul-Codepane?
Bei letzteres sollte das Ziel-Worksheet genau spezifiziert werden

Workskeets("xyz").Cells(3, 1) = ...
Ansonsten bräuchten wir eine Beschreibung, von welche Objekt hier die Rede ist: objSess ?
Vielleicht lässt sich das Vorhaben besser abfangen, wenn eine Objekt-Variable dazwischen verwendet wird (komplett ins Blau geraten):

Set objXxx = objSess.findById("wnd[0]/usr/subSUBSCREEN_HEADER:SAPMV50A:1502/ctxtLIKP-VBELN")
objXxx.SetFocus
objXxx.caretPosition = 0
Cells(3, 1) = objXxx.Text
VG
Yal
Anzeige
AW: Feldinhalt aus SAP kopieren
15.10.2021 07:58:43
Gerd
Hallo Yal,
das hat wunderbar funktioniert! Vielen lieben Dank :)
Ich habe da nur noch eine Frage zu...stehe da wohl ein wenig neben mir :S
Nach der Aktion möchte ich dass im SAP die geöffnete Transaktion VL03N auch wieder verlassen wird.
Ich hatte hinter Deinem Code es so eingegeben, was aber nicht läuft :(

'VL03N zum kopieren der PickNr
objSess.findById("wnd[0]/tbar[0]/okcd").Text = "/nvl03n"
objSess.findById("wnd[0]").sendVKey 0
objSess.findById("wnd[0]").sendVKey 0
' PickNo kopieren
Set objSess = objSess.findById("wnd[0]/usr/subSUBSCREEN_HEADER:SAPMV50A:1502/ctxtLIKP-VBELN")
objSess.SetFocus
objSess.caretPosition = 0
Cells(3, 1) = objSess.Text
' PickNo Beschriftung drucken
'Range("A3").Select
'ActiveSheet.Paste
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True, IgnorePrintAreas:=False
objSess.findById("wnd[0]/tbar[0]/btn[15]").press
Entschuldige bitte, wenn ich mich da ein wenig delettantisch anstelle ;)
Anzeige
AW: Feldinhalt aus SAP kopieren
15.10.2021 16:42:03
Yal
Hallo Gerd,
Diletentisch? passt scho. 4-Angen-Prinzip eben.
Du assignierst richtig dein gefundenen Objekt zu einer Variable, aber es sollte nicht dieselbe sein, wie die vorherige:

Set objSess = objSess.findById("wnd[0]/usr/subSUBSCREEN_HEADER:SAPMV50A:1502/ctxtLIKP-VBELN")
führt dazu, dass objSess nicht mehr auf das übergeordnete Objekt zeigt (Objekt-Variable sind keine "Variable", die eine Wert enthalten, wie x = 2, sondern "Zeiger": sie beinhalten die Adresse, wo der Objekt selbst im Speicher zu finden ist. Sie zeigen (engl. "Pointer") auf dem Objekt).
es genauso wie 

Set W = Workbooks("MeineDatei.xlsx")
Set W = W.Worksheets(1)
dann kannst Du nicht mehr den Workbook mit W.Close schliessen, weil W nun auf einem Worksheet-Objekt "zeigt" und Worksheet-Objekt nicht geschlossen werden können.
daher 

Set objAndere = objSess.findById("wnd[0]/usr/subSUBSCREEN_HEADER:SAPMV50A:1502/ctxtLIKP-VBELN")
objAndere.SetFocus
objAndere.caretPosition = 0
objSess.findById("wnd[0]/tbar[0]/btn[15]").press
VG
Yal
Anzeige

19 Forumthreads zu ähnlichen Themen

Bereich markieren und kopieren
Thomas

Hi,
ich habe hier ein Makro das mir die Zeilen und Spalten markieren soll welche Daten enthalten in dem es mir die letzte befüllte Zeile und Spalte sucht, anschliessend diesen Bereich makiert und kopiert, dann ein anderes Tabellenblatt öffnet einen Range ("A6:K4") selectiert und dort die Da...
03.10.2008 22:42:00
Thread-ID: 1014101
2 Beiträge
Anzeige
Zeilen markieren und per VBA kopieren
Stefan

Hallo,
folgendes Problem:
ein Anwender soll in einer Excel-Liste die zuletzt gemachten Einträge in Tabelle 1 markieren und diese sollen dann per Klick auf ein Steuerelement in eine andere Arbeitsmappe (Tabelle1) angefügt (kopiert) werden.
Kann mir hiermit jemand helfen?
Viele Gr...
28.04.2010 19:04:31
Thread-ID: 1154379
11 Beiträge
Zeilen markieren und per VBA kopieren
Stefan

Hallo,
folgendes Problem:
ich habe mit folgendem Code (der mir hier netterweise zur Verfügung gestellt wurde):
Sub myCopy2() Dim lngLastRow As Long With Workbooks("Mappe1").Sheets(1) lngLastRow = .Cells(.Rows.Count, 1).End(xlUp).Row Selection.Copy Destination:=.Cells(lngLastRow, 1)....
01.05.2010 07:12:22
Thread-ID: 1154509
8 Beiträge
Anzeige
Markieren und kopieren
Ralph

Hallo Forum,
ich generiere aus einem Programm eine exceldatei die immer Mappe1 heißt.
ich möchte in dieser datei datensätze in spalte N mit einem "x" kennzeichnen.
Dann möchte ich meine Datei ("SALDENKONTROLLE") aufmachen, einen Button drücken und dann sollen die vorher markierten...
26.01.2014 15:04:01
Thread-ID: 1346729
8 Beiträge
Zellen markieren und kopieren
Matthias

Hallo zusammen,
ich habe ein kleines Problem wo ich nicht weiterkomme. Vielleicht hat ja jemand einen kleine Tipp für mich:
Ich möchte auf einem Arbeitsblatt Zellen markieren und zwar nur:
Zellen von Spalten in denen in Zeile 1 ein "X" steht und davon auch nur die Zellen ab Zeile 1...
05.07.2015 18:56:24
Thread-ID: 1434856
2 Beiträge
Zeile markieren und in leere Zeile kopieren
Ali

Hallo, ich würde gerne eine bestimmte Zeile, die eine Bedingung erfüllt kopieren und in die erste leere Zeile eines neu erstellen Sheets einfügen. Das auslesen und die Bedingungen, sowie das Kopieren funktionieren soweit.
Leider funktioniert der Teil, bei dem ich einfügen möchte nicht. Kann...
26.06.2018 10:41:46
Thread-ID: 1630601
13 Beiträge
Spalten mit Namen XY markieren und kopieren
Sven

Hallo Zusammen,
ich habe eine Tabelle mit Spalten von A - ZZ. Ich möchte aber nur ein paar dieser Spalten nutzen und in ein neues Tabellenblatt kopieren.
Ich habe sowas schon einmal programmiert mit VBA und habe immer die Spalten angegeben A:B und J:K etc... Problem ist, die Tabelle bek...
07.11.2018 16:59:31
Thread-ID: 1656013
11 Beiträge
Datei öffnen, Zellbereich markieren und kopieren
stefan

Hallo!

Ich möchte während das Makro läuft, wenn ein Ereignis eintritt und die (schon vorhandene) Userform auftaucht, dass der User eine Datei öffnen kann und dort einen Datenbereich markieren kann, der dann anschließend vom Makro kopiert wird.

Konkret geht es darum, dass wenn ei...
19.08.2003 17:11:09
Thread-ID: 297070
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
5
10
7
2
7
1
12
10
6
2
2
5
3
2
2
4
2
3