Guten Morgen,
leider komme ich in FB mit dieser Aufgabenstellung nicht weiter:
3 - Rechnungs- oder Angebotsgenerator
Artikel auswählen (ComboBox), Menge eingeben, Preis berechnen und alles per Button in ein Blatt schreiben.
Ich hätte da paar Fragen zu:
Woher bekomme ich dann die Artikel in der ComboBox? Und soll nur ein Artikel für jedes Angebot ausgewählt werden können, oder mehrere Artikel in einem Angebot?
Ich wähle aus ComboBox einen Eintrag aus, schreibe ich dann jeden Artikel einzeln per Button in eine Exceltabelle? Oder nacheinander Artikel auswählen und dann am Ende alles in die Tabelle per Button eintragen?
Hat da irgendwer paar Vorschläge für mich?
Ich könnte auf einem Formular einen Button "Neuer Artikel" hinzufügen. Über ein weiteres Unterformular könnte ich neue Artikel erfassen. Diese dann in ein Blatt schreiben. Oder ich gebe vorab Artikel in ein Blatt.
Hallo schönen guten Tag
sorry das ich das nochmal anspreche
die VBA hat immer super geklappt seit letztens geht es nicht mehr , das ich 730 schreibe und 7:30 erscheint
nun muss ich 73000 eingeben das 7:30 erscheint , oder 153000 das 15:30 erscheint. Also immer 00 anhängen war doch vorher nicht so, woran kann das liegen ihr Lieben ???
Private Sub Worksheet_Change(ByVal Target As Range)
Dim loA As Long
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("F37,F43,C5:e35")) Is Nothing Then
If Target = "" Then Exit Sub
Application.EnableEvents = False
If Not IsNumeric(Target) Then
If Target.Column <> 3 Then
response = MsgBox("Eingabefehler! Nur Zahlen erlaubt!", vbOKOnly, "Achtung")
Target = ""
Else
Target = UCase(Target)
End If
Else
Target = CStr(Target)
loA = Len(Target)
Target = Left(Format(Target, "0000"), 2) & ":" & Right(Target, 2)
Target.NumberFormat = "[h]:mm"
End If
Application.EnableEvents = True
End If
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("f44")) Is Nothing Then
If Target = "" Then Exit Sub
Application.EnableEvents = False
If Not IsNumeric(Target) Then
If Target.Column <> 3 Then
response = MsgBox("Eingabefehler! Nur Zahlen erlaubt!", vbOKOnly, "Achtung")
Target = ""
Else
Target = UCase(Target)
End If
Else
Target = CStr(Target)
loA = Len(Target)
Target = Left(Format(Target, "00000"), 3) & ":" & Right(Target, 2)
Target.NumberFormat = "[h]:mm"
End If
Application.EnableEvents = True
End If
If Not Intersect(Target, Range("E5:E34")) Is Nothing Then
Target.Offset(1, -2).Activate
End If
ich erhalte .csv-Dateien im Format UTF-8, lade diese mit Notepad++ und sehe dort unten rechts, dass sie auch in diesem Format gespeichert wurde.
Die Umlaute äöüÄÖÜß werden dort korrekt dargestellt.
Lade ich diese Datei ohne Änderung in Excel O365 Enterprise, werden dort die Umlaute dargestellt wie nachfolgend:
Suche ich dort beispielsweise mit der Suchfunktion STRG+H nach "ü" wird nichts gefunden. Suche ich nach " ü" wird exakt das gefunden.
Speichere ich die Datei und lade ich sie in Notepad++, wird sie im Format UTF-8 erkannt.
Es macht keinen Unterschied, ob ich das mit dem Desktopprogramm oder im Browser machen.
Die Bearbeitung möchte ich mit lesbaren Umlauten in Excel machen. Wo kann ich da etwas ändern?
Mittels PQ erzeuge ich aus mehreren Tabellen eine PQ-Tabelle.
Einige der Werte der PQ-Tabelle benötige ich in einer Excel-Tabelle. Das sind die Zeilen 1 bis evtl. 10.
In der Excel-Tabelle werden die weiteren Zeilen manuell befüllt.
Soweit - sogut.
Einige Spalten der Excel Tabelle holen sich mittels XVERWEIS Daten aus anderen Excel-Tabelle. Was funktioniert, wenn ich die Tabelle OHNE die PQ-Daten habe, also von Grund auf manuell befülle.
Ich könnte zwar in PQ eine identische Tabelle erzeugen mit Spalten in welcher die Formel steht. Aber die Formel wird, wenn die PQ-Tabelle nach Excel geschrieben wird nicht ausgeführt. Das muss ich manuell für jede Zeile anstoßen.
In der Zeile nach den PQ-Werten, also der Zeile mit den ersten manuellen Eintragungen, habe ich dann die XVERWEIS-Funktionen nicht. Das wird in der Tabelle nicht übernommen.
Gibt es eine Möglichkeit die Excel-Tabelle mit den PQ-Werten zu füllen und die Excel-Funktionen auszuführen?
ich hoffe ihr könnt mir hier helfen. Nachstehend ein VBA-Modul, wo eine csv aus einem Tab erzeugt wird. Nun soll hier beim Namen "Montageliste" noch die Nummer angehangen werden, welche im Tab Zeitkalkulation C1 steht. Irgendwie bekomme ich die Verbindung nicht hin.
Ausgabebeispiel:
Nummer in Zeitkalkulation C1: 2026123
Ausgabe des Dateinamens beim erzeugen der csv: Montageliste 2026123
Sub CSVDatei_schreiben()
Dim strVerzeichnis As String, nFileNr
Dim K As Integer, N As Integer, F As Integer
Dim FileName As String
Dim Daten As Variant
Dim objStream As Object
Dim strTextFile_Neu As String
Dim sText As String
Dim intFile
On Error GoTo ErrorHandler
strVerzeichnis = ActiveWorkbook.Path & "\"
FileName = InputBox("Dateiname!", "Filenamen für csv", "Montageliste")
If InStr(FileName, ".csv") > 0 Then
F = InStr(FileName, ".csv")
FileName = Left(FileName, F - 1)
ElseIf Len(FileName) < 3 Then
Exit Sub
End If
With Worksheets("Montageliste UMD")
For N = 1 To .Cells(Rows.Count, 15).End(xlUp).Row
For K = 1 To .Cells(1, Columns.Count).End(xlToLeft).Column
Daten = Daten & .Cells(N, K).Value & ";"
Next
sText = sText + Daten & Chr(10)
Daten = ""
Next N
End With
intFile = FreeFile
strTextFile_Neu = strVerzeichnis & FileName & Sheet("Zeitkalkulation, Range C1") & ".csv"
Set objStream = CreateObject("ADODB.Stream")
With objStream
.Type = 2 'Stream Typ
.Charset = "utf-8"
.Open
.WriteText sText 'Text schreiben
.SaveToFile strTextFile_Neu, 2 'binary Daten speichern
End With
Exit Sub
ErrorHandler:
MsgBox "Fehlerhafte Eingaben ! Bitte korrigieren und wiederholen.", vbCritical, "Hinweis"
End Sub
ich habe eine Dokument, welche verschieden Erklärungen beinhaltet. Alle Erklärungen sind mittels Seitenumbruch auf seperaten Seiten positioniert. Da die Erklärungen unterschiedliche Inhalte haben müssen folgende Felder immer wieder befüllt werden:
Name, Vorname
Strasse, hausnummer
PLZ, Stadt
Mobilfunknummer
Festnetznummer
E-Mail
sowie am Ende der jeweiligen Erklärung
Ort und Datum
Gibt es eine Möglichkeit, die Inhalte nur einmal eingeben zu müssen. Quasi auf Seite 1 setze ich den Hugo Mustermann ein und er erscheint in den Feldern der Folgeseiten.
So sieht das zu befüllende Feld aus. Der obere Part ist eine Tabelle mit 2 Spalten und 6 Zeilen und der untere Part ist einfach nur durch Tabs getrennt.
In den jeweiligen Seiten kann zwischen dem ersten und dem zweiten Part noch Text vorhanden sein.
Das komplette Dokument ist schreibgeschützt bis auf die Stellen mit der gelben Unterlegung.
Im Excel hätte ich es einfach nur mit "=" gelöst. Steht mir hier eine ähnliche Funktion zur Verfügung?
ich habe wieder einmal ein Problem, bei welchem ich nicht weiterkomme.
Ich habe eine Tabelle, welche ich in den ersten drei Spalten mittels Dropdown fülle.
Spalte Hersteller aus Tabelle Hersteller
Spalte Türer aus Tabelle Türer
Spalte Besitz aus Tabelle Besitz
Die Tabellen können sich erweitern.
Das funktioniert.
In die Spalte ORG trage ich eine Ziffernfolge manuell aus einer anderen Informationsquelle ein.
In der Spalte ZUF benötige ich ein weiteres Dropdown.
Hier ist mein Problem.
Zur Auswahl dürfen, auch in zukünftigen Zeilen, dynamisch nur Ziffern aus der Spalte ORG stehen, welche
1. über die Gesamte Tabelle in den Spalten Hersteller und Türer gleich sind
2. in der Spalte Besitz nicht als gekauft erfasst ist.
Ich habe ein Template erstellt, welches in der Fusszeile die Seitenzahlen anzeigen soll. x von y. Nun wird x, also die fortlaufende Seitenzahl beim abgemischten Dokument korrekt nachgeführt. Y zeigt aber immer gesamte Seitenzahl des Templates an. Also wenn das Template insgesamt 2 Seiten hat, dann bleiben dieses 2 Seiten, auch wenn ich nach dem Bearbeiten 5 Seiten habe.
Hallo zusammen,
unter Excel VBA-Forum - Das Forum zu Microsoft Excel VBA habe ich schon mal gefragt. Aber da komme ich nicht weiter. Deswegen versuche ich es hier mal, zumal ich hier auch meine Excelmappe hochladen kann.
Ich habe unter Excel 2021 eine Mappe mit Makros angelegt. Dort ein Formular mit mehreren TextBoxen/Labels, 2 ComboBoxen und einem Button zum Speichern.
Geht um eine kleine Kunden-/Adreßverwaltung. Ich würde Euch gerne mal meine Mappe zeigen. Kann ich hier keine Anlagen beifügen?
Ich frage die wichtigsten TextBoxen auf Inhalt ab. Ist kein Eintrag, kommt eine Fehlermeldung.
Gebe ich die Daten ein und klicke auf Speichern, werden die Daten in einer Tabelle reinkopiert. Danach werden die TextBoxen gelöscht, um dann weitere Daten einfügen zu können.
Ich hatte schon was in Facebook-Gruppe (Excel VBA Programmierung | Facebook) geschrieben. Aber mir konnte da scheinbar niemand mehr helfen, es kam zumindest nix mehr.
Ich hatte die Mappe in FB hochgeladen. Jetzt schreibt mir einer, das UserForm sollte sich automatisch öffnen (das bekomme ich noch hin), die Quelltexte könnten optimiert werden und eine Funktion zum Suchen/Ändern von Einträgen. Ich weiß nicht wo ich da was optimieren könnte. Und Daten suchen/ändern, wie mache ich das? Muß ich ein neues zusätzliches Formular für die Suche/Änderung anlegen und dann ne Abfrage machen? Da ich gerade erst ein Fernstudium VBA-Programmierung mache, habe ich noch nicht viele Kenntnisse.
Hinweis auf Angebot
Excel-Inside - lang Keine
Lösung gefunden? Du kannst Dich gerne an
unser erfahrenes Experten-Team
wenden um dein Anliegen zu besprechen. Gerne
erstellen wir auf dieser Basis ein Angebot. Sende deine Anfrage
einfach per
E-Mail an anfrage@excel-inside.de
Keine
Lösung gefunden? Du kannst Dich gerne an
unser erfahrenes Experten-Team
wenden um dein Anliegen zu besprechen.