Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Kommentar in erste zelle einess Bereiches
02.08.2008 16:07:00
Herbert
Hallo Forum
Ich habe eine Userform mit "Calendar", um Zeiträume in eine Tabelle zu übernehmen.
Jetzt versuche ich, in die 1.Zelle des Zeitraums einen Kommentar einzufügen.
Innerhalb der Schleife geht es, aber dann in jeder Zelle. wie kann ich die erste Zelle
ansprechen?
Hat jemand eine Idee?

Private Sub EintrBtn_Click()
Dim anfD As Date, endD As Date, c As Range, iRow As Integer
If anfD = 0 Then
MsgBox "Fehler, kein Anfangsdatum gewählt", , "Fehler"
End
End If
If IsEmpty(Cells(1, 1)) Then
iRow = 1
Else
iRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
End If
If endD = 0 Then
endD = anfD
End If
Cells(iRow, 1) = anfD
Cells(iRow, 2) = endD
For Each c In Range("C2:N32")
If c >= anfD And c 


Gruß Herbert

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kommentar in erste zelle einess Bereiches
02.08.2008 16:48:00
OttoH
Hallo Herbert,
statt for each ... nex t c setze folgende Zeile ein:
Range("C2").AddComment ("Urlaub")
Gruß OttoH

AW: Kommentar in erste zelle einess Bereiches
02.08.2008 17:01:36
Herbert
Hallo Otto
Nein, das meine ich nicht. Der Bereich C2:N32 ist mein Kalender, in dem das Makro einen Bereich einfärbt.
Beispiel: Es wird ein Datumsbereich 06.08.08 - 08.08.08 gewählt, dann wird der Bereich C2:N32 durchlaufen (For each) und diese drei Tage gefärbt. Ich möchte jetzt, daß der 06.08.08 mit einem Kommentar versehen wird und nicht wie in meinem Code alle drei Zellen.
Gruß Herbert

AW: Kommentar in erste zelle einess Bereiches
02.08.2008 19:19:13
Erich
Hallo Herbert,
probier mal

Private Sub EintrBtn_Click()
Dim anfD As Date, endD As Date, c As Range, iRow As Long ' statt Integer
If anfD = 0 Then
MsgBox "Fehler, kein Anfangsdatum gewählt", , "Fehler"
End
End If
If IsEmpty(Cells(1, 1)) Then
iRow = 1
Else
iRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
End If
If endD = 0 Then endD = anfD
Cells(iRow, 1) = anfD
Cells(iRow, 2) = endD
For Each c In Range("C2:N32")
If c >= anfD And c  endD Then Exit For              ' klappt eventuell
End If
Next c
Unload Me
End Sub

Zur Zeile mit dem "klappt eventuell":
Das klappt, wenn dein Kalender in der richtigen Reihenfolge durchlaufen wird.
Wenn's nicht klappt, lass die Zeile einfach weg.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Anzeige
AW: Kommentar in erste zelle einess Bereiches
02.08.2008 19:47:00
Herbert
Hallo Erich
Vielen Dank - klappt ! ! !
Die Zeile mit dem "klappt eventuell" habe ich gleich weggelassen, es reicht die erste Zeile
Nochmals Danke
Gruß aus München
Herbert

AW: Kommentar in erste zelle einess Bereiches
02.08.2008 20:05:00
Erich
Hi Herbert,
diese "vielleicht"-Zeile sollte dazu diesen, den Programmablauf zu beschleunigen.
Wenn endD erreicht ist, muss ja vielleicht nicht weitergeorgelt werden bis zu N32.
Du könntest es vielleicht doch mal ausprobieren...
Grüße von Erich aus Kamp-Lintfort

AW: Kommentar in erste zelle einess Bereiches
03.08.2008 16:06:00
Herbert
Hallo Erich
Habe die Zeile eingefügt - funktioniert
Danke
Gruß Herbert

300 Forumthreads zu ähnlichen Themen


Hallo,
ich benötige etwas Hilfe, vermutlich für euch kein Problem:
in Zelle A1 möchte ich den Spaltenbuchstaben eintragen
in Zelle A2 möchte ich eine Zeilennummer eintragen
in Zelle A3 fehlt mir nun die Formel, mit der ich A1undA2 verbinden kann UND dann den Inhalt der Zelle aus...
Anzeige

Hallo!
Folgendes Problem:
In jeder Zelle einer Spalte sind Zahlenwerte jeweils mit Kommata getrennt. Ich möchte nun einen beliebigen Wert auslesen lassen, d.h. wenn dieser Wert vorkommt die Zahl 1 in die Zelle rechts daneben schreiben lassen.
Wenn ich also aus der Zelle (10,10012,30...

Hallo Forum,
kann ich in einem "Kommentar einfügen" automtisch den inhalt einer zelle anzeigen lassen ?
Beispiel: Ich habe in der Zelle A5 ein Berechnungsergebnis stehen. in Zelle A242 füge ich einen Kommentar ein. In dem Kommentar soll der inhalt der Zelle A5 stehen.
Ich bedanke mi...
Anzeige

Schönen Abend Excellenzen!
Ich habe heute nachmittags einmal herumprobiert, um den Namen des Tabellenblattes in eine Zelle des jeweiligen Blattes (also: Tabellenname Jänner soll auch dort in A1 stehen) zu bringen.
Hab's mit folgender Formel probiert:
=Rechts(Zelle("Dateiname");Länge...

Hallo
Gibt es eine Möglichkeit, die Inhalte einer individuell markierten Zellenauswahl in einer einzelnen Zelle, mit z.B. Semikolon getrennt darzustellen?
Um eine Antwort bin ich sehr danbkar.
Gruss

Hallo zusammen,
ich hab mal wieder eine Frage.
Ich weiß, dass es geht, weil es mir schon mal jemand gezeigt hatte. Allerdings kann ich mich nicht mehr daran erinnern.
Und zwar möchte ich einen Kommentar in eine Formel einfügen, z.B.
A1=15(Vorjahr)+C4(aktueller Wert)
In diese...
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige