Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1400to1404
1400to1404
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ausgabe bei erneutem Klick in andere Zeile

Forumthread: Ausgabe bei erneutem Klick in andere Zeile

Ausgabe bei erneutem Klick in andere Zeile
09.01.2015 10:47:35
Michael
Hallo,
ich habe folgendes Problem:
Ich habe ein Bild als ActiveX-Steuerelement. Wenn ich 1x draufklicke, soll der Wert 1 in A1 erscheinen. Wenn ich nochmal draufklicke, soll ebenfalls Wert 1, nun aber in A2 erscheinen, usw. Wie lässt sich das lösen? Ich komme leider einfach nicht drauf..
Vielen Dank und VG
Michi

Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ausgabe bei erneutem Klick in andere Zeile
09.01.2015 10:57:53
UweD
Hallo
merke dir die Zeile in irgend einer Zelle. Evtl auf einem separaten Blatt;
und zähle bei klick einfach hoch.
    Dim TB As Range
Set TB = Sheets("Tabelle3").Range("B1")' Beispiel Merkzelle
TB = TB + 1
Gruß UweD

AW: Ausgabe bei erneutem Klick in andere Zeile
09.01.2015 11:02:39
UweD
Hier noch das Setzen des eigentlichen Wertes
    Dim TB As Range
Dim Wert As String
Wert = "Beispiel"
Set TB = Sheets("Tabelle3").Range("B1")
TB = TB + 1
Sheets("Tabelle1").Cells(TB, 1) = Wert

Gruß UweD

Anzeige
AW: Ausgabe bei erneutem Klick in andere Zeile
09.01.2015 11:03:24
Klaus
Hi Michi,
Möglichkeit 1: der Wert soll in der letzten freien Zeile erscheinen. In dem Fall:
If Not Range("A1").Value = 1 Then
letztezeile = Cells(Rows.Count, 1).End(xlUp).Row + 1
Range("A" & letztezeile).Value = 1
Else
Range("A1").Value = 1
End If
Startet es tatsächlich in Zeile 1? Wenn es nicht in Zeile 1 startet, kann man sich das umständliche IF-Konstrukt um die erste Zeile abzufangen sparen: 
    letztezeile = Cells(Rows.Count, 1).End(xlUp).Row + 1
Range("A" & letztezeile).Value = 1

Möglichkeit 2: Der Wert soll bei Dateistart beim ersten Click in A1 stehen, beim zweiten in A2 - egal was da sonst steht. Dann kannst du dir die Variable mit "static" merken: 
Sub Steuerelement()
Static MeineZeile
MeineZeile = MeineZeile + 1
Range("A" & MeineZeile).Value = 1
End Sub
Grüße,
Klaus M.vdT.

Anzeige
AW: Ausgabe bei erneutem Klick in andere Zeile
09.01.2015 11:19:27
Michael
Vielen Dank für Eure beiden Antworten. Der Code im letzten Beitrag hat mir persönlich besser gefallen und funktioniert auch soweit schon ganz gut. Nun habe ich noch einen anderen Button, dieser soll die Prozedur von vorne beginnen lassen, sprich, nach Klick auf Button 1 soll wieder mit A1 begonnen werden. Bitte nochmal um Hilfe :)

Anzeige
AW: Ausgabe bei erneutem Klick in andere Zeile
09.01.2015 11:28:47
Michael
Vielen Dank für Eure beiden Antworten. Der Code im letzten Beitrag hat mir persönlich besser gefallen und funktioniert auch soweit schon ganz gut. Nun habe ich noch einen anderen Button, dieser soll die Prozedur von vorne beginnen lassen, sprich, nach Klick auf Button 1 soll wieder mit A1 begonnen werden. Bitte nochmal um Hilfe :)

Anzeige
AW: Ausgabe bei erneutem Klick in andere Zeile
09.01.2015 11:36:10
Klaus
Hi Michael,
ich weiss nicht welcher Code dir besser gefällt, daher die Lösung für beides.
für Uwe's Version: 
Sub ResetProzedur()
Sheets("Tabelle3").Range("B1").Value = 1
End Sub
für meine Version: 
Sub ResetProzedur()
End
End Sub
Grüße,
Klaus M.vdT.

Anzeige
AW: Ausgabe bei erneutem Klick in andere Zeile
09.01.2015 11:52:11
Michael
Vielen Dank!!!

Forumthreads zu verwandten Themen

Aneinanderreihen von Zeilen
Zeilen

Hi zusammen!
Ich habe eine riesige automatisch erzeugte Liste, bei der zu einem Artikel gehörende Daten auf mehrere Zeilen verteilt sind; Problem: manchmal auf zwei, manchmal auf drei Zeilen. Das Merkmal, mit dem jeder neue Artikel anfängt, ist das Datum im Format xx.xx.20xx in der ersten S...
13.08.2008 10:27:00
Thread-ID: 1001414
7 Beiträge
Einfügen mit jeder 2. Zeile als Leerzeile
Ulrich

Hallo zusammen,
wie kann ich einen Bereich einer Tabellen markieren, kopieren und in einem anderen Tabellenblatt über "Inhalte einfügen" und "verknüpfen" automatisch mit jeder zweiten Zeile als Leerzeile versehen, ohne das die Verknüpfung verrutscht?
Danke im Voraus und Grüße,
Ulr...
26.08.2008 14:15:00
Thread-ID: 1004799
4 Beiträge
Zeilen markieren (ohne Formeleinträge)
Selma

Hallo Leute,
ich habe versucht ab Zeile 2 bis letzte gefüllte Zelle der Spalte B (leere Formelergebnisse sollen nicht berücksichtigt werden) die Zeilen zu markieren, leider ohne Erfolg.
Rows("2:" & Range("B65536").End(xlUp).Row).Select
Was muss ich ändern?
Vielen Dank im Vor...
07.09.2008 18:35:00
Thread-ID: 1007992
5 Beiträge
Spalte ausblenden, wenn in Zeile 7 der Zelleninhal
Selma

Hallo Leute,
wie kann ich die Spalten ausblenden, die in Zeile 7 als Zelleninhalt "x" oder "D" haben?
Vielen Dank im Voraus !
Liebe Grüße,
Selma
29.10.2008 15:41:00
Thread-ID: 1020332
4 Beiträge
Zeilen oder Range mit Makro nach Eingabe schützen
Joachim

Hi,
ist es möglich, dass man in einem Excel Sheet, nachdem man Daten eingegeben hat, einen kompletten Bereich schützt. Die Daten in diesem Bereich sollen sich nicht mehr überschreiben lassen.
Also, es soll kein Blattschutz sein, der das ganze Blatt schützt, sondern nur ein bestimmter Be...
21.11.2008 19:03:28
Thread-ID: 1026815
13 Beiträge
Wert in Spalte und entsprechender Zeile Finden
Klaus

Hi,
folgendes Problem:
Meine ExcelSpalten werden fortlaufend erweitert mit neuen Nummern.
Ich möchte jetzt eine Möglichkeit, in einer Zelle (usedrange +2) bei Eingabe einer neuen (existierenden)
Spaltenbezeichnung, automatisch den Zellenwert aus einer bestimmten Zeile haben. Da...
18.02.2009 15:51:00
Thread-ID: 1051850
3 Beiträge
Seite in Wiederholungszeilen
Wolfgang

Guten Morgen liebe Helfer
Gibt es eine Möglichkeit in ( relativ aufwändige ) Wiederholungszeilen auch die aktuelle Seite und die die Gesamtseitenzahl einzufügen und mit anzudrucken ?
Ich habe in der Recherche zwar die Möglichkeit gefunden die Anzahl der Druckseiten zu bestimmen
( x...
20.02.2009 09:50:00
Thread-ID: 1052348
3 Beiträge
Zeile, in der sich die aktive Zelle befindet, in a
Karsten


Hallo...
Ich möchte die Zeile, in der sich die aktive Zelle befindet, mit einem anderen Farton (z.B. hellblau) unterlegen.
Kann mir jemand weiterhelfen?
Danke
Gruß
Karsten
25.02.2009 13:00:45
Thread-ID: 1053860
11 Beiträge
Anzeige
Zeile über der aktiven Zelle mit einer anderer Far
Lena

Hallo...
ich suche einen Makrobefehl, der die Zeile über der aktiven Zelle mit einer anderen Farbe abbildet (z.B. Colorindex 36). Die aktiven Zelle kann in verschiedenen Spalten sein.
Danke für eure Hilfe!
Beste Grüße
Lena
26.02.2009 21:08:05
Thread-ID: 1054533
14 Beiträge
Zeilen löschen, wenn der Zellinhalt rechts...?
Selma

Hallo Leute,
wie kann ich per VBA folgendes erreichen...
in Spalte B ab Zeile 3 möchte ich die Zeilen löschen...
1. ... bei den der Zelleninhalt rechts logo.JPG
2. ... bei den der Zelleninhalt rechts new.gif
3. ... bei den der Zelleninhalt rechts more.gif
4. ... bei den...
22.03.2009 16:44:23
Thread-ID: 1062659
6 Beiträge
Grafik in Kopfzeile gelöscht; wie wieder einfügen?
abdipost

Hallo zusammen,
habe aus einem Tabellenblatt in einer Excel-Mappe die Grafik aus der Kopfzeile gelöscht.
Die Grafik habe ich nicht als Datei vorliegen.
Wie bekomme ich die wieder rein?
In den anderen Tabellenblättern ist sie noch enthalten.
Danke für Eure Hilfe
16.06.2009 15:36:17
Thread-ID: 1081936
9 Beiträge
Summe, in Abhängigkeit vom Inhalt anderer Zeilen
Oliver

Hi,
ich will eine Summe aus einer Zeile bekommen, aber es soll nur in die Summe eingehen wenn in der Zeile daneben etwas drin steht.
Habt ihr da Tipps?
Danke
Olli
18.07.2009 17:28:51
Thread-ID: 1089661
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige