Hallo,

ich möchte aus dem Bereich A2:A10 alle Werte auslesen und diese dann jeweils immer in A12 kopieren lassen (ja der Wert soll dann immer wieder überschrieben werden!!!).

Ich dachte dabei an eine For-Schleife, weil ich zuvor auslesen lasse, wie viele Werte es in Spalte A wirklich gibt und dann das entsprechend soft durchlaufen lasse. Gibt es eine Funktion, wo ich die Spalte dann festlege und bspw. mit i=2 für die Reihe in jedem Durchlauf dann die Zeile darunter nehme?

LG Syrena

Hallo,

Ich bin noch Newbie in VBA und versuche mich gerade selbst daran. Beim Abspeichern der Datei erhalte ich jedoch eine Fehlermeldung (Die Methode 'SaveAs' für das Objekt '_Workbook' ist fehlgeschlagen. Könnt ihr mir sagen, was ich hier falsch mache?

Gerne auch Kritik und Anregungen zum Code. LG Syrena

Sub Bericht()

    'Datei öffnen und einfügen
    '-----------------------------------------------------------------
    Dim Liste As Workbook
    Dim Template As Workbook
    Dim Dati As Variant
    Set Template = ActiveWorkbook
    Dati = Application.GetOpenFilename("Excel-Dateien(*.xl*),*.xl*")
    Set Liste = Workbooks.Open(Filename:=Dati)
    Liste.Sheets("Tabelle1").Columns("A:E").Copy
    Windows(Template.Name).Activate
    Columns("A:E").Select
    ActiveSheet.Paste
    Workbooks(Liste.Name).Close savechanges:=False
   
   
    'Neue Datei öffnen und abspeichern
    '--------------------------------------------------------------------
    Dim Projektbericht As Workbook
    Set Projektbericht = Workbooks.Add
    Dim Speicherpfad As String, Titel As String
    Speicherpfad = "C:\ "
    Titel = "Bericht"
    Projektbericht.SaveAs Filename:=Speicherpfad & Format(Date, "YYYY-MM-DD") & Titel

End Sub

Hallo,

ich habe in meiner Küche an der Wand über dem Herd eine Glasplatte als Spritzschutz. Klugerweise hat man mir damals diese Platte mit Silikon an der Wand auf der Tapete befestigt. Da ich jetzt nun ausziehe, muss ich diese nun entfernen. Wie kann ich diese entfernen, sodass die Tapete (möglichst) unbeschadet bleibt?

Danke und viele Grüße Syrena

Hallo,

ich habe folgendes Anliegen: Ich möchte in Excel mit VBA etwas machen. Hier einmal der Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("j10")) Is Nothing Then
    Select Case Range("j10").Value
        Case "manuell"
            Range("s7:u7").ClearContents
        Case "Anfang & Ende"
            Range("s7").Value = Worksheets("PEPStauchung").Range("d2").Value
    End Select
End If
End Sub 

Ich möchte, dass, wenn ich in Zelle S6 einen Wert ändere, das ganze erneut durchgeführt wird.

Wie binde ich das ein? Vielen Dank!!!

Syrena

Hallo,

die Eltern meines Freundes werden sich morgen einen Berner Sennenhund Welpen zulegen. Da wir sie dann besuchen wollen, möchten wir dem Kleinen ein kleines geeignetes Spielzeug mitbringen.

Habt ihr gute Erfahrungen mit etwas bestimmten bzw. könnt was empfehlen? Ich weiß nur, dass das Spielzeug keine Quietschtöne oder ähnliches von sich geben darf, da dies vegleichbar mit dem jagen und töten eines Tieres wär und bei kleinen Kindern folglich fehl interpretiert wird.

Wäre für eure Ideen sehr dankbar.

LG Syrena

Hallo,

ich habe zum 30.6. den Vertrag mit den Stadtwerken für die Stromversorgung gekündigt. Ist es üblich, dennoch so lange weiter Abschläge (also für Juli und August) zu zahlen, bis man eine Endabrechnung erhält?