VBA – die besten Beiträge

Guten Abend,

ich möchte gerne den Inhalt aus einer Inputbox in Zelle D28 schreiben, nur leider funktioniert es nicht.

Folgendes Makro: (sicherlich nicht schön geschrieben aber es bis auf die Zelle D28)

Sub erstellen()
   Dim NeuerTabellenName As String
   Dim TabellenName As Boolean
   Dim myInput As String
   Dim WsTabelle As Worksheet
   
   myInput = InputBox("Bitte geben Sie den Namen des neuen Monates an", "Monat anlegen")
   
   For Each WsTabelle In Worksheets
   If WsTabelle.Name = myInput Then
   TabellenName = True
   Exit For
   End If
   Next WsTabelle
   If TabellenName Then
   MsgBox ("Der Monat existiert bereits. Der Vorgang wurde abgebrochen. Bitte ueberpruefen Sie Ihre Eingabe.")
   Worksheets("Admin").Select
   Else
   NeuerTabellenName = myInput
   Worksheets("Muster").Copy After:=Sheets(Sheets.Count)
   Sheets(Sheets.Count).Name = NeuerTabellenName
   Worksheets("Admin").Range(D28).Value = myInput
   Worksheets("Admin").Select
   End If
End Sub

Der Fehler muss ja hier liegen:

Worksheets("Admin").Range(D28).Value = myInput

Über eine Lösung wäre ich sehr dankbar.

Gruß

Hallo meine Lieben!

Wenn mein Makro eine Datei öffnet, die schreibgeschützt ist, kommt ein Warnhinweis, den ich nicht haben möchte. Der Code Application.DisplayAlerts = False bringt nix.

Was kann ich machen?

Hallo liebe Community,

ich habe schon wieder eine Excelfrage, hoffentlich vorerst meine Letzte:

Kann man für eine Zelle eine Formel erstellen, diese Formel schützen und dennoch einen manuellen Eintrag ermöglichen?

Es geht um folgendes: Ich habe einen Stundenzettel, in welchem sich die Stunden automatisch zusammenrechnen mit 0,75 Stunden Pause.

Ein Arbeitstag von 8:00 bis 16:00 Uhr hat also 7,25 Stunden. Arbeisstart werden in C und D eingetragen. Um die Pausen auszurechnen existiert folgende Formel:

=WENN(ISTLEER(D18);"";((D18-C18) 24)-0,75)

Nun soll die Zelle aber auch per Hand eingetragen werden können, wenn z.B. Urlaub genommen wurde oder die Pausenzeit von den 0,75 Stunden abweicht oder KRankheit oder ... Daher kann ich die Formel nicht schützen.

Wenn jetzt jemand per Hand 8 Stunden einträgt, ist die Formel weg. Daher würde ich sie gerne schützen.

Geht dies und wenn ja wie?

LG Karsten

Hallo VBA-Profis,

ich hätte gerne (bei Zelle A1 und B1 beginnend) ein VBA, dass beim öffnen der Arbeitsmappe, das Datum und die Uhrzeit sich auflistet, bzw. Fortführt.

D. h. beim 1. öffnen der Arbeitsmappe soll die Zelle A1 mit Datum und B1 mit Uhrzeit versehen werden (ungefähr so siehe Abb.)

Jetzt möchte ich, dass beim 2. öffnen der Arbeitsmappe, die Daten in A1 und B1 bestehen bleiben und das neue Datum und Uhrzeit in A2 (Datum) und B2 (Uhrzeit) eingetragen wird.

Beim 3. öffnen, A3 und A4 aktualisiert wird, u.s.w., aber die vorherigen Daten sollen stets erhalten bleiben.

Gibt es einen Möglichkeit dies stetig fortzuführen, optimal wäre sicherlich die Spalte A und B ohne Begrenzung, außer der möglichen Zeilenmenge-Verfügbarkeit von 1.048.576 Zeilen (so bei EXCEL 2019).

Ich habe keine VBA-Syntax-Kenntnisse !

Freue mich über eine Idee Eurerseits.

Gruß Tron

Hallo,

ich möchte für einen Verein ein Spielplan erstellen. Dazu brauche ich die Fahrzeiten von uns zum entsprechenden Gegner, damit ich daraus Abfahrtszeit etc. berechnen kann.

Ich habe dazu schon zu jeder Begegnung automatisch eine URL erstellen lassen, die direkt Google Maps mit der entsprechenden Route öffnet.

Jetzt wäre es allerdings enorm hilfreich, wenn ich irgendwie direkt die von Google Maps berechnete Fahrzeit in die entsprechende Zelle bekommen könnte.

Geht das? Wenn ja, wie? Kann mir jemand vielleicht einen Ansatz nennen? Bin da mit Google leider gar nicht weiter gekommen...

(Mit VBA kenne ich mich leider noch kaum aus)

Danke und Grüße!

Sub test()

For i = 1 To 10

Worksheets("Tabelle1").Range("C1:C10") = IIf((IsEmpty(Range("A1:A10")) + IsEmpty(Range("B1:B10"))) <> 0, "Not Calculable", (Range("A1:A10") - Range("B1:B10") + 1))

Next

End Sub

ich möchte diese formel in einer schleife ,aslo das es mehrere zellen ausrechnet nicht nur A1 und B1

Sub test()

Worksheets("Tabelle1").Range("C1") = IIf((IsEmpty(Range("A1")) + IsEmpty(Range("B1"))) <> 0, "", (Range("A1") - Range("B1") + 1))

End Sub

Sub test()
  Worksheets("Tabelle1").Range("A1") = worksheetfunction.iif(or(isempty(Range(A1)),isempty(Range(B2)),""(Range(A1-B2+1))
End Sub

=WENN(ODER(ISTLEER(A1);ISTLEER(B1));"";A1-B1+1)

Bin absoluter Anfänger

Guten Tag,

gerne möchte ich per Makros eine Grafik in die Kopfzeile packen. Dabei habe ich folgendes zusammengebastelt:

With Sheets("Kundenbeleg").PageSetup
.CenterFooterPicture.Filename = "C:\Users\Robin\Desktop\Test.png"
.CenterFooter = "&G"
End With

Der Sheets ist korrekt und der Speicherpfad auch. Der Quelltext ist ein Auszug aus einem Makro, in dem die Seite Kundenbeleg als PDF gespeichert wird.

Die Speicherung funktioniert, nur leider ohne die "Test"-Grafik.

Habe ich noch etwas vergessen?

Gruß

Hallo

Ich würde gern nach dieser csv Ordner erstellen und updaten, jedesmal wenn sich etwas in der CSV verändert hat (zb ein Ordner dazu gekommen ist). Wie kann ich das machen?

LG und vielen dank.

Ich kann ja auch einfach Summand1 * Summand2 schreiben und es kommt das gleiche raus. Also, wann braucht man das?

Guten Abend,

ich möchte den Zelleninhalt bestimmter Zellen löschen, wenn eine gewisse Bedingung erfüllt ist. Dazu ist zu wissen, dass ich zwei Tabellen haben.
Tabelle 1: Rechungsliste
Tabelle 2: Uebersicht

Wenn ich in der Tabelle "Rechnungsliste" in Spalte I "erledigt" eintrage, soll in der Tabelle "Uebersicht" der dazu passende "Datensatz" (Spalte A-D) gelöscht werden. Jedoch nur der Inhalt, nicht die Zeile. Der Spalteninhalt aus Tabelle A dient als Suchkriterium. Die Range der Tabellen ist von A3:A100.

Beispiel:
Rechnungsliste: RE19002 (Spalte A) wird in "Spalte I" als "erledigt" markiert, dann soll in Tabelle "Uebersicht" der Inhalt der Spalten A-D von RE19002 gelöscht werden.

Ich weiß, dass dies als Funktion direkt im Tabellenblatt eingebaut werden muss, nur leider habe ich durch meine andere offene Frage kein Ansatz.

Das Prinzip müsste wie bei meiner anderen offenen Frage sein:

https://www.gutefrage.net/frage/vba-daten-in-zweite-tabelle-uebertragen#answer-328499597

Gruß

Hallo,

ich habe mehrere hundert Zellen in einer Spalte die jeweils eine Beschreibung und eine dazugehörige AA Nummer innerhalb einer Zelle beinhaltet. Nun möchte ich aber die ganze Beschreibung raushaben und im Prinzip nur die AA-Nummer rausfiltern, bzw. die Zelle auf diese Nummer reduzieren. Gibt es solch eine Funktion bei Excel oder vielleicht mit VBA? Beispiel  wie diese Zellen aktuelle aussehen im Bild (s.u.)

LG Aseterus

Guten Tag zusammen,

kurz und knapp: Ich möchte beim verlassen des Blattes, dass dieses ausgeblendet wird. Folgenden Code nutze ich:

Option Explicit
Sub FAQ_schliessen() 
Sheets("FAQ").Visible = False
End Sub

Den Code habe ich beim entsprechenden Tabellenblatt (FAQ) über "rechtsklick" "Code anzeigen" geschrieben. Jedoch passiert beim verlassen der Tabelle nichts. Hab ich bzw. muss ich noch etwas beachten oder hab ich etwas falsch gemacht?

Gruß

Ich habe folgenden Code:

Private Sub Fertig_Click()

  Dim last As Integer

   last = Tabelle1.Cells(Rows.Count, 1).End(xlUp).Row + 1

   Tabelle9.Cells(last, 1) = Format(Eingabe.Antragsdatum.Value, "dd.mm.yyyy")

End Sub

In der Zelle nachher wird es nicht als Datum erkannt.
Muss es aber als Datum sortieren können.

Ich habe schon viele Foreneinträge zu dem Thema gelesen, doch nichts davon funktioniert bei mir.

Guten Abend zusammen,

eine kleine Frage am Rande, kann man die Range in der u.g. Quelle auch dynamischer bzw. flexibler machen? Gemeint ist damit die Zeile 102.

If myInput <> "" Then
FindData = Application.Match(myInput, Worksheets(myTab).Range("A3:A102"), 0)
If IsError(FindData) Then

Kann man die Zeile ändern, quasi aus einer anderen Zelle/anderen Tabelle die Zeilenanzahl entnehmen? Sprich sollte in Tabelle 2 A1 die Zahl 200 stehen, sollte die Range von A3:A200 gehen.

Wenn ja, wie müsste der Quellcode dann aussehen? Ich meine, dass es mit "i" irgendwie geht, aber keine Ahnung wie.

Gruß

Guten Tag,

ich möchte gerne per Input-Abfrage ein Tabellenblatt löschen. Sie Eingabe in der Abfrage entspricht den Namen des Tabellenblatt. Leider komme ich nicht weiter, wie ich den Bezug von der Eingabe zum Tabellenblatt bekommen.

Hilfe wäre sehr nett

Gruß

Meine ersten Schritte nach 20 Jahren Pause. Ich will etwas tun, wenn eine Zelle den Text "crash" enthält. Welche Eigenschaft der Zelle ist der Text (VBA)?

Hallo zusammen.

Ich komme leider beim meinem Problem nicht alleine weiter.

In meiner Tabelle werden in Spalte 2 und Zeile 4 Zeichen angezeigt, sobald ein Bereich selektiert wird. Die Zeichen sollen sich allerdings nur auf die Range J7:OJ57 beschränken, auch wenn die Selektion über die Range hinausgeht.

Denn jetzt, wenn ich z.B. eine Spalte markiere, schreibt der Code mir alle Zeichen in jede Zeile der Spalte, was fatal ist.

Kann ein Profi kurz helfen? :)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("J6:OJ57")) Is Nothing Then
Dim cell As Range
  Application.Calculation = xlCalculationManual
  Application.ScreenUpdating = False
  Application.EnableEvents = False
   Range("B6:B57").ClearContents
   Range("J4:OJ4").ClearContents
For Each cell In selection
  With cell
   Range(cell(.Row, 2), Cells(.Row, 2)) = ">>"
   Range(cell(4, .Column), Cells(4, .Column)) = "V"
  End With
Next
   Application.ScreenUpdating = True
   Application.EnableEvents = True
   Application.Calculation = xlCalculationAutomatic
End If
End Sub