Office: Abbrechen Button bei Inputbox

Hallo zusammen,

ich habe folgendes Problem: wenn ich bei meiner InputBox auf "Abbrechen" oder auf das "X" zum Schließen des Dialogfeldes drücke, erscheint die Fehlermeldung "Typen unverträglich".

Hier ist mein Code und dazu bräuchte ich die Ergänzung, dass sich die InputBox bei "Abbrechen" und klicken auf "X" schließt.

Sub DiagrammEinfuegenFe()
' Makro neu erstellt 08.07.2021
Dim co As ChartObject
Dim ch As Chart
Dim intAnz As Integer ' Variable für Anzahl der angezeigten Datensätze - 02.06.2021
Dim lngZiZeile As Long ' Startzeile für Diagrammdarstellung - 02.06.2021
Dim lngStZeile As Long ' Zielzeile für Diagrammdarstellung - 02.06.2021
Dim strTxt1 As String
Dim chrDia As ChartObject
Dim strKorr As String ' zugefügt 09.07.2021
Application.ScreenUpdating = False
For Each chrDia In Tabelle71.ChartObjects
If chrDia.Name = Tabelle9.Cells(5, 5).Text Then ' Diagrammname auslesen zum Löschen 07.07.2021
chrDia.Delete
Exit For
End If
Next chrDia
Tabelle71.Activate
Set co = Tabelle71.ChartObjects.Add(10, 10, 400, 250)
Set ch = co.Chart
lngZiZeile = InputBox(prompt:="Wie viele Datensätze sollen im Diagramm dargestellt werden?", Title:="Anzahl Datensätze") + 10 ' Abfrage nach Anzahl der Datensätze - eingefügt 02.06.2021
'If lngZiZeile = 11 Then lngZiZeile = 12 ' zugefügt 08.07.2021 Fehler bei einzeiligen Diagramm abfangen
If lngZiZeile < 13 Then strKorr = "B" Else strKorr = "C" ' zugefügt 09.07.2021
lngStZeile = 10 ' definieren der Startzeile - geändert 02.06.2021
strTxt1 = "B" & lngStZeile & ":" & strKorr & lngZiZeile & ", " & "I" & lngStZeile & ":" & "I" & lngZiZeile
ch.ChartArea.Interior.Color = RGB(238, 142, 76)
ch.PlotArea.Interior.Color = RGB(238, 142, 76)
ch.ChartType = xlColumnClustered
co.Chart.HasTitle = True
co.Chart.ChartTitle.Text = "Fe-Auswertung"
ch.SetSourceData Worksheets("Fe-Kennzahlen").Range(strTxt1)
Tabelle9.Cells(5, 5) = co.Name ' Diagrammname zum späteren löschen hinterlegen 07.07.2021
ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Select
ActiveChart.Parent.Cut
Application.ScreenUpdating = True
End Sub

Vielen Dank für eure Hilfe!

Grüße Philip

 

Hallo Philip,

Du wertest die Eingabe nicht aus.

Code:

        vntReturn = InputBox("Bitte Wert eingeben", "Eingabe", 1)
        If StrPtr(vntReturn) = 0 Then
            MsgBox "Abbrechen gedrückt"
         end if

 

Ich habe eher ein Problem, wo ich diesen Teil in meinem ewig langen Code einfüge.

 

Moin!
x oder abbrechen versucht "" + 10 zu rechnen.
Man kann zu einem (Leer)string nichts addieren, deshalb LZF 13 (Typen unverträglich)!
Nimm nicht die InputBox-Funktion, sondern die Application.InputBox-Methode
Diese liefert mit dem Argument Type:=1 garantiert eine Zahl als Ergebnis.
(0 bei Abbruch)
Dies kannst Du dann in der If-Abfrage prüfen.

Gruß Ralf

 

Hallo,

ist das ein großer Aufwand das umzuprogrammieren? Ich habe dafür eigentlich keine Zeit mehr leider, am Mittwoch ist Abgabe. Kann mir da jemand behilflich sein?
Viele Grüße

Philip

 

Schulaufgabe?
Mal im Ernst:
Du könntest Dir zumindest mal die Mühe machen, nach InputBox-Funktion und Application.InputBox-Methode zu googlen!
Da liest Du dann auch gleich was zu den Rückgabewerten.
Dann ist es nur noch ein kleiner Schritt, meinen obigen Beitrag zu verstehen.
(nennt sich auch Hilfe zur Selbsthilfe!)

Übrigens ist Hajos Code falsch!

Gruß Ralf

 

Nein Masterarbeit. Ich muss tippen auch noch, habe den Fehler leider sehr spät entdeckt. Ich habe gehofft, eine schnelle Lösung zu finden. Leider muss ich es dann so lassen.

 

Letzte Hilfestellung meinerseits:
Dim Response As Long
Response = Application.InputBox("Test", Type:=1) + 10
If Response = 10 Then Exit Sub

 

Danke.
Ich hätte noch kurz eine andere Frage.
Ich habe eine Tabelle. Die hat bestimmte Anzahl an Spalten und Zeilen. Wenn ich diese aber drucken möchte, hat das Programm irgendwie alle Zeilen markiert, sodass das unendlich lang wäre. Wie kann man das beheben? Auch Druck als PDF ist nicht möglich.

 

Meine Glaskugel sagt:
Formatierungen über alle Zeilen …

 

markiere erste Zeile nach Tabele strg+Umschalttaste, rechte Maustaste und löschen.
Das gleiche bei Spalte mit Pfeil nach rechts.
Speichern nicht vergessen.

Gruß Hajo

 

Es liegt ein anderes Problem vor. Ich habe eine Tabelle mit 12 WErten. WEnn ich diese Drucken möchte, dann druckt er mir auch nur den Bereich mit den 12 Werten. Wenn ich jetzt aber in die Tabelle über meine Programmierung und mein Eingabefenster einen 13.Wert hinzufüge, dann wird für das Tabellenblatt irgendeine ungewollte Formatierung übernommen, sodass diese Formatierung dann plötzlich für die nächsten 200000 Zeilen gilt. Kennt ihr dafür einen Code, damit durch den Eintrag der über eine UserForm in die Tabelle erfolgt, nicht die Formatierung fürs Drucken für alle Zeilen verwendet wird?

Vielleicht kann ich auch jeamnden die Datei schicken. Sonst bin ich glaub echt verloren.

 

nur wenige schauen auf Deinen Rechner und sehen die Datei.
Ich möchte gerne den Fehler im Original sehen.

Ich baue keine Datei nach. Die Zeit hat schon jemand investiert.

Ein Nachbau sieht meist anders aus als das Original. <B>Darum sollte das Original verlinkt werden.</b>

Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten
Hinweis - Anonymisierung und Pseudonymisierung von Beispielmappen - MS-Office-Forum
änderrn.
Der Name einer hochgeladenen Mappe wird im Beitrag automatisch angezeigt, sodass es bei Verwendung von aussagekräftigen Namen leichter fällt, sie später im Ablageordner wiederzufinden und sie gedanklich einem bestimmten Thema zuzuordnen. Namen wie Muster*, Test*, Mappe*, Beispiel*, Fehler*, Kalender* usw. sind so allgemein, dass eine Zuordnung zu einem Thema unmöglich gemacht wird.
Es sollte ein aussagekräftiger Name sein.

Benutze hier im Forum die Funktion zum hochladen. Falls Du die nicht benutzen möchtest beachte, von unsicheren Servern wie z.B. www.file-upload.net lade ich keine Datei runter. (lt. Einschätzung meines Virenprogramms)3

Bilder lade ich mir nicht runter, da Excel damit nichts anfangen kann.

Bilder statt Datei | Excel ist sexy!

Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.

Das ist nur meine Meinung zu dem Thema.

Gruß Hajo

 

Hallo und danke,

es handelt sich dabei um das Tabellenblatt "Wirkungsgrade & CO2-Emissionen". Bei den bisherigen 12 Einträgen erfolgt die Druckvorschau wunderbar. Füge ich aber über den Button "Verwalten" einen neuen Eintrag hinzu (da geben sie einfach ein paar Beispielwerte ein), und gehe ich dann auf die Druckvorschau dann werden auf einmal aus 1 Seite zum drucken nun 596 Seiten. Auf einmal wird ein Format für die nächsten mehreren 1000 Zeilen übernommen ungewollt. Nur nochmal kurz zum Verständnis. Damit würde mir echt mein Arsch gerettet werden.
Vielen Dank

Philip

 

ich kann nicht helfen da ich keinen Datensatz hinzufügen kann.
Ich bin dann raus.

Gruß Hajo