Excel Vba Wert In Zelle Schreiben

Herbers Excel-Forum - das Archiv

wert per VBA in northward�chste leere zelle schreiben | Herbers Excel-Forum

Informationen und Beispiele zu den hier genannten Dialog-Elementen:

wert per VBA in n�chste leere zelle schreiben von Michael Volgger vom 26.06.2010 09:29:x

AW: wert per VBA in n�chste leere zelle schreiben - von fcs am 26.06.2010 09:55:04
- AW: wert per VBA in north�chste leere zelle schreiben - von Michael Volgger am 26.06.2010 10:08:00
  - AW: wert per VBA in due north�chste leere zelle schreiben - von fcs am 26.06.2010 xi:24:12
    - AW: wert per VBA in due north�chste leere zelle schreiben - von Michael Volgger am 26.06.2010 12:45:44
- AW: wert per VBA in northward�chste leere zelle schreiben - von Gerd Fifty am 26.06.2010 10:09:05

Betrifft: wert per VBA in due north�chste leere zelle schreiben
von: Michael Volgger

Geschrieben am: 26.06.2010 09:29:10

hallo!
ich brauche bitte hilfe. ich habe eine leere tabelle und yard�chte diese mit werten f�llen. allerdings nur and then, dass kein wert doppelt vorkommt. habe folgenden ausdruck, h�nge jetzt aber. die kontrolle funktioniert, nur das einf�gen in dice n�chste leere zelle der spalte A bekomme ich nicht hin.
hier der lawmaking:

Sub Schaltfl�che1_KlickenSieAuf() Dim str1 Every bit Cord Dim c Equally Range With Worksheets("KONTROLLE").Range("A1:A1000") str1 = InputBox("Artikel lesen", "Artikel") Set c = .Observe(str1, LookIn:=xlValues) If Not c Is Zero Then MsgBox ("Artikel -- " & str1 & " -- bereits vorhanden"), vbExclamation, "ENDE" Else End If End With End Sub

1000�nnt ihr mir da bitte helfen?
danke!!
mike

Betrifft: AW: wert per VBA in n�chste leere zelle schreiben
von: fcs

Geschrieben am: 26.06.2010 09:55:04
Hallo Michael,
du solltest auch noch einen Parameter f�r dice Suche erg�nzen.
Gru�
Franz

Sub Schaltfl�che1_KlickenSieAuf() Dim str1 As String Dim c As Range With Worksheets("KONTROLLE") str1 = InputBox("Artikel lesen", "Artikel") Set c = .Columns(1).Detect(str1, LookIn:=xlValues, lookat:=xlWhole) If Not c Is Cipher So MsgBox ("Artikel -- " & str1 & " -- bereits vorhanden"), vbExclamation, "ENDE" Else If IsEmpty(.Cells(1, ane)) Then .Cells(1, 1).Value = str1 Else .Cells(.Rows.Count, one).Terminate(xlUp).Offset(ane, 0).Value = str1 Stop If Terminate If End With End Sub

Betrifft: AW: wert per VBA in n�chste leere zelle schreiben
von: Michael Volgger
Geschrieben am: 26.06.2010 10:08:00
super danke!
letzte frage: westward�re thousand�glich, wenn der artikel geschrieben wurde, sich wieder das fenster f�r die eingabe des n�chsten �ffnet, ohne dass wieder den button dr�cken muss?

Betrifft: AW: wert per VBA in due north�chste leere zelle schreiben
von: fcs

Geschrieben am: 26.06.2010 11:24:12
Hallo Michael,
mit der folgenden Anpassung wird die Inputbox solange wieder angezeicht, bis kein Text eingegeben ist oder der Abbrechen-Push button gew�hlt wird.
Gru�
Franz

Sub Schaltfl�che1_KlickenSieAuf() Dim str1 As String Dim c As Range With Worksheets("KONTROLLE") Do str1 = InputBox("Artikel lesen", "Artikel", Default:=str1) If str1 = "" Then Exit Practise 'Abbrechen wurde gew�hlt Fix c = .Columns(1).Find(str1, LookIn:=xlValues, lookat:=xlWhole) If Not c Is Nothing Then MsgBox ("Artikel -- " & str1 & " -- bereits vorhanden"), vbExclamation, "ENDE" Else If IsEmpty(.Cells(one, ane)) And then .Cells(1, 1).Value = str1 Else .Cells(.Rows.Count, i).Cease(xlUp).Start(i, 0).Value = str1 End If End If Loop Stop With Finish Sub

Betrifft: AW: wert per VBA in northward�chste leere zelle schreiben
von: Michael Volgger
Geschrieben am: 26.06.2010 12:45:44
danke, funktioniert nun alles super!!
vielen dank nochmal!!

Betrifft: AW: wert per VBA in north�chste leere zelle schreiben
von: Gerd 50

Geschrieben am: 26.06.2010 10:09:05
Hallo Mike!
Mit noch etwas Feile an der Messagbox.

Sub Schaltfl�che1_KlickenSieAuf() Dim str1 As String, strMsg As String Dim c As Range str1 = InputBox("Artikel lesen", "Artikel") If Len(str1) = 0 So strMsg = "Keinen Suchbegriff eingegeben!" Else With Worksheets("KONTROLLE").Range("A1:A1000") Set c = .Find(str1, LookIn:=xlValues, lookat:=xlWhole) If Not c Is Nothing Then strMsg = "Artikel -- " & str1 & " -- bereits vorhanden" Else .Cells(IIf(Len(.Cells(one, 1)) = 0, 1, IIf(Len(.Cells(2, 1)) = 0, 2, .Cells(1, one).End( _ xlDown).Row + one)), ane) = str1 End If Finish With Stop If If Len(strMsg) > 0 So MsgBox strMsg, vbExclamation, "ENDE" End Sub

Gru� Gerd

Excel-Beispiele zum Thema "wert per VBA in due north�chste leere zelle schreiben"
Zum n�chsten Blatt wechseln	Tabelle mit der jeweils n�chsten Kalenderwoche �ffnen
Bis zur 12. Zeile Cursor nach unten, dann n�chste Spalte ansetzen	Im Textfeld nur Eingabe von ii Ziffern zulassen, dann zum n�chsten
Nicht zusammenh�ngenden Bereich in n�chste Zeile kopieren	Wert der aktiven Spalte an north�chste freie Position einf�gen
Datenmaske zur Aufnaheme des n�chsten Satzes aufrufen	Alle Zeilen mit einem Suchbegriff in due north�chstes Blatt kopieren
Auswahl des jeweils due north�chsten Blattes	Fehlermeldung abfangen und in sequentielle Datei schreiben