Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1536to1540
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
1536to1540
1536to1540
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Differenz 2010 vs 365

VBA Differenz 2010 vs 365
27.01.2017 20:35:05
AlterDresdner
Liebe Gemeinde,
beiliegendes Makro (Schaltfläche Drucken unten) funktioniert in 2010 perfekt, die Werte werden in das Blatt Ladenverkauf übertragen.
Unter Excel365 wird nichts übertragen.
Kann bitte jemand die Ursache finden und beheben? Ich habe kein 365.
Dieser Thread ist die Fortsetzung von
https://www.herber.de/forum/messages/1537478.html
Für sachdienliche Hinweise ist dankbar
der AlteDresdner
https://www.herber.de/bbs/user/110955.xlsm

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Differenz 2010 vs 365
28.01.2017 15:11:34
Michael
Hi,
bei mir funktioniert es anstandslos.
Die globalen Variablen finde ich aber etwas unschön; hier ein Vorschlag: 
Option Explicit
Public blnPrint As Boolean
Sub PrintBill()
Dim lngRow As Long
Dim ueber
Dim objRech As Worksheet, objLaden As Worksheet
Set objRech = ThisWorkbook.Sheets("Rechnung")
Set objLaden = ThisWorkbook.Sheets("Ladenverkauf")
If Not CheckPrint("Rechnung") Then Exit Sub
blnPrint = True ' wozu überhaupt?
lngRow = objLaden.Cells(Rows.Count, 1).End(xlUp).Row + 1
ueber = objLaden.Range("A" & lngRow).Resize(, 7)
With objRech
ueber(1, 1) = Val(.Range("rg_num"))
ueber(1, 2) = .Range("rg_dat").Value
ueber(1, 3) = .Range("rg_name")
ueber(1, 4) = .Range("rg_street")
ueber(1, 6) = .Range("rg_city")
ueber(1, 5) = .Range("rg_zip")
ueber(1, 7) = CDbl(.Range("rg_sum"))
objLaden.Range("A" & lngRow).Resize(, 7) = ueber
'   .PrintOut , copies:=2
.Range("rg_inp") = ""
.Range("rg_num") = Application.Max(objLaden.Range("A:A")) + 1
End With
blnPrint = False
End Sub
Function CheckPrint(blatt) As Boolean
Dim Fehl As String
CheckPrint = True
With ThisWorkbook.Sheets(blatt)
If Val(.Range("rg_num"))  "" Then
MsgBox "Eintrag " & Fehl & " ist leer; es wird nicht gedruckt.", vbCritical, "fehlende  _
Daten"
CheckPrint = False
End If
End With
End Function
Gruß,
Michael
Anzeige
AW: VBA Differenz 2010 vs 365
28.01.2017 18:44:19
AlterDresdner
Hallo Michael und Jo,
ich danke Michael für seinen Test und die Verbesserungsvorschläge, die Objects sollten eigentlich auch nur Dim sein...
Auf einem anderen 2013-PC in der Verwandtschaft ging es mittlerweile auch perfekt.
Das Problem dürfte dann wohl auf dem Rechner von Jo zu suchen sein, ich habe aber keine Ahnung, welches.
Wenn Jo mir mal Zugriff auf seinen Rechner per Teamviewer geben könnte, würde ich da auch suchen oder eine Umgehung basteln... Dazu müsste Jo mal 03513161475 anrufen.
Gruß der Martin
AW: VBA Differenz 2010 vs 365
28.01.2017 22:34:56
Jo
Hallo Michael und Martin,
ich möchte mich bei euch beiden recht herzlich bedanken für eure Mühe.
Jetzt funktioniert es auch bei mir.
Danke nochmal
Grüße an euch beide Jo
Anzeige
gern geschehen, Gruß zurück owT
29.01.2017 16:23:04
Michael

299 Forumthreads zu ähnlichen Themen

If Then mit mehreren Schritten
Pfannen-Meister

Guten Morgen,
leider ist mein Betreff etwas unglücklich formuliert, aber ich weiß nicht, wie ich mein Problem in wenigen Worten zusammen fassen soll:
In VBA nutze ich eine If Then Anweisung. Ist die Bedingungen erfüllt, so soll er mehrer Schritte abarbeiten. Aber wie sage ich ihm, daß...
13.08.2008 10:34:00
Thread-ID: 1001416
5 Beiträge
Anzeige
VBA - If Anweisung mehrerer Abfragen
Jana

Hallo liebes Forum!!
Ich stehe gerade komplett (mal wieder auf dem Schlauch)!..
Ich habe einen umfangreichen VBA-Code mit Arrays. Nun möchte ich, dass in der Spalte 3 geguckt wird, ob die Zahl 2,3,7,9,11 oder 13 in dieser Zelle steht. Ist einer dieser Zahlen vorhanden, dann soll eine Va...
11.09.2008 12:06:28
Thread-ID: 1009072
3 Beiträge
Makro - einfache VBA Schleife für Excel
pc-doc@k-u-p.de

Hallo VBA MAkro Profis,
programmiere fast nie in VBA mehr Web js, php/mysql,
und brauche eine einfache VBA Schleife für Excel:
Ich möchte in mehreren Registerblättern einer Arbeitsmappe in der
Spalte D Zeile für Zeile checken ob
ein Wert in der Zelle steht
und wenn...
20.10.2008 11:51:00
Thread-ID: 1017619
8 Beiträge
Anzeige
Schleife: Zählen mit 2 Bedingungen
Sabrina

Hallo liebe Excel - Freunde,
Wollte erstmal sagen, dass ich das Forum ganz toll finde. Hat mir als Einsteiger schon den ein oder anderen Tipp gegeben.
Nun habe ich ein spezifisches Problem, bei dem ich einfach nicht weiterkomme. Ich hoffe ihr könnte mir dabei ein bisschen helfen.
Ic...
23.11.2008 20:21:00
Thread-ID: 1027155
6 Beiträge
Sumif mit 2 Bedingungen
HeinzS

Hallo zusammen, kann mir jemand sagen, wie ich die formel richtig aufbauen muß:
Aufgabenstellung: Addiere alle Zahlen aus dem Bereich A1:A100, welche entweder =123 sind? Habe es mit Sumif versucht, scheitere aber an der 2ten Bedingung.
Danke für eure Hilfe!
Lg, Heinz
04.02.2009 10:26:00
Thread-ID: 1046913
4 Beiträge
VBA mit Schleife-Zählerproblem
ico

Hallo,
leider habe ich den vorherigen Beitrag schon geschlossen aber dennoch ein Problem.
Der nachfolgende Code funktioniert wunderbar, aber leider wird de Zähler n bei jedem durchgang um 2 erhöht....eigentlich sollte dieser doch immer um eins erhöht werden n=n+1 ?
Sub Test2() For...
12.02.2009 17:18:00
Thread-ID: 1050178
4 Beiträge
Zählenwenn mit mehreren Bedingungen
Thomy

Hallo Excelprofis
Ich habe 2 Spalten. In der 1. befinden sich Zahlen und in der 2. Namen.
Welche Formel muss ich verwenden, wenn ich die Anzahl Zahlen in der Spalte A ermitteln will, die grösser als 2 und kleiner als 6 sind und in der Spalte B der Name Meier steht.
Ich bin mal bis...
13.03.2009 15:38:03
Thread-ID: 1059916
2 Beiträge
ZÄHLENWENN() mit mehreren Bedingungen
Kasimir

Hallo Leute,
irgendwie komme ich nicht weiter. Ich möchte eine ZÄHLENWENN()-Funktion mit mehreren Bedingungen erstellen, scheitere aber kläglich daran. Ich möchte eigentlich nur Zählen, wenn in Spalte B und C und D etwas steht. Das Ganze von Zeile 20 bis 269.
Mal als Beispiel, in Zelle...
14.03.2009 14:22:53
Thread-ID: 1060148
4 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
4
2
2
7
5
5
3
3
1
3
3
1
3
9
3
7
12
5
2
6
4
3
3
13
6