MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 03.01.2018, 14:42   #1
SARCux
MOF User
MOF User
Standard VBA - Abfrage wenn ein Buchstabe eingetragen wird

Moin und frohes Neues in die Runde.

Ist es machbar beim eintragen eines bestimmten Buchstabens, das eine Abfrage kommt ob eine Woche oder zwei Wochen und dann wie in der beigefügten Datei der Erste Tag mit E die darauffolgenden mit B und der letzte mit A gekennzeichnet werden?
Würde mir so das manuelle eintragen erleichtern.
Habe schon alles probiert, aber leider klappt es einfach nicht..
Würde mich über eine Hilfe eurerseits freuen.

Dank im Voraus
Angehängte Dateien
Dateityp: xlsx Plan.xlsx (9,6 KB, 6x aufgerufen)
SARCux ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 03.01.2018, 15:39   #2
aloys78
MOF Meister
MOF Meister
Standard

Hallo,

Zitat:

Ist es machbar beim eintragen eines bestimmten Buchstabens,

Was ist das für ein Buchstabe und wo wird er konkret eingetragen ?

Zitat:

das eine Abfrage kommt ob eine Woche oder zwei Wochen

Das geht mit VBA !
Startet E immer am Freitag ?

Wie kommen die F's in die Tabelle ?
Gilt es gleichermaßen für Sp C und D ?

Zitat:

Habe schon alles probiert

Interessehalber - was zum Beispiel ?

Gruß
Aloys
aloys78 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 03.01.2018, 15:52   #3
SARCux
Threadstarter Threadstarter
MOF User
MOF User
Standard

Zitat: von aloys78 Beitrag anzeigen

Was ist das für ein Buchstabe und wo wird er konkret eingetragen ?

So wie in der beigefügten Datei in der entsprechenden Zelle

Zitat: von aloys78 Beitrag anzeigen

Das geht mit VBA !
Startet E immer am Freitag ?

Ja, immer Freitags

Zitat: von aloys78 Beitrag anzeigen

Wie kommen die F's in die Tabelle ?
Gilt es gleichermaßen für Sp C und D ?

Die F´s werden manuell eingetragen

Zitat: von aloys78 Beitrag anzeigen

Interessehalber - was zum Beispiel ?

mit Makro aufzeichnen, aber das scheint nicht zu funktionieren, oder ich mache einen Fehler.
SARCux ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 03.01.2018, 17:16   #4
aloys78
MOF Meister
MOF Meister
Standard

Hallo,

mein Vorschlag:
Code:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim r As Long, c As Long
    Dim LRow As Long
    Dim n As Long
    
' check Eingabe
    LRow = Cells(Rows.Count, "A").End(xlUp).Row
    If Intersect(Target, Range("C3:D" & LRow)) Is Nothing Then Exit Sub
    If Target.CountLarge > 1 Then Exit Sub
    r = Target.Row
    c = Target.Column
    If Target <> "E" Then
        MsgBox "Falsches Startzeichen !", vbExclamation
        Exit Sub
    ElseIf Weekday(Range("B" & r), 2) <> 5 Then
        MsgBox "Wochenzyklus muss mit Freitag beginnen !", vbExclamation
        Exit Sub
    End If
    
' Anzahl Wochen erfassen
    Dim strMeldung As String, strTitel As Variant
    Dim swf As Boolean
    Dim strVorschlag As Variant, strAntwort As Variant
    strTitel = "Eingabe Wochenzahl"
    strMeldung = "Anzahl Wochen 1 oder 2 eingeben "
    strVorschlag = 1
    Do
        swf = False
        strAntwort = Application.InputBox(strMeldung, strTitel, strVorschlag, Type:=1)
        If VarType(strAntwort) = vbBoolean And strAntwort = False Then Exit Sub
        If Trim(strAntwort) = "" Or (strAntwort <> 1 And strAntwort <> 2) Then
            MsgBox "Bitte Anzahl Wochen 1 oder 2 eingeben !", vbExclamation
            swf = True
        End If
    Loop While swf = True
    
' Woche(n) füllen
    n = IIf(strAntwort = 1, 6, 13)
    Application.EnableEvents = False
    For r = Target.Row + 1 To Target.Row + n
        Cells(r, c) = "B"
    Next r
    Cells(r, c) = "A"
    Application.EnableEvents = True
End Sub
Gruß
Aloys
aloys78 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 03.01.2018, 17:52   #5
SARCux
Threadstarter Threadstarter
MOF User
MOF User
Standard

So hatte ich mir das vorgestellt.

Super, vielen vielen Dank
SARCux ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 07:12 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.