Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
26.04.2024 11:38:46
Acrobat PDF Formularfelder mit Excel ausfüllen
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
26.04.2024 10:08:11
Summieren von Zellen mit bedingter Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
256to260
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
256to260
256to260
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wert in Zelle übertragen

Wert in Zelle übertragen
18.05.2003 11:35:50
Helga

Hallo Leute,
zuerst einmal wünsche ich Euch einen schönen Sonntag.
Ich und VBA, da läuft die Kuh besser Schlittschuhe.

Mein Problem:
In Zelle R4 möchte ich einen Wert eingeben. Dieser Wert soll dann automatisch in die letzte frei Zelle in Spalte B übertragen werden. Danach soll die Zelle R4 wieder frei sein für die Eingabe des nächsten Wertes.


Ich weiß, dass ihr das hinkriegt, aber bitte für eine "Doofe" erklären, danke schon mal im Voraus

Helga

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Wert in Zelle übertragen
18.05.2003 11:52:25
PeterW

Hallo Helga,

in das Modul der Tabelle (doppelklick im VBA-Editor auf die Tabelle öffnet das Modul) folgenden Code einfügen:

Gruß
Peter

Re: Wert in Zelle übertragen
18.05.2003 12:09:23
L.Vira

Eine kleine Prüfung, ob B65536 leer ist, sollte schon rein. Wenn nicht, gibts einen Fehler und dann sind Events nicht mehr enabled!

Re: Wert in Zelle übertragen
18.05.2003 12:13:42
PeterW

Hi L.Vira,

das stimmt natürlich - obwohl es aus meiner Erfahrung eher ein theoretisches Problem ist. Seis drum:

Gruß
Peter

Re: Wert in Zelle übertragen
18.05.2003 12:21:08
L.Vira

Diese Ansicht ist weit verbreitet und dennoch falsch. Du kannst nicht einfach voraussetzen, dass irgendein Zustand so ist, wie du es theoretisch erwartest.

Anzeige
Re: Wert in Zelle übertragen
18.05.2003 12:25:27
PeterW

Hallo L.Vira,

werde versuchen, das demnächst zu berücksichtigen... und dann sollte ich wohl auch wieder anfangen Lotto zu spielen, obwohl ich theoretisch keinem Hauptgewinn erwarte. ;)

Gruß
Peter

@PeterW
18.05.2003 12:25:59
Helga

Vielen Dank Peter,

aber leider funzt das nicht. Ich kann in Zelle R4 einen Wert eingeben, der wird aber nicht in Spalte B übertragen. Weiterhin ist danach immer noch der letzte Wert in Zelle R4 enthalten.

Habe aber alles so gemacht, wie Du gesagt hast.

Gruß
Helga

Re: @PeterW
18.05.2003 12:28:24
PeterW

Hallo Helga,

klicke in Excel rechts auf das Tabellenblattregister - Code anzeigen. Steht in dem sich öffnenden Fenster wirklich der Code?

Gruß
Peter

Anzeige
Thema von gestern...
18.05.2003 12:28:30
L.Vira

markieren, abgespeckte Variante mit festem Bereich:
''Tabellenmodul:
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveSheet.ProtectContents Or _
ActiveSheet.ProtectDrawingObjects Then
MsgBox "Heben Sie zunächst den Blattschutz auf! ", 64, "weise hin..."
Exit Sub
End If
Application.EnableEvents = False
On Error GoTo Ende
Call Rahmen_um_Selektion
Ende:
Application.EnableEvents = True
End Sub

''"normales" Modul
Option Explicit
Dim Sh As Shape
Sub Rahmen_um_Selektion()
Dim aC As Range, s As Integer, r As Integer
If TypeName(Selection) <> "Range" Then Exit Sub
Set aC = ActiveCell
Call entfernen
Select Case aC.Column
Case 1: s = 0: r = 3
Case 2: s = 1: r = 4
Case 255: s = 2: r = 4
Case 256: s = 2: r = 3
Case Else: s = 2: r = 5
End Select
aC.Offset(0, -s).Resize(1, r).Select
With Selection
Set Sh = ActiveSheet.Shapes.AddShape(1, .Left, .Top, .Width, .Height)
End With
Sh.Line.Weight = 1.47
Sh.Line.ForeColor.SchemeColor = 53
Sh.Fill.Visible = msoFalse
aC.Select
Set aC = Nothing
End Sub
Sub entfernen()
For Each Sh In ActiveSheet.Shapes
With Sh
If .Type = 1 And .Line.Weight = 1.47 And _
.Line.ForeColor.SchemeColor = 53 Then
.Delete
End If
End With
Next
End Sub



Anzeige
Danke o.T.
18.05.2003 12:30:50
PeterW



Re: @PeterW
18.05.2003 12:33:55
Helga

Danke Peter,
es funzt. Habe doch gesagt, dass ich doof bin.

Danke
Helga

300 Forumthreads zu ähnlichen Themen

7 a in eine Zelle schreiben
Kai

Hallo zusammen,
wie bekomme ich es hin, in eine Zelle "7 a" (7 Leerzeichen a) zu schreiben? Excel macht mir dann immer 7:00 AM daraus oder 0,29...
Danke
07.08.2008 16:45:31
Thread-ID: 1000024
6 Beiträge
Anzeige
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
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:34:08
Thread-ID: 1000867
5 Beiträge
Anzeige
VBA - Zelle kopieren bis Wert einer Zelle null ist
Schulze

Halli Hallo,
ich bin ziemlicher Neuling in VBA. Daher würde ich euch bitten mir bei meiner Fragestellung zu helfen und zwar wie folgt: Ich möchte aus einer Tabelle aller Zellen kopieren, bis der Wert einer Zelle 0 annimmt. Diesen bestimten Bereich möchte ich in einer neuen Datei abspeichern...
19.08.2008 08:39:35
Thread-ID: 1002782
17 Beiträge
x ersetzen durch wert aus bestimmter zelle
Ingolf

hallo,
ich muß eine liste erstellen. die werte unten will ich nicht immer eingeben müssen, sondern nur dort wo ein wert stehen soll ein x machen. excel soll mir dann für jedes x den wert aus der zeile 2 der gleichen spalte eintragen. mache ich in eine zelle 2 x, dann muß der wert auch 2 mal...
22.08.2008 09:08:22
Thread-ID: 1003727
5 Beiträge
Mit VBA In Zelle Excelformel schreiben
Gho-Reg

Hi Leute
Ich habe hier diesen netten VBA Code geschrieben und leider wie solls auch anders sein kommt dauernd eine Fehlermeldung :)
CODE:
rowbeforeinteger = 2
Dim text As String
text = "=IF(" & epsoldcolumn & rowbeforeinteger & "=""x"";1;0)+IF(" & emailsoldco...
25.08.2008 11:08:33
Thread-ID: 1004403
6 Beiträge
Makrostart wenn in Zelle was geschrieben wird
Bernd

Hallo,
wie stelle ich es an, damit ein Makro startet, sobald ich in einer bestimmten Zelle etwas schreibe?
Mein Code will irgendwie nicht so wie ich will. Der läuft ohne nonstop.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Range("D3") "" Then Call tabelle_kopi...
31.08.2008 11:09:00
Thread-ID: 1006152
2 Beiträge
Zellen ausblenden mit Wert 0 in Zelle
Ulrich

Hallo zusammen,
wie kann ich einem Tabellenblatt alle Zeilen ausblenden, bei denen in der ersten Zelle eine 0 (null) steht? Geht sowas überhaupt?
Viele Grüße,
Ulrich
01.09.2008 11:08:49
Thread-ID: 1006360
6 Beiträge

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
5
3
2
4
3
16
4
5
1
5
3
2
1
4
4
6
5
30
3
4
11
8
6
10
4