Visual Basic: Brauche Hilfe bei einem Taschenrechner?

Hey Leute, ich mache gerade einen Taschenrechner in VB 6 und habe dabei zwei Probleme.

Problem:

Der Taschenrechner kann höchstens drei Zahlen aufeinmal speichern. Bei der Eingabe steht zuerst die erste Zahl in der Anzeige des Taschenrechners, dann nur das erste Rechenzeichen, dann nur die zweite Zahl, dann nur das zweite Rechenzeichen, dann nur die dritte Zahl und wenn man dann wieder auf ein Rechenzeichen klickt, werden zu erst die drei Zahlen zusammengerechnet und dann erscheinen das Ergebnis und das nächste Rechenzeichen GLEICHZEITIG in der Anzeige. Mein Problem ist, dass wenn ich dann die nächste Zahl eingebe, dass dann eigentlich diese allein ohne das Ergebnis und das Rechenzeichen in der Anzeige erscheinen sollte, aber bei mir steht dann alles gleichzeitig in der Anzeige.

2 . Problem:

Wenn ich zwei Zahlen und ein Rechenzeichen eingebe und dann auf Gleich klicke, kommt das richtige Ergebnis raus, aber bei drei Zahlen nicht.

Wenn man durch Null dividiert, soll in der Anzeige die Nachricht "Man darf nicht durch Null dividieren" erscheinen

Variablen, die ich benutzte:

Dim Zahl1 As Double

Dim Zahl2 As Double

Dim Zahl3 As Double

Dim Operation1 As String <-- für das erste Rechenzeichen

Dim Operation2 As String <-- für das zweite Rechenzeichen

Dim Ergebnis As Boolean <-- wird auf True gesetzt, wenn das Ergebnis alleine oder noch ein Rechenzeichen dazu in der Anzeige stehen

Dim Zahl1N As Boolean <-- werden alle drei benutzt, um zu sehen, ob eine Zahl positive oder negativ ist

Dim Zahl2N As Boolean

Dim Zahl3N As Boolean

Und die Anzeige des Taschenrechners heißt "edAnzeige"

Um das erste Problem zu lösen habe beim Code der Buttons für die Zahlen 0-9 folgendes geschrieben:

'Wenn ein Ergebnis und ein Rechenzeichen in der Anzeige stehen

ElseIf (Ergebnis = True) And (edAnzeige <> " ") And (Operation1 <> " ") And (Operation2 = " ") Then

edAnzeige = " "

Dadurch wurde das Problem bei den Rechenzeichen Mal und Geteilt gelöst, aber immer noch nicht bei Plus und Minus.

Hier ist der Teil des Codes, den ich für einen Fall beim Button geschrieben habe (2. Problem):

'Wenn die erste Zahl, ein Plus, die zweite Zahl, ein zweites Plus und eine dritte Zahl eingegeben wurde

ElseIf (edAnzeige <> " ") And (Operation1 = "+") And (Operation2 = "+") Then

Zahl3 = edAnzeige

edAnzeige = Zahl1 + Zahl2 + zahl3

Zahl1 = edAnzeige

Operation1 = ""

Operation2 = ""

Zahl1N = False

Zahl2N = False

Zahl3N = False

Ergebnis = True

Das hier habe ich beim Button für die Zahl 0 im Code geschrieben (Problem 3):

'Wenn durch Null dividiert wird

If (edAnzeige = " / ") Then

edAnzeige = "Man darf nicht durch Null dividieren"

Der Code für das dritte Problem klappt allerdings auch nicht.

Ich kann bei keinem der Codes irgendwelche Fehler entdecken. Deshalb hoffe ich, dass mir hier vielleicht jemand weiterhelfen kann.

LG Hiavatha8

1 Antwort

regex9

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Programm, programmieren, Informatik

29.10.2016, 16:53

Kannst du diesen Fall bitte Schritt für Schritt an einem Beispiel nachstellen? Ich bin mir nicht sicher, ob ich dein Problem richtig verstanden habe. Momentan hört es sich so an, als würdest du nach der Berechnung des Ergebnisses das Eingabefeld nicht wieder leeren.
Kannst du bitte deinen gesamten Quellcode bei http://pastebin.com/ posten?

Insgesamt wirkt dein Vorgehen umständlich. Die boolschen Variablen für negative oder positive Zahlen könntest du dir, meiner Meinung nach, sicherlich sparen. Sollte die Eingabe einer Berechnung darin bestehen, dass der Nutzer einen gesamten String eingeben kann, z.B. "1+2-34" würde ich mit Schleifen durch den String gehen, um die richtige Rechnung zusammenzubauen.

Ähnliche Beiträge

Aufgabe: Minimum ermitteln?

Hallo Leute, könnt ihr mal kurz kontrollieren ob ich die folgende Aufgabe richtig gemacht habe?

/*
Aufgabe 1: Minimum ermitteln
Gegeben sind drei String Variablen mit beliebigen ganzzahligen Werten (als Strings!), z.B. "23", "5","13".
Wandeln Sie die Strings in Integer-Werte um und ermitteln Sie das Minimum und Maximum der drei Zahlen.
Geben Sie die drei Zahlen und das Minimum/Maximum auf der Konsole aus.

Das Minimum von 23, 5 und 13 ist 5.
Das Maximum von 23, 5 und 13 ist 23.
*/

String zahl1 = "23";
String zahl2 = "5";
String zahl3 = "13";

boolean minimum = Integer.parseInt(zahl2) < Integer.parseInt(zahl1) && Integer.parseInt(zahl2) < Integer.parseInt(zahl3);
System.out.println(minimum);

boolean maximum = Integer.parseInt(zahl1) > Integer.parseInt(zahl2) && Integer.parseInt(zahl1) > Integer.parseInt(zahl3);
System.out.println(maximum);

//true
//true

...zum Beitrag

VBA Counter Problem?

Hallo Zusammen,

ich hab ein Problem in VBA. Ich muss bei jedem klicken auf Raten den counter +1 erhöht werden. Leider ergibt sich bei mir eine Endlos-Schleife. Brauche Hilfe.

Private Sub btnRaten_Click()
Dim Userzahl As Integer 'Eingegebene Zahl
Dim PCzahl As Integer 'Zufallszahl
Dim anzahl As Integer
Dim Ende As Boolean


anzahl = 0


PCzahl = Int((Rnd() * 100) + 1)


Userzahl = Val(tbxEingabe.Value)


Ende = False


Do Until Ende = True


anzahl = anzahl + 1


If Userzahl < PCzahl Then
lblAusgabe = "Die Zahl " & Userzahl & " ist zu klein"
Ende = False


ElseIf Userzahl > PCzahl Then
lblAusgabe = "Die Zahl " & Userzahl & " ist zu groß"
Ende = False


ElseIf Userzahl = PCzahl Then
lblAusgabe = "Gewonnen!"
Ende = True


End If


lblCounter.Caption = anzahl
Loop


End Sub

Danke für eure Hilfe.

...zum Beitrag

Arbetismappe mit datum durchsuchen?

Hallo Zusammen,

ich habe eine Arbeitsmappe mit Tabellenblätter, wo sich die Namen variieren.

Da aber im jeden Tabellenblatt in Zelle A1 ein Datum Steht, will ich jedes Tabellenblatt dem Heutigen datum suchen, zellen aus dem blatt kopieren und in eine Andere arbeitsmappe einfügen, danach das gleiche noch einmal mit dem gestrigen datum.

Aktuell sieht mein Code so aus, aber der gibt mir nur die MsgBox, dass nichts gefunden worden ist.

  'Aktuelles Datum auswählen bei Start
Dim bolHabWasGefunden As Boolean
Dim wksTabelle As Worksheet
Dim rngSpalteA As Range
Dim rngZelleGefunden As Range
For Each wksTabelle In ThisWorkbook.Worksheets
 Set rngSpalteA = wksTabelle.Columns(1)
 Set rngZelleGefunden = rngSpalteA.Find(Date, LookIn:=xlValues)
 If Not rngZelleGefunden Is Nothing Then
  wksTabelle.Activate
  rngZelleGefunden.Select
  bolHabWasGefunden = True
  Exit For
 End If
Next
If bolHabWasGefunden = False Then
 MsgBox Date, , "Hab ich nicht gefunden:"
End If

Kennt da jemand einen ansatz bzw, eine lösung?

...zum Beitrag

Wie behebe ich das Python Problem?

Hallo

Ich habe mir einen Taschenrechner mit Python programmiert. Wenn ich auf start klicke, muss ich die erste Zahl und die zweite Zahl eingeben. Danach das Rechenzeichen.
Das Problem ist bei mir rechnet er nur dividiert wenn ich andere Rechenzeichen eingebe, dann beendet er das Programm.

Code:

Zahl1=int(input("1. Zahl: "))
Zahl2=int(input("2. Zahl: "))
Rechenzeichen =input("Addieren? (+), Subtrahieren (-), Multiplizieren? (*), Dividieren (/): ")

Ergebnis = 0
if Rechenzeichen=="+":
    Ergebnis=Zahl1+Zahl2

if Rechenzeichen=="-":
    Ergebnis=Zahl1-Zahl2

if Rechenzeichen=="*":
    Ergebnis=Zahl1*Zahl2

if Rechenzeichen=="/":
    Ergebnis=Zahl1/Zahl2

    print("Das Ergebnis ist:", Ergebnis)

...zum Beitrag

Excel Colorsum Ergebnis automatisch aktualisieren lassen?

Moin, ich habe in Excel über Visual Basics folgenden Code eingefügt:

Function ColorSum(ByRef Source As Range, ByVal Color As Integer, Optional ByVal ForeOrBack As Boolean = -1) As Double

Dim rng As Range, dblSum As Double

Application.Volatile

If Color < 0 Or Color > 56 Then Color = IIf(ForeOrBack, -4142, -4105)

For Each rng In Source

If IsNumeric(rng) Then

If ForeOrBack Then

If rng.Interior.ColorIndex = Color Then dblSum = dblSum + rng

Else

If rng.Font.ColorIndex = Color Then dblSum = dblSum + rng

End If

ColorSum = dblSum

End Function

Dies hat die Funktion, dass ich zahlen zusammen rechnen kann anhand der Farbe. Das Funktioniert auch alles so weit. Nur weiß ich nicht wie ich es hinkriege dass sich das Ergebnis automatisch aktualisiert nachdem ich die Farbe z.B. von rot auf grün umändere. Dann sollte eigentlich aus summe X eine summe heraus kommen die um 1 weniger ist. Dies sehe ich aber erst dann, nachdem ich in die Spalte gehe (wo die Formel ist) und die Entertaste drücke. Geht das auch ohne das ich es Manuell aktualisieren muss?

...zum Beitrag

Taschenrechner in C: Könnt ihr mir bei der Überprüfung des Operators helfen?

Hallo Community,

ich bräuchte Hilfe bei meinem C-Code. Ich komme nicht weiter bei der Überprüfung vom Taschenrechner. Ich möchte, dass der Operator überprüft werden soll. Sprich bei allen anderen Buchstaben außer A, S, M, D soll der Benutzer eine neue Angabe machen.

Hier mein Code:

int main()
{
  // Deklarierung der Variablen
  char auswahl;
  float zahl1, zahl2;
  float ergebnis;

  // Auswahl vom Rechenoperator
  printf("Wie moechtest du Rechnen?\n");
  printf("(a) Addieren\n");
  printf("(s) Subtrahieren\n");
  printf("(m) Multiplizieren\n");
  printf("(d) Dividieren\n");
  scanf("%c", &auswahl); // %c für char Variablen

  while () {
    if (auswahl != 'a' || 's' || 'm' ||'d') {
      printf("\nFalsche Eingabe. Waehle eine neue:");
    }
  }

  // Eingabe der Zahlen
  printf("Gib deine erste Zahle ein: ");
  scanf("%f", &zahl1);
  printf("Gib deine zweite Zahle ein: ");
  scanf("%f", &zahl2);

  // Auswahl-Auswertung vom Benutzer
  switch (auswahl) {
    case 'a':
      ergebnis = zahl1 + zahl2;
      break;
    case 's':
      ergebnis = zahl1 - zahl2;
      break;
    case 'm':
      ergebnis = zahl1 * zahl2;
      break;
    case 'd':
      ergebnis = zahl1 / zahl2;
      break;
    default:
      break;
  }

  // Ergebnisasugabe
  if (auswahl == 'a') {
    printf("\nErgebnis:\n%.1f + %.1f = %.1f", zahl1, zahl2, ergebnis);
  }

  if (auswahl == 's') {
    printf("Ergebnis:\n%.1f - %.1f = %.1f", zahl1, zahl2, ergebnis);
  }

  if (auswahl == 'm') {
    printf("Ergebnis:\n%.1f * %.1f = %.1f", zahl1, zahl2, ergebnis);
  }

  if (auswahl == 'd') {
    printf("Ergebnis:\n%.1f / %.1f = %.1f", zahl1, zahl2, ergebnis);
  }

  printf("\n\n");
  return 0;
}

...zum Beitrag

Primzahlen berechnen

will man zum Beispiel bei Visual Basic ein Programm schreiben, dass überprüft, ob Zahlen Primzahlen sind, macht man das mit einer Schleife, die von 2 bis zur Wurzel der Zahl geht. Meine Frage ist jetzt, warum man die Schleife nur bis zur Wurzel der Zahl machen muss? Ich habe gelesen, dass es nur Teiler bis zu der Wurzel geben kann aber warum ist das so? Ich habe leider keine der Erklärungen verstanden >.<

Hier nochmal mein Code zur Verständnis:

Dim p As Long = tbPrimzahl.Text
Dim Counter As Long
    Dim Primzahl As Boolean  = True                            

        For Counter = 2 To  Math.Sqrt(p) Step 1
            If p Mod Counter = 0 And Counter <> 1 Then
              Primzahl = False
              MsgBox(p & " ist keine Primzahl.", MsgBoxStyle.OkOnly)
              Exit Sub
            End If
        Next Counter

...zum Beitrag

Php Primzahlbestimmung?

Hey,

das wird fürs erste wahrscheinlich meine letzte frage zu php sein. Und zwar fehlt mir noch die Primzahlbestimmung. Ich hab es schonmal gefragt, jedoch hat es bisher noch nicht funktioniert.

<html>
   	<?php
		$zahl1 = $_POST["zahl1"];
		$zahl2 = $_POST["zahl2"];
		$text = $_POST["text"];
		$produkt = $zahl1*$zahl2;
         $feld=array();

		
		if($zahl1 < $zahl2) {
			echo "Zahlen: $zahl1 und $zahl2 <br>";
        for ($i=$zahl1; $i<=$zahl2;$i++)
		 {$feld[]=$i;}
	 
			foreach($feld as $zahl) {
				
				
				if($zahl % 2 == 0) {
					echo"<font color='red'>{$zahl}</font>";					
				}								
				else {
					echo"<font color='blue'>{$zahl}</font>";
				}
			}
			echo "<br> Produkt: $produkt <br> Zeichenkette: $text  ";
			echo  strlen($text);
		}
		if($zahl2 < $zahl1) {
			echo "Zahlen: $zahl2 und $zahl1 <br>";
		 for ($i=$zahl2; $i<=$zahl1;$i++)
		 {$feld[]=$i;}	
			
			foreach($feld as $zahl) {
				
				
				if($zahl % 2 == 0) {
					echo"<font color='red'>{$zahl}</font>";
				}
				else {
					echo"<font color='blue'>{$zahl}</font>";
				}
			}
			echo "<br> Produkt: $produkt <br> Zeichenkette: $text  ";
			echo  strlen($text);
		}


	?>
</html>

Das ist mein code bisher und es funktioniert auch alles, bis auf die primzahlen. Wäre sehr nett

...zum Beitrag

c++ nicht intialisierter speicher wird verwendet?

#include <iostream>
using namespace std;
int main() {
   char Rechenzeichen;
   int Zahl1, Zahl2, Anes;
   signed int Ergebnis;
   cout << "Zahl1: ";
   cin >> Zahl1;
   cout << "Zahl2: ";
   cin >> Zahl2;
   cout << "Rechenzeichen: ";
   cin >> Rechenzeichen;
   switch (Rechenzeichen)
   {
   case ('-'):
      {      Ergebnis = Zahl1 - Zahl2;   } break;
   case ('+'):
      {      Ergebnis = Zahl1 + Zahl2;   } break;
   case ('/'):
      {      Ergebnis = Zahl1 / Zahl2;   } break;
   case ('*'):
      {      Ergebnis = Zahl1 * Zahl2;   } break;
   default:
      {      cout << "Falsche Eingabe" << endl;   }
      cout << "Ergebnis: " << Ergebnis << endl;
   }
   cout << " ";
   cin >> Anes;

   return 0;
}

Habe heute mit c++ angefangen und wollte einen kleinen taschenrechner programmieren komme aber immer wieder auf diesen komischen fehler dass meine variabel (in dem fall: Ergebnis) nicht intialisiert seie obwohl ich dass in zeile 9 getan habe .

...zum Beitrag

VBA zu HTML Code umgewandelt - Zeilenumbrüche weg?

Hallo,

ich habe durch den unten beigefügten Code versucht eine E-Mail samt Signatur automatisch kommen zu lassen. Nun habe ich das Problem, dass die Absätze in der Mail weg sind und alles in einer Zeile ist. Wie behebe ich das?

Private Sub CommandButton2_Click()

Dim objOutlook As Object

Dim objMail As Object

Dim S As String

Dim body As String

Dim htbody As String

Set objOutlook = CreateObject("Outlook.Application")

Set objMail = objOutlook.CreateItem(0)

If TextBox2.text = "" Or TextBox2.text = TextBox1.text Then

body = "Sehr geehrte Frau x," & vbCrLf & _

vbCrLf & _

"Folgende/r Mitarbeiter/in ist erkrankt:" & vbCrLf & _

vbCrLf & _

ComboBox1.text & vbCrLf & _

vbCrLf & _

"Zeitraum: " + TextBox1.text

Else

body = "Sehr geehrte Frau x," & vbCrLf & _

vbCrLf & _

"Folgender Mitarbeiter ist erkrankt:" & vbCrLf & _

vbCrLf & _

ComboBox1.text & vbCrLf & _

vbCrLf & _

"Zeitraum: " + TextBox1.text + " bis " + TextBox2.text

End If

htbody = fnConvert2HTML(htbody)

S = Environ("appdata") & "\Microsoft\Signatures\autoE-Mailsenden.htm"

If Dir(S, vbDirectory) <> vbNullString Then

S = S

S = CreateObject("Scripting.FileSystemObject").GetFile(S).OpenAsTextStream(1, -2).readall

With objMail

.To = "x.de"

.Subject = "Krankmeldung " + ComboBox1.text + " x"

htbody = body & " " & S

.htmlbody = "" & htbody & ""

.Display 'Erstellt die Email und öffnet diese. Der Versand erfolgt anschließend manuell vom User!

End With

Else

' With objMail

' .To = Empfänger

' .Subject = Betreff

' htbody = body '& " " & S

' .htmlbody = "" & htbody & ""

' .Display

' ' .Display 'Erstellt die Email und öffnet diese. Der Versand erfolgt anschließend manuell vom User!

' End With

End If

End Sub

Zudem noch folgende Funktion:

Function fnConvert2HTML(myText As String) As String

Dim bldTagOn, itlTagOn, ulnTagOn, colTagOn As Boolean

Dim i, chrCount, n As Integer

Dim chrCol, chrLastCol, htmlTxt As String

Dim myChar As String

bldTagOn = False

itlTagOn = False

ulnTagOn = False

colTagOn = False

chrCol = "NONE"

htmlTxt = "<html>"

chrCount = Len(myText)

End Function

Danke im voraus!!!

...zum Beitrag

IF Funktion in excel auf mehrere Zellen anwenden?

Hallo,

Ich möchte wenn in einer Zelle etwas reingeschrieben wird das die darauffolgenden Felder zu Pflichtfelder werden. Dazu nutze ich aktuell folgende Formel.

Private Sub Workbook_BeforePrint(Cancel As Boolean)

Dim zeile As Long, OK As Boolean

OK = True

For zeile = 1 To Tabelle1.Cells.SpecialCells(xlCellTypeLastCell).Row

If Worksheets("Tabelle1").Cells(4, 2).Value <> "" Then

If Worksheets("Tabelle1").Cells(4, 3).Value = "" Then OK = False 'Spalte C

If Worksheets("Tabelle1").Cells(4, 4).Value = "" Then OK = False 'Spalte D

If Worksheets("Tabelle1").Cells(4, 5).Value = "" Then OK = False 'Spalte E

If Worksheets("Tabelle1").Cells(4, 6).Value = "" Then OK = False 'Spalte F

If Worksheets("Tabelle1").Cells(4, 8).Value = "" Then OK = False 'Spalte H

If Worksheets("Tabelle1").Cells(4, 9).Value = "" Then OK = False 'Spalte I

End If

If Not OK Then

MsgBox "Drucken nicht möglich - nicht alle Pflichtfelder ausgefüllt"

Cancel = True

End If

End Sub

Nun möchte ich das die obige Formel von B4- B25 durchgeführt wird. Also das wenn in in B8 z.B. etwas reingeschrieben wird das dann die Zellen in B8 geprüft werden das dort in den anderen Feldern auch was reingeschrieben worden ist.
Wie würde ich das ganze hinbekommen?

Danke im Voraus

...zum Beitrag

Python Programmierfehler?

Wenn ich das Programm starte kommt die Fehlermeldung das Ergebnis2 nicht definiert ist, erkennt jemand meinen Fehler?

Der Code:

while 1:
  Zahl1 = input("erste Zahl: ")
  Zahl2 = input("zweite Zahl: ")
  Ergebnis = input("Addieren? (1), Subtrahieren? (2), Multiplizieren? (3), Dividieren? (4)")
  if (Ergebnis == 1):
    Ergebnis2 = Zahl1+Zahl2
  if (Ergebnis == 2):
    Ergebnis2 = Zahl1-Zahl2
  if (Ergebnis == 3):
    Ergebnis2 = Zahl1*Zahl2
  if (Ergebnis == 4):
    Ergebnis2 = Zahl1/Zahl2
  print(Ergebnis2)

...zum Beitrag

C# mehrere Einstiegspunkte definiert?

Hallo ich habe eine Frage zu meiner nachgecodeten Lotterie. Wenn ich sie ausführen will steht dort, dass mehrere Einstiegspunkte definiert sind.

using System;
using System.Linq;


namespace ConsoleApp564
{
    class Program
    {
        public static void Main(string[] args)
        {
            Random Zufallszahl = new Random();
            int lösung1 = Convert.ToInt32(Zufallszahl.Next(1, 49));
            int lösung2 = Convert.ToInt32(Zufallszahl.Next(1, 49));
            int lösung3 = Convert.ToInt32(Zufallszahl.Next(1, 49));


            int[] lösung = new int[3] { lösung1, lösung2, lösung3 };
            Array.Sort(lösung);


            int zahl1;
            int zahl2;
            int zahl3;


            Console.WriteLine("Wilkommen in der Lotterie");
            Console.Write("Geben sie ihre erste Zahl eine, diese muss zwischen 1 und 49 liegen: ");
            zahl1 = Convert.ToInt32(Console.ReadLine());


            if (zahl1 <= 49 && zahl1 >= 1)
            {
                Console.Write("Geben sie ihre zweite Zahl ein, diese muss zwischen 1 und 49 liegen: ");
                zahl2 = Convert.ToInt32(Console.ReadLine());


                if (zahl2 <= 49 && zahl2 >= 1)
                {
                    Console.Write("Geben sie ihre dritte Zahl ein, diese muss zwischen 1 und 49 liegen: ");
                    zahl3 = Convert.ToInt32(Console.ReadLine());


                    if (zahl3 <= 49 && zahl3 >= 1)
                    {
                        int[] number = new int[3] { zahl1, zahl2, zahl3 };
                        Array.Sort(lösung);
                        if ((Enumerable.SequenceEqual(lösung, number)))
                        {
                            Console.WriteLine("Sie haben gewonnen!");
                        }
                        else
                            Console.WriteLine("Sie haben verloren die Lösungzahlen waren " + lösung1 + ", " + lösung2 + " und " + lösung3 + ". Sie haben " + zahl1 + ", " + zahl2 + " und " + zahl3 + " getippt.");
                    }
                }
                else
                {
                    Console.WriteLine("Die Zahl muss zwischen 1 und 49 liegen!");
                    return;
                }
            }
        }
    }


}

...zum Beitrag

Excel Makro, PDF versenden, Anhang klappt nicht?

Hallo, ich würde gerne eine Rechnung mit einem Makro erstellen. Soweit klappt das auch und die Mail öffnet sich auch, aber diese wird nicht als Anhang hinzugefügt. Ich komme leider nicht drauf. Ich denke, es liegt daran, dass er die Datei nicht findet, aber ich wüsste keinen Lösungsansatz. Hier der Code:

Dim Result As VbMsgBoxResult

Sub RechnungsnrUndDrucken()

Sheets("Rechnung_Video").Select

[D15] = [D15] + 1 'Rechnungsnummer 1 hochzählen

Dim sCC As String

Dim sName As String

Dim sText As String

Dim sObject As String

Dim sCompany As String

Dim sRefNr As String

Dim sTempFileName As String

If (CStr(ThisWorkbook.ActiveSheet.Name) = "Rechnung") Then

Result = MsgBox("Rechnung fertig?", vbApplicationModal Or vbQuestion Or vbYesNo)

If Result = vbNo Then Exit Sub

End If

Const DateiPfad = "C:\Temp\"

Dim DateiName As String

DateiName = DateiPfad & Range("C15") & Range("D15") & ".pdf"

Range("A1:F54").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

DateiName, Quality:=xlQualityStandard, _

IncludeDocProperties:=True, _

IgnorePrintAreas:=False, _

OpenAfterPublish:=False

Dim Nachricht As Object, OutApp As Object

Dim AWS As String

Set OutApp = CreateObject("Outlook.Application")

AWS = strFileName

'InitializeOutlook = True

Set Nachricht = OutApp.CreateItem(0)

With Nachricht

.Subject = "" & Range("A1") & "_" & Range("C15") & Range("D15")

.GetInspector.display

'.Attachments.Add ("C:\Temp\" & Range("C15") & Range("D15") & ".pdf")

End With

Set OutApp = Nothing

Set Nachricht = Nothing

End Sub

...zum Beitrag

Was möchtest Du wissen?

Deine Frage stellen