dersuchende1
26.06.2023, 12:04
VBA, Datum ab Zeile3, wie?

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 5 Then

If Target = "" Then

Cells(Target.Row, 2) = ""

Else

Cells(Target.Row, 2) = Date

End If

End If

End Sub

_________________________________________________________________________________

Hallo Leute, prinzipiell funktioniert es, aber ich hätte gerne das der Spaß erst ab Zeile 3 losgeht, da ich noch keinen Tabellenkopf oder Ähnliches habe....

Bei : If Target.Column = 5 Then muss bestimmt noch was rangebastelt werden....Für eure Hilfe bin ich wie immer sehr Dankbar..... :-)

 ...zum Beitrag
Antwort
von Nepumuk7
26.06.2023, 12:39

Hallo,

so:

If Target.Column = 5 And Target.Row > 2 Then

Gruß Nepumuk

 ...zur Antwort
gymnast999
24.04.2023, 09:50
Ausgewählte Tabellenblätter als ein PDF speichern?

Hi Leute,

ich hab mit Programmierung allgemein und auch mit Excel VBA relativ wenig am Hut. Besser gesagt nichts!
Allerdings sollte ich nun für meine Arbeit ein kleines Tool basteln, welches aus einer Vielzahl von vorhandenen Tabellen, nur die benötigten anzeigt. Das alles habe ich auch hinbekommen, allerdings fehlt mir nun ein Button, welcher bei drücken nur die ausgewählten (Rest ist ausgeblendet) Tabellenblätter als eine zusammenhängende pdf speichert. Ist das möglich und wenn ja, hättet ihr da einen kleinen Code für mich?

vielen Dank für jede Hilfe welche mich aus der Verzweiflung holt ! 😅

 ...zum Beitrag
Antwort
von Nepumuk7
13.06.2023, 13:40

Hallo,

teste mal:

Public Sub PDF_Export()


    Dim objSheet As Worksheet, objActiveSheet As Worksheet


    Set objActiveSheet = ActiveSheet


    For Each objSheet In ThisWorkbook.Worksheets


        If objSheet.Visible = xlSheetVisible Then Call objSheet.Select(Replace:=False)


    Next


    Call ActiveSheet.ExportAsFixedFormat(Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\PDF", _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True)


    Call objActiveSheet.Select


    Set objActiveSheet = Nothing


End Sub
...zur Antwort
TheDonk
13.06.2023, 13:16
Excel VBA range ignoriert anderes Sheet?

Hey, im Bild ist der ausgeschnittene Code. Rot unterstrichen ist die Zeile die Probleme macht. Der Code sollte von dem Sheet "hidden" die Range F5:F&lastRow haben. Beim ausführen ignoriert er aber das "hidden" und nimmt stattdessen das Sheet "dashboard".

Ablauf des Codes:

Letzte Reihe im sheet hidden herausfinden

dropdownRange definieren (Von wo welche Daten?)

dropdownCell definieren (Wo soll dropdown Menü aufrufbar sein?)

Löschen von Dateneinschränkung in dropdowncell

Dateineinschränkung einfügen (Einschränkung nur Inhalte der dropdownRange von Spalte hidden)

Das Programm arbeitet wie gesagt als wäre statt dem rot markierten dieser Code:

Set dropdownRange = dashboard.Range("F5:F" & lastRow)

 ...zum Beitrag
Antwort
von Nepumuk7
13.06.2023, 13:30

Hallo,

versuch es mal so:

dropdownRange. Address(External:=True)

Gruß Nepumuk

 ...zur Antwort
james19998sede
12.06.2023, 14:13
Formel oder Lösungsansätze Excel?

Ich muss unterschiedliche Startdaten Bsp:22.04.2023 in einer Zelle rot markieren lassen, wenn Sie zwei Jahre alt sind. Sprich die Zelle soll sich rot färben wenn vom Tag des 22.04.2023 zwei Jahre vergangen sind. Problem ist ja das ich nicht mit der Heute Formel arbeiten kann, da das Datum da zum einen in der Vergangenheit von heute liegt und zum anderen ansonsten nicht übertragbar für andere Datum ist.
Gibt es eine Formal oder eine Formatierungsregel die genau das erfüllt, ich habe hunderte dinge versucht ohne Erfolg:
Fakt ist in meinem Fall der Formelansatz mit dem heutigen Datum funktioniert nicht, vielleicht kann ja jemand helfen

 ...zum Beitrag
Hilfreichste Antwort
von Nepumuk7
12.06.2023, 17:43

Hallo,

ein Beispiel:

Das Datum steht in A1 gefärbt werden soll die Zelle B1.

Zelle B1 auswählen - Bedingte Formatierung - Neue Regel - Formel zur Ermittlung der zu formatierenden Zelle verwenden - folgende Formel einfügen:

=HEUTE()-$A$1>=720

Gruß Nepumuk

 ...zur Antwort
Hanni690
11.06.2023, 08:24
Satz des Pythagoras als Makro in Exel?

Ich habe ein kleines Schulprojekt und soll ein Makro für den Satz des Pythagoras erstellen heiß: (a²+b²)^(1/2) = c

Das ganze sieht Momentan so aus:

Bis jetzt berechnet er mir also nur die Quadratwurzel aus wert1 + wert2, er soll ja aber die Quadratwurzel aus den Quadraten von wert1 + wert2 berechnen.

Habe schon mehreres versucht, wie:

(wert1² + wert2²) ^(1/2)

(wert1^2 + wert2^2)^(1/2)

((wert1)^2 + (wert2)^2)^(1/2)

Hat aber alles nicht funktioniert.

Über eine Antwort würde ich mich sehr freuen.

 ...zum Beitrag
Antwort
von Nepumuk7
11.06.2023, 11:11

Hallo,

so:

Ergebnis = Sqr(wert1 ^ 2 + wert2 ^ 2)

Beachte die Blanks um die ^ !!!

 ...zur Antwort