Frage von tim159753

08.06.2014, 00:31 , 41

Ich möchte in Excel eine Userform mit bestimmten Captions von labeln starten ->Es funktioniert nicht

Ich habe schon folgendes Skript geschieben, dennoch wird die Variable leider nicht richtig aktzeptiert. Ich finde meinen Fehler leider nicht, kann mir jemand helfen ?

Private Sub CommandButton3_Click()
UserForm1.Hide
Dim Eintragung_erfolgt As Boolean
Dim Zeile As Integer

Eintragung_erfolgt = False
Zeile = 2
Do While Eintragung_erfolgt = False

 If Tabelle1.Cells(Zeile, 1) = "" Then 
        
        UserForm4.Label9.Caption = "a"
        UserForm4.Label10.Caption = Tabelle1.Cells(9, 2)
        UserForm4.Label11.Caption = Tabelle1.Cells(Zeile, 3)
        UserForm4.Label12.Caption = Tabelle1.Cells(Zeile, 4).Value
        UserForm4.Label13.Caption = Tabelle1.Cells(Zeile, 5).Value
        UserForm4.Label14.Caption = Tabelle1.Cells(Zeile, 6).Value
        UserForm4.Label15.Caption = Tabelle1.Cells(Zeile, 7).Value
        UserForm4.Label8.Caption = Zeile
        
Zeile = Zeile - 1
        
    Zeile = Zeile - 1
    Eintragung_erfolgt = True
        
        
    Else
    Zeile = Zeile + 1
    End If

Loop
       
UserForm4.Show
End Sub

Die folgenden Captions werden nicht übernommen :

UserForm4.Label11.Caption = Tabelle1.Cells(Zeile, 3)
UserForm4.Label12.Caption = Tabelle1.Cells(Zeile, 4).Value
UserForm4.Label13.Caption = Tabelle1.Cells(Zeile, 5).Value
UserForm4.Label14.Caption = Tabelle1.Cells(Zeile, 6).Value
UserForm4.Label15.Caption = Tabelle1.Cells(Zeile, 7).Value

...komplette Frage anzeigen

4 Antworten

Antwort von

Antwort von Oubyi

Community-Experte für Excel 08.06.2014, 13:51 , 25

Gehe Deinen Code in der IDE doch mal Step by Step mit F8 durch.
Dann müsstest Du doch auf Anhieb sehen, warum die Label nicht befüllt werden.
Oder WAS siehst Du sonst?

0 Kommentare 0

Antwort von PauleVBA

08.06.2014, 07:43 , 41

Ich habe Deinen Code mal auf einem einzigen Userform ausprobiert, ohne das Hide und Show.

Bei mir funzt es. es trägt immer die Werte der zweiten Zeile ein (weil Zeile =2 sich nicht ändert)

Liegt es bie Dir vllt. daran, dass Du das ausführende Userform erst Hide stellst und dann den Code ausführen lässt?

Auch ist mir nicht klar geworden was das Do While und das If Then Else jeweils abfangen oder erlauben sollen.

........

Tipp:

Gewöhn Dir an, die Elemente Deines Codes umzubenennen, damit man besser lesen kann , was da abläuft:

CommandButton3 sagt gar nix. cmd-Labels-Eintragen schon

Label10 ist ebenfalls nixsagend. lbl-Spaltenueberschrift1 oder lbl-zu-txt-Eingabe-Name (hier gehört das lbl zu einem Textfeld "txt-Eingabe-Name")

Achtung: die Bindestriche sind bei mir Unterstriche. Diese werden hier im Editor nicht dargestellt. Bindestriche nicht verwenden, werden im Zweifel als Minus interpretiert!

1 Kommentar 1

maximilianus7

08.06.2014, 13:34

die unterstriche _ mit \ escapen. Also: \_ (das letzte mit \\_ dargestellt)

Max.

Iamiam

08.06.2014, 16:19

@maximilianus7

@Max: wieder was gelernt! ich hab den _ immer mit je 2 Gravis eingerahmt (ebenso wie den *), aber mit dem Backslash \ Schwierigkeiten gehabt! ich teste hier nochmal das Einrahmen mit je 2 Gravis: \ , vllt hab ich ja früher Fehler gemacht: Scheint -zumindest in der Textvorschau- beides zu funktionieren! Und die Kombination von # mit ** hier beherrsche ich auch

noch nicht! (oder jetzt doch? vllt, die Vorschau zeigt was anderes): #``Text``

Antwort von MoeS1973

10.06.2014, 16:29 , 29

Versuch mal am Ende Deines Codes ein UserForm4.Repaint

0 Kommentare 0

Antwort von Thandu

08.06.2014, 00:39 , 25

UserForm4.Label11.Caption = Tabelle1.Cells(Zeile, 3) fehlt dahinter nicht ein .Value?

1 Kommentar 1

Oubyi

08.06.2014, 13:53

Das stimmt zwar, aber das .Value ist nicht unbedingt nötig - wenn auch sauberer programmiert - um den Wert der Zelle auszugeben.
Das sollte also hier nicht das Problem sein.

Ähnliche Fragen

Frage von Machleid

12.05.2015, 13:52

Frage zu Excel/ Hilfe!

Ich habe eine Tabella für die Arbeit erstellen müssen, in der die Sucheingabe in der Tabelle selbst ist. Habe dafür 4 Mdule erstellt. 3 Buttons für normale Suche, wo das Ergebnis umrandet wird. Und ein Modul wo alle Treffer angezeigt werden und der rest ausgeblendet wird. Ich würde gerne nochmal so ein Modul, wo Nicht-Treffer ausgeblendet werden. Damit ich nach 2 Kriterien suchen kann. Außerdem wird nicht nach einem Wert genau gesucht, sondern nach der Zeile wo sich der Wert befindet.

Button Modul: Option Explicit Sub Test() Dim rngFound As Range Dim lngRow As Long On Error GoTo Fin Application.ScreenUpdating = False With Tabelle1 lngRow = .Cells(.Rows.Count, 1).End(xlUp).Row If Trim(.TextBox1.Text) = "" Then .Rows("5:" & lngRow).Hidden = False Else .Rows("5:" & lngRow).Hidden = False For lngRow = 5 To lngRow Set rngFound = .Range(.Cells(lngRow, 1), _ .Cells(lngRow, 9)).Find(What:=.TextBox1.Text, _ LookIn:=xlValues, _ lookat:=xlPart, _ MatchCase:=False) If rngFound Is Nothing Then .Rows(lngRow).Hidden = True End If Next lngRow

Eingabe-Modul:

Option Compare Text 'Anweisung Groß-/Kleinschreibung egal Sub SuchenIn2Spalten() Dim Sp1, Sp2, lZeile2, Such, Frage Sp1 = 7 '7.Suchspalte Sp2 = 7 '7.Suchspalte 'Ermittlung der absoluten letzten Zeile lZeile2 = Cells(Rows.Count, 1).SpecialCells(xlLastCell).Row Such = InputBox("Bitte geben Sie den Suchbegriff ein", "Suche") If Such = "" Then Exit Sub If IsNumeric(Such) Then Such = Such * 1 For i = lZeile2 To 1 Step -1 'Vorwärts: For i = 1 to lZeile2 If Cells(i, Sp1) = Such Then Cells(i, Sp1).Select Frage = MsgBox("Ist dies der gesuchte Eintrag?", vbYesNo) If Frage = vbYes Then Exit Sub End If If Cells(i, Sp2) = Such Then Cells(i, Sp2).Select Frage = MsgBox("Ist dies der gesuchte Eintrag?", vbYesNo) If Frage = vbYes Then Exit Sub End If Next i MsgBox "Der gesuchte Eintrag wurde nicht gefunden" End Sub

objekt:

Option Explicit Private Sub TextBox1_Change() If Trim(TextBox1.Text) = "" Then With Tabelle1 .Rows("5:" & .Rows.Count).Hidden = False End With End If End Sub Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, _ ByVal Shift As Integer) If KeyCode = vbKeyReturn Then Call Test End Sub

Private Sub TextBox2_Change()

End Sub

3 Antworten

Frage von swfan6

16.06.2014, 15:21

Per Excel VBA eine Zeile mit einer Spalte vergleichen :) Hilfe :O

Ich versuche gerade ein Programm zu schreiben das eine Zeile mit einer Spalte vergleicht. Nun ic bin gerade noch am Anfang des Programmes und nicht sehr erfolgreich. Das Prizip ist es die Zeile (in Tabelle2) mit der Spalte(bzw. erstmal mit der Zelle(in Tabelle1)zu vergleichen). Die Zeile in Tabelle1 wird so gebildet das A und i zsm eine zeile angeben und i als Variable für die Forschleife dient. Das heißt das Programm geht Zeile für Zeile durch und sucht nach einer Zahlenübereinstimmung. Falls was gefunden wurde soll er erstmal per MsgBox ein Simples Test ausgeben damit ich weiß das es Funktioniert. Ich muss zugeben das ich VBA erst vor 3 Tagen angefangen habe zu Lernen. Dehalb seid nicht so Streng mit Fehlern zu mir :D ich hoffe ihr konnte mich helfen mfg Dennis :)

Sub CommandButton1_Click()

Dim i1 As Integer

i = 1

For i = 1 To 100

If Tabelle1.Cells(1 & i) = Tabelle2.Cells(1, 1) Then

MsgBox "Test"

End If

Next i

End Sub

5 Antworten

Frage von Lamio13

25.02.2017, 18:15

Excel: Schiebepuzzle programmieren - Laufzeitfehler 424?

Liebe Community, ich habe versucht eine Schiebepuzzle aus Zahlen in Excel zu programmieren. Den Text seht ihr unten. Jedoch sobald ich auf Ausführen (Wiedergabe-Button) drücke, kommt folgender Fehler:

Laufzeitfehler '424':
Objekt erforderlich

Könnt ihr mir bitte helfen den Fehler zu finden?

Vielen Dank im Vorraus
Lamio13

Dim xpos As Integer   
Dim ypos As Integer  
Dim AlleKnoepfe(1 To 15) As CommandButton

Private Sub UserForm_Initialize()
Set AlleKnoepfe(1) = CommandButton1
Set AlleKnoepfe(2) = CommandButton2
...  
Set AlleKnoepfe(14) = CommandButton14
Set AlleKnoepfe(15) = CommandButton15
End Sub

Sub FindMich(ich As String)
    Dim ii As Integer
    Dim jj As Integer

    For jj = 1 To 4
                 For ii = 1 To 4
                      If (Cells(jj, ii) = ich) Then
                         xpos = ii
                          ypos = jj
                          ii = 5
                          jj = 5
                      End If
                 Next ii
    Next jj
End Sub
Private Sub KannMichBewegen()

    'untersuche, ob rechts frei ist
    If (Cells(ypos, xpos + 1) = "") Then
        Cells(ypos, xpos + 1) = Cells(ypos, xpos)
        Cells(ypos, xpos + 1) = ""
    End If

End Sub

Sub VerschiebMich(SchubladenNummer As Integer)
    'untersuche, ob rechts frei ist
    If (xpos < 4) Then
            If (Cells(ypos, xpos + 1) = "") Then
                Cells(ypos, xpos + 1) = Cells(ypos, xpos)
                Cells(ypos, xpos) = ""
                AlleKnoepfe(SchubladenNummer).Left = AlleKnoepfe(SchubladenNummer).Left + AlleKnoepfe(SchubladenNummer).Width
            End If
    End If

    'untersuche, ob unten frei ist
    If (ypos < 4) Then
            If (Cells(ypos + 1, xpos) = "") Then
                Cells(ypos + 1, xpos) = Cells(ypos, xpos)
                Cells(ypos, xpos) = ""
                AlleKnoepfe(SchubladenNummer).Top = AlleKnoepfe(SchubladenNumemr).Top + AlleKnoepfe(SchubladenNummer).Height
            End If
    End If

    'untersuche, ob links frei ist
    If (xpos > 1) Then
            If (Cells(ypos, xpos - 1) = "") Then
                Cells(ypos, xpos - 1) = Cells(ypos, xpos)
                Cells(ypos, xpos) = ""
                AlleKnoepfe(SchubladenNummer).Left = AlleKnoepfe(SchubladenNummer).Left + AlleKnoepfe(SchubladenNummer).Width
            End If
    End If

    'untersuche, ob oben frei ist
    If (ypos > 1) Then
            If (Cells(ypos - 1, xpos) = "") Then
                Cells(ypos - 1, xpos) = Cells(ypos, xpos)
                Cells(ypos, xpos) = ""
                AlleKnoepfe(SchubladenNummer).Top = AlleKnoepfe(SchubladenNumemr).Top + AlleKnoepfe(SchubladenNummer).Height
            End If
    End If

End Sub

Private Sub CommandButton1_Click()
    FindMich (CommandButton1.Caption)
    VerschiebMich (1)
    End Sub
...

2 Antworten

Frage von Judoboy

09.12.2014, 14:59

Excel VBA: Sverweis Formel - Makro einfügen!

Hi zusammen. Habe mir heute mein erstes Userform gebastelt (Google sei Dank...). Mein UF macht simpel nichts anderes, als Einträge aus der EIngabemaske in eine Tabelle zu füllen.

Dim emptyRow As Long

'Ermitteln der ersten leeren Zeile
emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1

'Wohin werden die eingegebenen Datein eingefüllt?
Cells(emptyRow, 1).Value = ComboBox1.Value
Cells(emptyRow, 5).Value = TextBox1.Value
Cells(emptyRow, 2).Value = TextBox2.Value
Cells(emptyRow, 3).Value = TextBox3.Value
Cells(emptyRow, 7).Value = TextBox4.Value

If OptionButton1.Value = True Then
    Cells(emptyRow, 6).Value = "1. Halbjahr"
End If

If OptionButton2.Value = True Then
    Cells(emptyRow, 6).Value = "2. Halbjahr"
End If


Me.Label7 = "Speichern erfolgreich!"

End Sub

Ich muss auch sagen, es funktioniert prächtig. Die Einträge werden alle korrekt erstellt etc. Nur habe ich in Spalte "H" meiner Tabelle, wo die Daten eingefügt werden, eine Spalte für SVerweis. Diese Formel soll jedesmal, wenn ein neuer Eintrag gespeichert wird, angefügt werden. Wenn ich von anfang an alle Formeln runterziehe bis ans Ende der Tabelle braucht Excel 2Minuten zum das Dokument zu öffnen... Formel lautet: =SVERWEIS($A2;'Tabelle1'!$A$1:$C$31;2;FALSCH) Wobei der Bezug A2 natürlich mit jeder Zeile anders ist (A2, A3, A4 etc.) Wenn ich die Formel "aufzeichne", erscheint folgendes, womit ich absolut nix anfangen kann.

Sub SVerweis_HC()
'
' SVerweis_HC Makro
'

'
    ActiveCell.FormulaR1C1 = _
        "=VLOOKUP(RC1,'Tabelle1'!R[-1317]C[-7]:R[-1289]C[-6],2,FALSE)"
    Range("H1319").Select
End Sub

Kann hier wer helfen?

5 Antworten

Frage von ernkie

20.10.2017, 17:22

Excel - Speicher-datum in Kopfzeile?

möchte immer das letzte Speicherdatum in der Kopfzeile. Habe bereits mehrere Lösungen gegoogelt, aber funktionieren tun sie nicht. Wo mache ich den Fehler?

Habe folgenden Befehl eingegeben

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim booIsSaved As Boolean
Dim strDatInfo As String
With ThisWorkbook
booIsSaved = .Saved
If .Path <> "" Then
strDatInfo = .BuiltinDocumentProperties("Last save time")
Else
strDatInfo = "noch nicht gespeichert"
End If
ActiveSheet.PageSetup.LeftHeader = "Zuletzt gespeichert: " & strDatInfo
.Saved = booIsSaved
End With
End Sub

Und hier noch einen printscreen. Besten Dank

3 Antworten

Frage von vismxownz

12.03.2015, 22:48

Excel Verschiedene CSV Dateien untereinander kopieren

Hallo zusammen,

ich muss eine unbestimmte Anzahl an .csv Dateien in ein Tabellenblatt kopieren (also deren Inhalt)

Dabei soll folgendes passieren

-Die erste Zeile ignorieren -Datei einfügen -nächste .csv (wieder erste Zeile ignorieren etc.)

habe dazu diesen VBA Code gefunden, der funktioniert allerdings nicht bei CSV dateien nur bei xls (ja ich habe das xls ersetzt, allerdings wird die Datei nicht Semikolon getrennt

Vielen Dank im Voraus

(Sub muss mitkopiert werden!)

Sub zusammenfuegen()

Dim strDateiname As String
Dim loLetzte1 As Long
Dim loLetzte2 As Long
Dim inLetzte As Integer
Application.ScreenUpdating = False
strDateiname = Dir(ThisWorkbook.Path & "\*.xls")
With ThisWorkbook.Worksheets("Tabelle1")
    Do While strDateiname <> ""
        If strDateiname <> ThisWorkbook.Name Then
            Workbooks.Open Filename:=ThisWorkbook.Path & "\" & strDateiname
            loLetzte1 = .UsedRange.SpecialCells(xlCellTypeLastCell).Row
            loLetzte2 = ActiveWorkbook.ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
            inLetzte = ActiveWorkbook.ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column
            ActiveWorkbook.ActiveSheet.Range(Cells(3, 1), Cells(loLetzte2, inLetzte)).Copy Destination:=.Cells(loLetzte1 + 1, 1)
            ActiveWorkbook.Close True
        End If
        strDateiname = Dir
    Loop
End With
Application.ScreenUpdating = True

End Sub

1 Antwort

Frage von Biggy2016

22.06.2016, 12:12

WIe kann ich Zahlen in der Combobox (Excel VBA) formatieren (Tausendertrennpunkt und Kommastelle)?

Hallo an alle VBA-Experten ;-)

Ich habe da ein Problem für der Darstellung der Zahlen in der ComboBox.

Die Zahl in Me.lst_Vertrieb.Column(1, intz) = .Cells(lngZeile, 4).Value soll mit einem Tausendertrennpunkt ausgegeben werden.

Me.lst_Vertrieb.Column(2, intz) = .Cells(lngZeile, 6).Value und Me.lst_Vertrieb.Column(3, intz) = .Cells(lngZeile, 9).Value mit einer Kommastelle.

Wo und wie muss ich die Formatierung einbauen????

Im Voraus vielen Dank für Eure Hilfe!!!

Private Sub Cmb_Vertrieb_Change() Dim lngZeile As Long Dim lngZeileMax As Long Dim intz As Integer

Me.lst_Vertrieb.Clear

With tbl_Basis lngZeileMax = .Cells(.Rows.Count, 1).End(xlUp).Row

     For lngZeile = 2 To lngZeileMax
   If .Cells(lngZeile, 2).Value = Me.Cmb_Vertrieb.Value Then
    Me.lst_Vertrieb.AddItem .Cells(lngZeile, 1).Value
    Me.lst_Vertrieb.Column(1, intz) = .Cells(lngZeile, 4).Value
    Me.lst_Vertrieb.Column(2, intz) = .Cells(lngZeile, 6).Value
    Me.lst_Vertrieb.Column(3, intz) = .Cells(lngZeile, 9).Value
    intz = intz + 1
   End If
Next lngZeile

End With

End Sub

1 Antwort

Frage von MissNobody0508

07.05.2014, 16:04

VBA: Zwei Spalten mit Wert multiplizieren und dann addieren mit Hilfe von Makros

Hallöchen,

ich habe folgendes Problem Ich habe zwei Spalten die ich jeweils miteinander addieren möchte. Doch bevor ich diese addiere, möchte ich Spalte B mit dem Wert aus der TextBox1 multiplizieren und Spalte C mit dem Wert aus Textbox2. Danach sollen beide Spalten miteinander addiert und dann sortiert werden. Spalte D ist in diesem Fall die Ergebnisspalte. Das Programm hat auch schon funktioniert, jedoch habe ich vorher nur die spalten addiert und sortiert.

HIer mein bereits geschriebener Code:

Private Sub CommandButton1_Click()



' Prüfen ob Lastspitzen eingetragen wurden, ansonsten Fehlermeldung

        If TextBox1.Value = "" Or TextBox2.Value = "" Then
        MsgBox "Bitte geben Sie eine Lastspitze ein!"
     
Else
        
Dim wks As Excel.Worksheet
Dim lngLetzteZeile As Long
Dim Last1 As Integer
Dim Last2 As Integer
Last1 = TextBox1.Value
Last2 = TextBox2.Value  

Set wks = ActiveWorkbook.Worksheets("Vergleich")


With wks
 
lngLetzteZeile = .Cells(.Rows.Count, "B").End(xlUp).Row
If lngLetzteZeile < 15 Then Exit Sub

 With .Range("D15:D" & lngLetzteZeile)
 'berechne: D := B + C
 .FormulaR1C1 = "=RC[-2]*Last1+RC[-1]*Last2"
 'Formeln durch deren Ergebnis ersetzen
 .Value = .Value
 End With
 
With .Range("B15:D" & lngLetzteZeile)
 .Sort Key1:=.Cells(2), Order1:=xlDescending, _
 DataOption1:=xlSortTextAsNumbers, _
 SortMethod:=xlPinYin
End With

End With
End If


End Sub

3 Antworten

Frage von Amy8819

11.02.2018, 21:30

Userform Anfänger brauch Hilfe ?

Hallo zusammen,

Ich bekomme es nicht hin das diese formel funtioniert

Er soll nach ein Datum suchen und dann die Daten aus B C D E.....W mit Label12 vergleichen und wenn der Wert identisch denn soll der Hintergrund sich Rot färben

funktioniert so weit aber nur für B und C jetzt wenn Ich das jetzt bis W soweiter machen würde funktionert garnichts mehr

Private Sub Prüfen_Click()
Dim Eingabe As Date
Dim Nummer As Range
If TextBox2.Text = "" Then
MsgBox "Bitte eine Datum eingeben!"
Else
Eingabe = TextBox2.Text
Set Nummer = Worksheets("S Zahlen").Columns("A:A").Cells.Find(Eingabe, _    LookIn:=xlValues, LookAt:=xlWhole)       
If Not Nummer Is Nothing Then
If Label12.Caption = Nummer.Offset(0, 1).Value Or Label12.Caption = Nummer.Offset(0, 2).Value Then Label12.BackColor = vbRed        
Else 
End If   
End If
End Sub

2 Antworten

Frage von P0wd3r

26.08.2012, 19:26

VBA Code Erklärung

Guten Abend zusammen. Könnte mir jemand weiterhelfen bei diesem Code. Was macht er genau in Excel? Also Die einzelnen Schritte die er durchläuft,.

Option Explicit

Public Sub Double_Red()
Dim lngZeile As Long
Dim lngZeilenSprung As Long
Dim strSuchwert As String

lngZeile = Cells(Rows.Count, 4).End(xlUp).Row

  For lngZeilenSprung = lngZeile To 1 Step -1
    strSuchwert = Cells(lngZeilenSprung, 4).Value
      If Application.WorksheetFunction.CountIf(Range(Cells(1, 4), Cells(lngZeile, 4)), strSuchwert) <> 1 Then
        Cells(lngZeilenSprung, 4).Interior.ColorIndex = 3
      End If
  Next lngZeilenSprung

End Sub

2 Antworten

Frage von Gerri87

05.09.2013, 14:02

Verknüpfung con Checkboxen

Hallo. Ich habe eine Frage zur Verknüpfung einer Chechbox. Ich habe eine Tabelle erstellst. Hinter jeder Zeile ist eine Checkbox. Diese kann ich Auswählen und über einen Button Löschen. Die Checkbox soll deaktiviert sein, wenn die Zelle B24 leer ist. Das klappt auch. Schreibe ich jedoch etwas neues in die Zelle rein, so wird die Checkbox nicht wieder aktiv. Könnt ihr mir dabei helfen?

Mein Text in VBA:

Private Sub CBox1_Click()

If Cells(24, 2).Value = "" Then

CBox1.Enabled = False

End If

IfCells(24, 2).Value <> "" Then

CBox1.Enabled = True

End If

End Sub

2 Antworten

Frage von Enzo0204

18.09.2014, 09:54

Excel VBA /wie kann ich die Zellen in format Zahl und Währung benutzen?

hier meinen Formatbereich: Dim intErsteLeereZeile As Long With ActiveSheet intErsteLeerZeile = .Cells(Rows.Count, 1).End(xlUp).Row + 1

    .Cells(intErsteLeerZeile, 6).Value = CDate(Me.DTPicker1.Value)
    .Cells(intErsteLeerZeile, 8).Value = CDate(Me.DTPicker2.Value)
    .Cells(intErsteLeerZeile, 4).Value = Me.cboAusführungsland.Value
    .Cells(intErsteLeerZeile, 9).Value = Me.cboBearbeiter.Value
    .Cells(intErsteLeerZeile, 12).Value = Me.cboBereich.Value
    .Cells(intErsteLeerZeile, 16).Value = Me.TxtBestllNr_Kommentare.Value
    .Cells(intErsteLeerZeile, 3).Value = Me.txtKunde.Value
    .Cells(intErsteLeerZeile, 7).Value = Me.txtKundenanfragenr.Value
    .Cells(intErsteLeerZeile, 5).Value = Me.txtKurzbeschreibung.Value
    .Cells(intErsteLeerZeile, 14).Value = Me.txtPreis.Value  (**SOLL IM FORMAT WÄHRUNG9

** .Cells(intErsteLeerZeile, 11).Value = Me.cboRpFp.Value .Cells(intErsteLeerZeile, 15).Value = Me.cboStatus.Value .Cells(intErsteLeerZeile, 2).Value = Me.cboStützpunkt.Value .Cells(intErsteLeerZeile, 10).Value = Me.cboVerantwortlich.Value .Cells(intErsteLeerZeile, 1).Value = Me.txtAngebotsNr.Value (DIE ZELLE HIER SOLL IM FORMAT ZAHL UMGEWANDELT9
End With

End Sub

1 Antwort

Frage von ede0007

24.01.2018, 00:55

Excel Zelle über VBA auslesen?

Hallo zusammen,

ich habe eine Tabelle, wo Daten automatisch aus dem Internet abgerufen werden.

Diese werden in die Zellen D2, E2, F2, geschrieben und eine weitere Liste, die auch ständig über das Internet aktualisiert wird, woraus ich aber nur die Zelle B6 benötige.

Jetzt möchte ich eine weitere Tabelle, mit den Werten aus D2(Datum), B6(Währung) und F2(Dezimalwert), erstellen die immer dann eine neue Zeile bekommt, wenn sich die Zelle E2 ändert.

Da ich leider keine Ahnung von VBA habe, hoffe ich dass ihr mir helfen könnt.

Ich habe schon aus verschiedenen Quellen einen Makro zusammen gebastelt, aber leider tut sich nichts, wenn die Zelle E2 sich automatisch ändert. wenn ich die allerdings händisch ändere, wird genau gemacht, was ich möchte....!

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

If Target.Address = "$E$2" Then 'wenn Zelle E2 sich ändert, dann

Rows("104").Select 'Zeile 104 markieren

Selection.Insert Shift:=xlUp 'über Marierung Zeile einfügen

Selection.ClearContents 'markierte Zeile leeren

End If

If Target.Address = "$E$2" Then 'wenn Zelle E2 sich ändert, dann

Cells(104, 1) = Cells(2, 4) 'Zelle D2 in A104 kopieren

Cells(104, 2) = Cells(2, 6) 'Zelle F2 in B104 kopieren

Cells(104, 3) = Cells(6, 2) 'Zelle B6 in C104 kopieren

End If

End Sub

1 Antwort

Frage von Einbahnstrasse

05.09.2011, 09:50

VBA generierte Email mit HTML aussehen verändern.

Hey ich habe eine E-Mail mit Hilfe von VBA aus Excel generiert. Aber jetzt möchte ich diese im Aussehen noch verändern. Weiss jemand wie ich das machen kann? Also mit Aussehen meine ich eine Tabelle einbauen und persönliches Briefpapier einbauen.

Kann mir jemand helfen?

Der Code sieht im Moment so aus.

Private Sub CommandButton1_Click()
  Dim ol, Mail As Object
   Dim Tabelle As Object
   Dim Zeile As Integer

   Zeile = UserForm1.ListBox1.ListIndex + 1

   Unload UserForm1

   Set Tabelle = Application.ActiveSheet
   Set ol = CreateObject("Outlook.Application")
   Set Mail = ol.CreateItem(0)
   Mail.Subject = "Telefonat vom " & Now & "    " & Tabelle2.Cells(24, 8).Value

   Mail.To = Tabelle1.Cells(Zeile, 4).Value
   Mail.cc = ""
   Mail.bcc = ""

   Mail.body = vbCrLf & _
   "Sehr geehrter " & Tabelle1.Cells(Zeile, 5).Value & " " & Tabelle1.Cells(Zeile, 3).Value & "," & vbCrLf & _
   vbCrLf & _
   "anbei senden wir ihnen die Anrufinformationen" & vbCrLf & _
   vbCrLf & _
   "    Telefonnummer    : " & Tabelle2.Cells(11, 12).Value & " / " & Tabelle2.Cells(11, 14).Value & vbCrLf & _
   "    Kundenname       : " & Tabelle2.Cells(11, 6).Value & " " & Tabelle2.Cells(11, 7).Value & " " & Tabelle2.Cells(1, 26).Value & " " & Tabelle2.Cells(11, 8).Value & vbCrLf & _
   "    Grund des Anrufes: " & Tabelle2.Cells(24, 5).Value & " - " & Tabelle2.Cells(27, 4).Value & vbCrLf & _
   "    Zeitraum für Rückruf: von " & Tabelle2.Cells(9, 12).Value & ":00 bis " & Tabelle2.Cells(9, 15).Value & ":00" & vbCrLf & _
   "    Erreichbarkeit: ab dem " & Tabelle2.Cells(14, 14).Value & " bis zum " & Tabelle2.Cells(14, 18).Value & vbCrLf & _
   vbCrLf & _
   "Mit freundlichen Grüßen" & _
   vbCrLf & "" & vbCrLf & _
   vbCrLf & _
   "Dieses Mail wurde automatisch versandt."

2 Antworten

Was möchtest Du wissen?

Deine Frage stellen

Ich möchte in Excel eine Userform mit bestimmten Captions von labeln starten ->Es funktioniert nicht

4 Antworten

noch nicht! (oder jetzt doch? vllt, die Vorschau zeigt was anderes): #``Text``

Excel VBA - rechtsbündig in der ComboBox?

Makro zum Zusammenfassen von Spalten

Excel, VBA Skript, um Dateien zu vergleichen?

Excel VBA könnt ihr mir helfen?

excel kopieren einfügen

Ich habe einen Code in Excel der in der If Funktion mir sagt das er einen Audruck erwartet.. Ab If ist alles rot markiert.?

Ich möchte in Excel eine Userform mit bestimmten Captions von labeln starten ->Es funktioniert nicht

4 Antworten

noch nicht! (oder jetzt doch? vllt, die Vorschau zeigt was anderes): #**Text**

noch nicht! (oder jetzt doch? vllt, die Vorschau zeigt was anderes): #``Text``