Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1568to1572
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1568to1572
1568to1572
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Auswahl Zelle durch Inputbox

Auswahl Zelle durch Inputbox
02.08.2017 07:29:53
Peter
Hallo zusammen,
ich ersuche um Hilfe, für eine Pivotabelle, wo ich dann Leerzeilen habe, habe ich mir ein Makro gebastelt, welches mir die Zellen dann ausfüllt.
Sub ausfüllen()
With Intersect(Columns("E:E"), ActiveSheet.UsedRange)
.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
.Value = .Value
End With
End Sub
Allerdings muss ich das immer "Manuell" anstoßen und die Spalten entsprechend benennen.
Kann man hier eine Inputbox dazwischen basteln wo ich sagen kann Spalte = B und dann setzt er automatisch (Columns ("B:B" ?
Vielen Dank
Grüße
Peter

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Wie wäre es mit...
02.08.2017 08:04:23
Case
Hallo, :-)
... "ActiveCell.Column"? Also die Spalte für die gerade aktive Zelle: ;-)
With Intersect(Columns(ActiveCell.Column), ActiveSheet.UsedRange)
Servus
Case
AW: Wie wäre es mit...
02.08.2017 08:13:21
Peter
Guten Morgen Case,
Danke, ja das wäre eine "minimal" Lösung aber... wenn man mehrere Spalten hat welche nach unten aufgefüllt werden müssen (ist leider immer unterschiedlich) so wäre eine "Eingabe" aus meiner Sicht zielführender?
Kann man nicht irgendwie sagen Cell = Inputbox oder wenn Inputbox = B dann Collumns B:B ?
Vielen Dank, einen schönen Tag
Grüße
Peter
Anzeige
Mit InputBox...
02.08.2017 08:32:42
Case
Hallo Peter, :-)
... so: ;-)
Option Explicit
Sub Main()
Dim strQuelle As String
On Error GoTo Fin
strQuelle = InputBox("Auswahl", "Spalte", "B")
With Intersect(Columns(strQuelle), ActiveSheet.UsedRange)
.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
.Value = .Value
End With
Fin:
End Sub
Servus
Case
Bzw. für mehrere...
02.08.2017 08:38:25
Case
Hallo Peter, :-)
... Spalten: ;-)
Option Explicit
Sub Main()
Dim strQuelle As String
On Error GoTo Fin
strQuelle = InputBox("Auswahl", "Spalten", "A:D")
With Intersect(Columns(strQuelle), ActiveSheet.UsedRange)
.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
.Value = .Value
End With
Fin:
End Sub
Servus
Case
Anzeige
AW: Bzw. für mehrere...
02.08.2017 09:05:09
Peter
Hallo Case,
super das ist es.. allerdings formatiert er die Zelle neu? warum? in Zelle A habe ich z.B. das Quartal 20172 und beim ausfüllen setzt er nun ein Datum?, wie kann ich dem Code sagen er soll das Format der Zelle mitnehmen bzw. übertragen? Vielen Dank
Peter
Das macht der...
02.08.2017 09:24:31
Case
Hallo Peter, :-)
... Code in meiner Beispieldatei nicht. Lade doch mal eine Datei mit Beispieldaten hoch, wo der Fehler auftritt. ;-)
Servus
Case
AW: Das macht der...
02.08.2017 09:42:27
Peter
Hallo Case,
danke, Mustertabelle anbei, er füllt alles richtig aus aber schau dir z.B das Dtum an ? Danke
https://www.herber.de/bbs/user/115167.xlsx
Grüße
Peter
Anzeige
Probiere es mal...
02.08.2017 11:39:09
Case
Hallo Peter, :-)
... so: ;-)
Option Explicit
Sub Main()
Dim strQuelle As String
On Error GoTo Fin
Application.ScreenUpdating = False
strQuelle = InputBox("Auswahl", "Spalten", "A:D")
With Intersect(Columns(strQuelle), ActiveSheet.UsedRange)
.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
.Value = .Value
End With
Range("B2:B" & Cells(Rows.Count, 2).End(xlUp).Row).NumberFormat = "dd/mm/yyyy"
Fin:
Application.ScreenUpdating = True
End Sub
Je nach Anwendung kann man auf verschiedenen Wegen vorgehen. ;-)
Servus
Case
Anzeige
AW: Probiere es mal...
02.08.2017 13:16:28
Peter
Hallo Case, super vielen, vielen herzliche Dank, hasst mir sehr geholfen!!
Grüße
Peter
Gerne - Danke für die Rückmeldung! O.w.T.
02.08.2017 13:20:29
Case
:-)
AW: Gerne - Danke für die Rückmeldung! O.w.T.
03.08.2017 08:26:19
Peter
Hallo Case,
ich habe bitte noch eine Frage, wenn der Wert OK ist kann man dann einen wert aus Tabelle1 der Spalte E in die Tabelle 2 Spalte O schreiben? so ähnlich wie Sverweis? vielen Dank und Grüße
Peter

300 Forumthreads zu ähnlichen Themen

Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:33:59
Thread-ID: 1000866
3 Beiträge
Anzeige
Hintergrundfärbung in UserForm Textbox in Zelle...
Josef

Guten Morgen!
wie ich Daten über Userform TextBoxen in die Zellen zurückschreibe, dafür habe ich bereits eine Lösung.
Is es jedoch möglich einen gefärbten Hintergrund einer TextBox in die dafür vorgesehene Zelle zu übertragen?
Wenn ja, wie würde dann bitte eine VBA Lösung lauten?
28.08.2008 06:57:47
Thread-ID: 1005257
10 Beiträge
Name der Checkbox in eine Zelle
Reinhardt

Hallo,
ich habe gleich zwei Fragen:
1) Nach anklicken einer Checkbox soll diese Ihren Namen in Zelle A1 schreiben.
z.B. CheckBox12 Wie geht das?
2) Nach dem anklicken der Box hat diese ein Häckchen.
Dieser soll nach dem Anklicken gleich wieder verschwinden.
Wer kan...
06.10.2008 14:22:26
Thread-ID: 1014444
2 Beiträge
Anzeige
Checkbox in Zelle per VBA
UweD

Hallo Leute
ich brauche mal Hilfe vom VBA-Profi
Per VBA möchte ich
1) eine Checkbox (aus Formularsteuerungsliste) in einer bestimmten Spalte in Zeile 1 einfügen checkbox.add(....)
2) Dann Bezug auch auf diese Zelle setzen.
3) Namen ändern...
2) und 3) krieg ich sicherl...
17.10.2008 13:57:00
Thread-ID: 1017152
3 Beiträge
Zellen farbig unterlegen bei Eingabe über Inputbox
Jochen

Hallo Forum
Ich habe eine Tabelle in der werden über eine Inputbox in die Zellen A9 bis K9 Werte eingetragen.
Diese Werte werden der Reihe nach über die Inputbox eingetragen.
Gibt es eine Möglichkeit das die geweils angesprochene Zelle für die Zeit der Eingabe die Farbe
wechselt...
09.11.2008 13:54:18
Thread-ID: 1023062
7 Beiträge
Textbox Werte in Zellen schreiben
pritt

Hallo zusammen, ich komme nicht so richtig klar: Ich habe eine Userform mit 4 Textboxen, die zu Laufzeit vom User mit Werten gefüllt werden. Wenn alle 4 Textboxen gefüllt sind, sollen diese Werte in 4 verschiedene Zellen eines Tabellenblatts geschrieben werden. Folgenden Code habe ich bisher er...
13.11.2008 12:59:19
Thread-ID: 1024171
7 Beiträge
Zelleninhalt mit CommandButton in Textbox anzeigen
Markus

Hallo an alle!
Mein Makro kann bisher folgendes:
Per Klick auf 1 von 300 Comandbuttons wird der entsprechende Inhalt aus einer von 300 Zellen in eine Textbox geladen.
"Das funktioniert"
Nun möchte ich , nachdem ich einen Button gedrückt habe und der Inhalt in Textbox angezeigt w...
21.11.2008 11:05:00
Thread-ID: 1026664
2 Beiträge
Wert aus aktiver Zelle in InputBox übertragen
Axel

Hi ihr fleißigen Helferlein :)
Ich habe hier eine Suchfunfunktion mit InputBox.
Ist es irgendwie möglich beim Start des Makros den Wert der aktiven Zelle in die Inputbox automatisch zu übertragen, so das ich ihn nicht selbst hineintippen/kopieren brauch?
Die Suche soll trotzdem über...
13.12.2008 07:44:52
Thread-ID: 1032569
3 Beiträge
Anzeige

Links zu Excel-Dialogen

InputBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
4
9
1
2
2
6
6
1
2
9
3
7
7
3
14
3
4
5
2
4
4
1
4
1