 Menü
 An- und Abmelden
 Partner / Links
|
Diese Sektion erlaubt es dir alle Beiträge dieses Mitglieds zu sehen. Beachte, dass du nur solche Beiträge sehen kannst, zu denen du auch Zugriffsrechte hast.
Nachrichten - Rolf Grob
Seiten: [1]
1
« am: Januar 02, 2016, 00:08:00 Vormittag »
Hallo Günther,
Herzlichen Dank für deine Antwort,
aber wenn ich _LostFocus() eingebe bekomme ich leider gar kein Ergebnis mehr.
Die Eingabe wird nicht eingetragen oder gespeichert.
Trotzdem vielen Dank für deine Antwort.
Gruss Rolf
2
« am: Januar 01, 2016, 17:46:57 Nachmittag »
Hallo Zusammen, Zu erst einmal ein gutes neues Jahr  Ich habe im Internet einen VBA Code zum Addieren von Zahlen in einer Zelle über eine TextBox gefunden. Mein Problem war, dass ich über eine TextBox1 mehrere Zahlen in einer Zelle A1 addieren möchte. Folgender Code habe ich gefunden: Private Sub TextBox01_Change()
Worksheets("04Dez15").Range("A1").Value = CDbl(TextBox01.Value) + Range("A1").Value
End SubDer Code Funktioniert, aber nur teilweise. Wenn ich Zahlen wie 5, 14, 26 usw. eingebe habe ich kein Problem. ABER bei Zahlen wie z.B. 10, 20 30 usw. schreibt mir Excel 11, 22, 33 usw. in die Zelle. Was mache ich falsch  , Kann mir jemand helfen  Besten Dank im voraus, Rolf
3
« am: Januar 24, 2014, 14:05:41 Nachmittag »
Hallo Officer, Herzlichen Dank für deine Antwort. Auf die Gefahr hin, dass ich deine Nerven überstrapaziere noch eine Frage. Da sich der Name der Zelle "B5" erst ergibt wenn ich die zugehörigen Daten über die UF in die Zelle eintrage, währe es nötig, dass ich diesen per Textfeld in der UserForm definieren könnte. Ein Beispiel: Ein Sachbearbeiter trägt über eine UF per Textfeld den Text "Gartenarbeit am 10.02. erledigt, Preis Fr. 250.00" in die Zelle "B5" ein. Später kann dann ein anderer User über die UF INFO diese Information als Text über eine ComboBox unter dem Begriff "Garten" auswählen und anzeigen lassen. Dafür benötige ich die Möglichkeit, dass der erste Sachbearbeiter zusammen mit der eingabe des Info- Textes auch den Namen der Zelle vergeben kann. Deine "Vergabemöglichkeit" setzt jedoch voraus, dass in diese Zelle ein genau definierter Eintrag gesetzt wird, dieser kann jedoch variieren. Sehr kompliziert geschrieben, jedoch ein simpler Ablauf, wenn es dann geht  Gruss Rolli
4
« am: Januar 24, 2014, 01:24:35 Vormittag »
Hallo Officer
Herzlichen Dank für deine Antwort, aber den Weg über den Namen Manager kenne ich auch.
Für diesen müsste ich über das Tabellenblatt arbeiten, und eben gerade dies möchte ich nicht.
Ich suche nach einem Weg mit dem ich beispielsweise den Eintrag in Zelle "B5" (Garten) AUTOMATISCH als Namen von Zelle "C5" übernemen kann.
Da es meines bescheidenen Wissens nach keine Lösung über eine Formel, oder dergleichen gibt, möchte ich das ganze über ein Textfeld in der UF erledigen.
Sofern dies überhaupt möglich ist.
Der Sinn dahinter ist einfach dass ich nicht über das Tabellenblatt mit dem Namens Manager arbeiten muss.
Gruss Rolli
5
« am: Januar 23, 2014, 20:52:56 Nachmittag »
Hallo Zusammen, Ich bin daran eine Datenbank mit UF zu erstellen, und habe dabei ein grosses Problem, Ich möchte in einer UserForm mittels eines Textfeldes den Zellennamen zum Beispiel an Stelle von "B1" in "Ueberstunden", oder an Stelle von "C4" in "Lohn" usw. umschreiben. Ist das möglich, und wenn ja wie ? Für Hilfe währe ich sehr dankbar, ich komme da nämlich von selber nicht weiter. Besten Dank, Rolli rolf_grob@bluewin.ch
6
« am: Dezember 28, 2013, 01:03:56 Vormittag »
Hallo Meinweb, Rene, Mumpel, Herzlichen Dank für eure Hilfe. 1. Habe ich wieder einiges über VBA Codes gelehrnt  2. Hat nun alles super geklappt. und 3. sind nun meine Feiertage gerettet Ich wünsche euch und allen anderen einen guten Start ins neue Jahr. Gruss Rolf
7
« am: Dezember 27, 2013, 21:55:55 Nachmittag »
Hallo Rene,
Ich möchte die Arbeitsmappe zusammen mit der UserForm schliessen, dass ist Absicht.
Jedoch weiss ich nicht wo der Unterschied zwischen dem normalen schliessen der Arbeitsmappe und dem schliessen duch den Befehl in der UserForm liegt.
Weshalb funktioniert der Export beim einen Schliessen, und beim anderen nicht ?
Rolf
8
« am: Dezember 27, 2013, 19:39:07 Nachmittag »
Hallo Mainweb, Zuerst einmal Danke für deine letzte Hilfe sie hat funktioniert. Leider Exportiert mir mein VBA die Datei nicht wenn ich deinen Code verwende, ABER.... Ich habe herausgefunden dass der Code den ich zuerst hatte eigentlich funktioniert, leider jedoch nicht auf meine Art. Wenn ich den Code, Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim Diag As Chart Set Diag = Tabelle2.ChartObjects(1).Chart Diag.Export Filename:=ThisWorkbook.Path & "\" & "Diagramme\Balkendiagramm01.jpg", FilterName:="JPG" End Sub verwende, und die Arbeitsmappe NORMAL schliesse, funktioniert es. Wenn ich die Arbeitsmappe aber über einen CommandButton in der Userform schliesse GEHT ES NICHT !!!!!!! Weshalb das Der Code zum Schliessen ist in der UserForm lautet: Private Sub CommandButton1_Click() ActiveWorkbook.Save Application.Quit End Sub Danke für weitere Hilfe Rolf
9
« am: Dezember 27, 2013, 16:49:22 Nachmittag »
Hallo Zusammen, Ich bin seit längerem an dem Problem dynamischer Dateipfade, nun habe ich eine Lösung erhalten für das laden von Bildern. Leider verstehe ich nicht allzuviel von VBA Codes  Workbook.Open (ThisWorkbook.Path & "\" & "Buchhaltung RG.xlsm") CommandButton1.Picture = LoadPicture(ThisWorkbook.Path & "\" & "Schaltflächen\AbbrechenV.jpg") ,dies hat auch funktioniert. Nun meine Frage:  Ich möchte gerne aus der Arbeitsmappe Diagramme als jpg Exportieren, und habe es mit der selben Lösung ausprobiert, aber ich erhalte immer Fehlermeldungen, weshalb? Und, kann mir da jemand Weiterhelfen. Ich habe es so gemacht: ____________________________________________________________ Sub Schliessen() Workbook.Close (ThisWorkbook.Path & "\" & "Buchhaltung RG.xlsm") End Sub __________________________________________________________ Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim Diag As Chart Set Diag = Tabelle2.ChartObjects(1).Chart Diag.Export Filename:="(ThisWorkbook.Path & "\" & "Diagramme\Balkendiagramm01.jpg")", FilterName:="JPG" End Sub _________________________________________________________________________________________________ Egal mit oder ohne Klammer beim Pfad, es gibt immer Fehlermeldungen die ich nicht verstehe.  Beim Importieren von den Diagrammen funktioniert es doch ! Es währe sehr nett wenn mir jemand helfen könnte Lg Rolli rolf_grob@bluewin.ch
10
« am: Dezember 27, 2013, 16:29:20 Nachmittag »
Herzlichen Dank hat geklappt
lg Rolli
11
« am: Dezember 14, 2013, 18:11:16 Nachmittag »
Hallo Mainweb, Danke für deine Hilfe, ich verstehe allerdings zu wenig von der Materie um deinen Beitrag zu verstehen. Eigentlich wollte ich wissen, ob es einen VBA Code gibt, womit man Excel angeben kann, dass die Daten in einem Unterverzeichnis gespeichert sind ohne einen Laufwerksbuchstaben anzugeben. z.B. wenn die Excel- Arbeitsmappe in einem Ordner (ExcelData)ist, sollte der VBA Code festlegen, dass die Daten in dem Ordner (ExcelData\Diagramme\...) sind. Ist das überhaupt möglich ? Und wenn ja wie. Rolli
12
« am: Dezember 13, 2013, 18:15:17 Nachmittag »
Hallo Zusammen, Ich arbeite mit Excel 2007, und bin nicht gerade Spezialist in VBA Codes. Ich habe einen Ordner z.B. "ExcelData" in dem ich eine Exceldatei und mehrere Unterordner mit Daten auf einem USB Laufwerk. Wenn ich dieses Laufwerk nun an verschiedenen Rechnern verwenden möchte, ändert sich ja der Laufwerksbuchstabe. Meine Frage nun: Wie kann ich in einem VBA Code einen Dateipfad schreiben, ohne dass ich einen Laufwerkbuchstaben angeben muss ? z.B. an Stelle von: H:\ExcelData\Diagramme\Balkendiagramm.jpg ohne LW Buchstabe, ?? \ExcelData\Diagramme\Balkendiagramm.jpg Ich habe es schon mit \\ExcelData\usw., mit ..\ExcelData\usw. und ..\\ExcelData\usw. versucht, aber nicht's hat funktioniert. Es währe sehr nett, wenn mir da jemand Hilfe geben könnte. Danke im voraus, Rolli
13
« am: November 22, 2013, 14:12:33 Nachmittag »
Hallo Zusammen, Ich habe den unten Aufgeführten Code im Internet gefunden. Ich möchte einen Bildwechsel bei überfahren mit der Maus bewirken. Mein Problem: Ich begreife nicht wo und wie ich die Position und die Grösse meines Bildes eingeben muss. Bis jetzt reagiert der Effekt rund um das Bild, anstatt auf dem Bild. (Bin in VBA ein Anfänger) Könnte mir da bitte jemand helfen. Langsam bin ich am Verzweifeln !!! Dim varImageLoaded As Boolean
Private Sub UserForm_MouseMove(ByVal Button As Integer, _
ByVal Shift As Integer, _
ByVal X As Single, _
ByVal Y As Single)
If X > Me.Image1.Left And _
X < Me.Image1.Left + Me.Image1.Width And _
Y > Me.Image1.Top And _
Y < Me.Image1.Top + Me.Image1.Height Then
Me.Image1.Visible = True
Else
Me.Image1.Visible = False
End If
End Sub Ich danke für eure Hilfe Gruss Rolli
14
« am: November 15, 2013, 06:20:30 Vormittag »
Hallo Zusammen, Ich bin ziemlicher Excel Neuling . Ich habe einen Code für MouseMove von Bildern in einer UserForm gefunden, und komme da nicht weiter.  Meine Frage ist nun, Wie muss ich die Positionen und Grössen von z.b. drei Bildern in diesen Code schreiben. Ich habe Image2, Image3 und Image4 in der gleichen UF, bei dem Eintrag "für dieses Bild statisch" habe ich leider gar keine Ahnung mehr, ich habe keine Positionsangaben gefunden. Es währe super wenn ich da etwas Hilfe bekommen könnte. Der Code den ich gefunden habe, ist: Private Sub UserForm_MouseMove(ByVal Button As Integer, _ ByVal Shift As Integer, _ ByVal X As Single, _ ByVal Y As Single) 'für dieses Bild statisch:'If X > 59 And X < 346 And Y > 60 And Y < 139 Then'für jede Bildgröße:If X > Me.Image2.Left And _ X < Me.Image2.Left + Me.Image1.Width And _ Y > Me.Image2.Top And _ Y < Me.Image2.Top + Me.Image1.Height Then Me.Image2.Visible = True Else Me.Image2.Visible = False End If 'Me.Caption = "left: " & X & " - - - top: " & YEnd Sub Keine Ahnung wie ich das ganze machen Soll. Vielen dank für eure Hilfe. Gruss Rolli
15
« am: November 08, 2013, 21:56:48 Nachmittag »
Hallo Mainweb, Noch einmal herzlichen Dank für Deine Hilfe, es funktioniert Supper Mfg Rolli
16
« am: November 08, 2013, 19:43:59 Nachmittag »
Hallo Maninweb,
Herzlichen Dank für Deine Lösung, ich werde diese möglichst schnell Ausprobieren.
Gruss Rolf
17
« am: November 06, 2013, 17:33:56 Nachmittag »
Hallo Zusammen, Ich bin Excel Neuling und habe auch nicht viel Ahnung in VBA. Ich möchte in einem Arbeitsblatt einen CommandButton mit einem Bild versehen und bei MousMove ein anderes Bild anzeigen. Ich habe vieles versucht, aber nichts geht, kann mir, jemand auf Verständliche Art und Weise Erklären wie das geht. Ev. mit Modul oder so, keine Ahnung Würde mich freuen Vielen Dank, Rolf rolf_grob@bluewin.ch
Seiten: [1]
|
Beiträge anzeigen