Ja, ich hab eine Ahnung davon. Mir passiert nämlich auch dauernd was ganz blödes.

...zur Antwort

Nein, einen Paste- oder Copy-Befehl gibt es natürlich nicht. Wenn du dich mit VBA und SAP GUI Scripting auseinandersetzen willst, ist die Lösung relativ einfach.

Eine Quick and Dirty-Lösung wäre es, wenn du den Code-Schnipsel nach Word kopierst, über den Serienbrief-Assistenten mit der Excel-Tabelle verknüpfst und im Befehl

session.findById("wnd[0]/usr/ctxt").Text = "525445"  

den String

"525445"

inkl. der Anführungszeichen ersetzt durch dein Excel-Feld.

Der Serienbriefassisten bastelt dir dann den gesamten Code-Schnipsel sooft hintereinander, wie Excel-Zeilen vorhanden sind. Diesen Code kannst du dann in deinen ursprünglichen VBA-Code rein kopieren und das Programm dann starten. Aber vorsicht, damit kann man auch viel falsch machen. Also erstmal mit nur wenigen Excel-Zeilen und auf einem Testsystem testen.

Deutlich einfacher geht das - wie von zalto schon erwähnt - mit 3rd-party-Lösungen wie SimDia² von ERSAsoft.




...zur Antwort

In SAP gibt es dafür unterschiedliche (meistens aber schwierige) Methoden, um Massendaten einzuspielen. Eine universell einsetzbare und einfach zu bedienende Zusatz-Software ist SimDia² von ERSAsoft
http://www.ersasoft.de/simdia.html?s=gf

...zur Antwort

Starte die PC7 und melde dich dort an. Dann drückst du Alt+F12 und wählst die Option "Verknüpfung erstellen...". Damit erzeugst du eine Verknüpfung direkt auf dem Desktop.

Du kannst übrigens vor der ganzen Aktion schon eine bestimmte Transaktion starten und erst dann die Verknüpfung anlegen. Dann öffnet sich diese direkt nach einem Doppelklick auf die Desktop-Verknüpfung.

...zur Antwort
Ich brauche dringend Hilfe bei meiner Studienarbeit in SAP, es geht um den physischen Bestand und Herstellkosten, könnt ihr mir da weiterhelfen?

Das ist das Thema meiner Studienarbeit und weder die Profs noch andere Studenten können bzw. wollen mir weiterhelfen. Ich habe überhaupt keine Ahnung wie ich was machen soll. Vllt gibt es hier jemanden der sich damit auskennt und mir sagen kann was ich machen muss. Ich wäre euch wirklich unglaublich dankbar

In der IDES AG wird im Werk Hamburg (1000) die Pumpe mit der Materialnr. R-F119 gefertigt und verkauft.

Für Ihre Pumpe plant die IDES-AG einen täglichen Absatz von 200 Stück. Bauen Sie für ein Halbfabrikat Ihrer Wahl aus Fertigungsebene 1 der Stückliste der Pumpe einen physischen Bestand von mindestens zwei Monatsbedarfen auf. Dokumentieren Sie diesen nachweisbar in Ihrer Studienarbeit.

Kalkulieren Sie für Ihre Pumpe die Herstellkosten auf Basis der Losgröße von 200 Stück. Die Losgröße soll an die Komponenten der Stückliste „durchgereicht“ werden. Dokumentieren Sie, wie Sie dies im SAP-System bewerkstelligen. Prüfen Sie exakt die HK Ihrer Pumpe „pro Stück“ auf Richtigkeit, differenziert nach Materialeinzel-, Materialgemein- und Fertigungskosten und halten Sie die Prüfung in Ihrer Studienarbeit fest. Schreiben Sie die Herstellkosten Ihrer eigengefertigten Komponenten als Standardpreise fort.

Für Ihr oben ausgewähltes Halbfabrikat ändert sich nach dem Aufbau des physischen Bestandes aufgrund von Rationalisierungsmaßnahmen die Fertigung des Materials. Es konnten alle Maschinenzeiten für Ihr Halbfabrikat halbiert werden. Setzen Sie die Rationalisierungsmaßnahme im SAP um und vergleichen Sie die Herstellkosten Ihres Halbfabrikats vor der Rationalisierungsmaßnahme mit den „neuen“ Herstellkosten. Begründen Sie die Abweichungen bei einer neuen Losgröße von 100 Stück! Ihre wissenschaftliche Ausarbeitung hat maximal 10 Seiten (inklusive Gliederung und Quellenverzeichnis).

...zum Beitrag

Vielleicht solltest du deine Frage besser in einem speziellen SAP-Forum stellen. Dort treiben sich die ganzen Cracks herum.

Nimm z.B.

http://www.dv-treff.de/yaf_forum2_Technische-Foren.aspx oder

...zur Antwort
VBA: Excel als pdf GANSSEITIG exportieren

Hi Zusammen,

habe ein Makro gebastelt, dass mir ein Tabellenblatt als PDF exportiert (vorher prüft es noch ein paar Sachen). Das passt auch alles, allerdings wird der Inhalt im PDF nicht ganzseitig angezeigt, obwohl das besagte Sheet auf 100% zoom steht und der Seitenumbruch schon auf 1 Seite geändert ist.

Hier der Code

Sub Export_pdf_desktop()
Sheets("EXPORT").Select
On Error GoTo Fehler

If Sheets("Desktop").Visible = True Then

Dim a As Variant
If Cells(1, 4).Value = 1 Then
Sheets("IMPORT").Select
Call Export_Verify_style
MsgBox "Please enter missing information and go back to EXPORT."
Else
Call Export_Umbruch_false


Dim strDateiName As String
'strDateiName = InputBox("Please enter file name.", "EXPORT")
strDateiName = Cells(6, 3).Value & "_" & Cells(2, 3).Value & "_" & Cells(4, 3).Value & "_" & "desktop_report" & ".pdf"
    
Dim pdfName As String
pdfName = Application.GetSaveAsFilename(Environ("USERPROFILE") & "\Desktop\" & strDateiName, "PDF-Dateien (*.pdf), *.pdf")

'Abbrechen falls keine Datei ausgewählt
If pdfName = "Falsch" Then
  MsgBox "No file saved.", , "Cancel"
  Exit Sub
End If

Sheets(Array("Desktop")).Copy

With ActiveWorkbook
     .ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfName, _
                          Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
                          OpenAfterPublish:=False
     .Close savechanges:=False
End With
End If

Else: MsgBox "No data sheet available."
End If
Fehler:
Set Quelle = Nothing
Set Ziel = Nothing
End Sub

Jemand eine Ahnung wie ich das fixen kann?=

Habe schon alle Kombinationen von IncludeDocProperties:=False/True und IgnorePrintAreas:=False/True ausprobiert, aber leider ohne Erfolg...

Greetz

...zum Beitrag

Versuch es mal mit

ActiveSheet.PageSetup.FitToPagesWide = 1

ActiveSheet.PageSetup.FitToPagesTall = 1

...zur Antwort

Die einfache Formel lautet:

=RUNDEN($A2*3%+MIN(MAX(0;$A2-40000);10000)*1,5%+MAX(0;$A2-50000)*1%;2)

Und so funktioniert sie:

$A2*3% sollte klar sein

MIN(MAX(0;$A2-40000);10000)*1,5%
1. Schritt: der höhere Betrag von 0 und Umsatz-40000 --> negativen Wert vermeiden
2. Schritt: der kleinere Betrag aus 10000 und obigem Wert --> Umsatz > 50000 vermeiden

MAX(0;$A2-50000)*1%
der höhere Betrag von 0 und Umsatz-50000 --> negativen Wert vermeiden

Und das Ganze aus 2 Stellen gerundet und ohne Wenn Und Aber

...zur Antwort

Du kannst das natürlich schon machen, den Status in die Spalte A legen. Ob das aber sinnvoll und anwenderfreundlich ist??? Wo soll denn der Anwender nun mit seinen Eingaben anfangen? In Spalte C? Woher weiss er denn das?

Ich löse so etwas folgendemaßen:

Spalte A enthält z.B. das Eingabedatum (das kann man nämlich leicht mit "Strg+." einfügen). B2 enthält die Formel

=wenn(A2<>"";"offen";"")

Die Formel kopierst du mit der Maus bis ans Ende deiner Tabelle.

Weiterhin gibst du deiner Standardwert-Liste einen Namen. Anschließend legst auf die Zellen B2 bis B9999 über Daten - Datenüberprüfung eine Liste mit der Quelle "=name deiner liste" fest.

Jedesmal, wenn nun in Spalte A ein Datum (oder etwas anderes) eingegeben wird, erfolgt in Spalte B die Vorbelegung "offen". Ändern lässt sich der Wert dann nur mit einem Wert deiner Standardwert-Liste.

...zur Antwort

Hier kannst du dir die Trial-Version zur lokalen Installation downloaden:

https://store.sap.com/sap/cpa/ui/resources/store/html/SolutionDetails.html?pid=0000000218&pcntry=US&sap-language=EN&\_cp\_id=id-1428996298188-0

Aber Achtung: die Installation hat es in sich. Sie ist genau so kompliziert wie SAP selbst. Unter YouTube findest du aber ausführliche Anleitungen.


...zur Antwort

Hallo Jana,

ich denke, das wird nicht gehen. Was mich aber wundert, ist die Tatsache, dass du deine Formeln wöchentlich anpassen musst. Vielleicht sollten wir uns die einmal anschauen?

...zur Antwort
Zeilen oder Reihen in Excel per VBA ausblenden

Hallo Community,

ich würde gern wissen ob mir jemand einen Tipp geben kann, wie ich meinen sperrigen und vor allem ruckelndem Quellcode zum ausblenden von Zeilen/Reihen in Excel via VBA eleganter und ruckelfrei gestalten kann.

Der Code sieht so aus:

    Worksheets("Checkliste").Rows(49).Hidden = Worksheets("Grunddaten").Range("H33").Value = 0 'd0'
    Worksheets("Checkliste").Rows(50).Hidden = Worksheets("Grunddaten").Range("H35").Value = 0 'd1'
    Worksheets("Checkliste").Rows(51).Hidden = Worksheets("Grunddaten").Range("H36").Value = 0 'd1/1'
    Worksheets("Checkliste").Rows(52).Hidden = Worksheets("Grunddaten").Range("H37").Value = 0 'd2'
    Worksheets("Checkliste").Rows(53).Hidden = Worksheets("Grunddaten").Range("H38").Value = 0 'd2/2'
    Worksheets("Checkliste").Rows(54).Hidden = Worksheets("Grunddaten").Range("H39").Value = 0 'd3'
    Worksheets("Checkliste").Rows(55).Hidden = Worksheets("Grunddaten").Range("H41").Value = 0 'd4'
    Worksheets("Checkliste").Rows(56).Hidden = Worksheets("Grunddaten").Range("H42").Value = 0 'd4/1'
    Worksheets("Checkliste").Rows(57).Hidden = Worksheets("Grunddaten").Range("H43").Value = 0 'd5'
    Worksheets("Checkliste").Rows(58).Hidden = Worksheets("Grunddaten").Range("H44").Value = 0 'd5/1'
    Worksheets("Checkliste").Rows(59).Hidden = Worksheets("Grunddaten").Range("H45").Value = 0 'd6'

Beim Ausführen des Codes via Button flackert die komplette Tabelle, da Excel jede Zeile einzeln abrackert.

Sprich, wenn diverse Werte im Tabellenblatt "Grunddaten" gleich Null sind, sollen diverse Zeilen im Tabellenblatt "Checkliste" ausgeblendet werden. Das Ausblenden betrifft pro Null-Wert mehrere Zeilen .. also 1 Wert in "Grunddaten" gleich Null = 2-3 ausgeblendete Zeilen, welche nicht immer zusammenhängen.

Ich hatte kurz an eine Select Case-Funktion gedacht, aber wusste nicht wie man das umsetzt.

Hat wer eine "smarte" Idee?

Cur3ty

...zum Beitrag

Und wenn du, statt die Zeilen auszublenden, einen Autofilter benutzen würdest?

 Columns("H:H").AutoFilter
    ActiveSheet.Range("$H:$H").AutoFilter Field:=1, Criteria1:="<>0", _
...zur Antwort

Warum gebt ihr euch eigentlich solche Mühe mit einer Antwort, wenn der Ersteller sich nicht einmal die geringste Mühe bei der Formulierung seiner Frage gibt? Das schaut ja schon fast aus wie ein Troll.

...zur Antwort

Wenn ich die Frage richtig verstehe, geht es dir nur darum, im Ausdruck den gesamten Bereich auf einem Blatt sehen zu können:

  1. Auszudruckende Spalten markieren - Seitenlayout-Druckbereich festlegen
  2. Seite einrichten-Papierformat-Skalierung anpassen 1 Seite breit
...zur Antwort

Nicht genau wie von dir beschrieben, aber ähnlich kannst du es mit der bedingten Formatierung erreichen. Leg einfach zwei Regeln mit folgenden Formeln an:

  1. =UND(ODER(A2=A3;A2=A1);A2<>"")
  2. =UND(A2<>A1;A2=A3)

Der ersten Regel gibst du als Format eine Hintergrundfarbe, der 2. einen oberen Rahmen.

Beide Regeln werden angewendet auf =$A:$A.

...zur Antwort

Das geht auch sehr viel einfacher: Überprüfen - Änderungen nachverfolgen - Änderungen während der Eingabe protokollieren.

Dann siehst du nicht nur, welche Zelle geändert wurde, sondern auch wann und von wem. Und wenn du willst, kriegst du auch noch einen Änderungverlauf protokolliert.

...zur Antwort

Schau mal hier... http://www.gutefrage.net/frage/excel-beim-oeffnen-einer-datei-vorhandene-verknuepfungen-anzeigen-lassen

...zur Antwort

Schreibe einfach deine Klassen (K0, K1...) mit den Wert-Bereichen (0, 10000, 20000 ...) z.B. in die Spalten K und L.

Mit der Formel

SVERWEIS(B1;$K$1:$L$5;2;1)

erhältst du die entsprechende Klasse. Es ist in diesem Fall wichtig, dass der Wertbereich in Spalte K aufsteigend sortiert ist.

...zur Antwort