VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
Werte aus Textbox untereinander in Zellen schreiben	22.07.2020 10:35:39	David Sprenger
Werte aus Textbox untereinander in Zellen schreiben	22.07.2020 19:25:26	Gast67014
Werte aus Textbox untereinander in Zellen schreiben	22.07.2020 19:54:06	ralf_b

Ansicht des Beitrags:

Von:
David Sprenger

Datum:
22.07.2020 10:35:39

Views:
1200

Rating:

Antwort:

Thema:
Werte aus Textbox untereinander in Zellen schreiben

Hallo,

ich habe folgendes Problem:

Ich habe ein Eingabe Formular erstellt mit Code. Nun möchte ich jedoch die eingaben untereinander haben.

Sprich, Zeile 10: Text des Textfeldes1 | Zeile 11: Text des Textfeldes2 usw.

Leider bekomme ich es nicht hin.

Ich bedanke mich im Voraus schon mal für die Hilfe.

LG David

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

199

200

201

202

203

204

205

206

207

208

209

210

211

212

213

214

215

216

217

218

219

220

221

222

223

224

225

226

227

228

229

230

231

232

233

234

235

236

237

238

239

240

241

242

243

244

245

246

247

248

249

250

251

252

253

254

255

256

257

258

259

260

261

262

263

264

265

266

267

268

269

270

271

272

273

274

275

276

277

278

279

280

281

282

283

284

285

286

287

288

289

290

291

292

293

294

295

296

297

298

299

300

301

302

303

304

305

306

307

308

309

310

311

312

313

314

315

316

317

318

319

320

321

322

323

324

325

326

327

328

329

330

331

332

333

334

335

336

337

338

339

340

341

342

343

344

345

346

347

348

349

350

351

352

353

Option Explicit
Option Compare Text
 
 
'Neuer Eintrag Schaltfläche Ereignisroutine
Private Sub CommandButton1_Click()
  Dim l0Zeile As Long
    'Wenn der Benutzer einen neuen Eintrag erzeugen möchten
    'erstellen wir einen neuen Eintrag in der ListBox und markieren
    'diesen, damit der Benutzer die Daten eintragen kann
     
    l0Zeile = 10 'Start in Zeile 2, Zeile 1 sind ja die Überschriftrn
    'Schleife solange etwas in der ersten Spalte in Tabelle 1 drin steht
    Do While Trim(CStr(Tabelle2.Cells(l0Zeile, 2).Value)) <> ""
        l0Zeile = l0Zeile + 1 'Nächste Zeile bearbeiten
    Loop
     
    'Nach Durchlauf dieser Schleife steht lZeile in der ersten leeren Zeile von Tabelle1
    'Neuen Eintrag in die Tabelle1 schreiben, Spalte ID muss gefüllt sein, damit
    'unsere Routinen die Zeile wiederfinden!
    Tabelle2.Cells(l0Zeile, 2) = CStr("Neuer Eintrag Zeile " & l0Zeile)
     
    'Und neuen Eintrag in die UserForm eintragen
    ListBox1.AddItem CStr("Neuer Eintrag Zeile " & l0Zeile)
     
    'Den neuen Eintrag markieren mit Hilfe des ListIndexes
    ListBox1.ListIndex = ListBox1.ListCount - 1
    'Durch das Click Ereignis der ListBox werden die Daten automatisch geladen
     
End Sub
 
'Löschen Schaltfläche Ereignisroutine
'Zeile 10
Private Sub CommandButton3_Click()
  Dim l0Zeile As Long
  Dim l8Zeile As Long
   
    'Wenn kein Datensatz in der ListBox markiert wurde, wird die Routine beendet
    If ListBox1.ListIndex = -10 Then Exit Sub
     
    'Wenn kein Datensatz in der ListBox markiert wurde, wird die Routine beendet
    If ListBox1.ListIndex = -18 Then Exit Sub
   
    'Zum Löschen benötigen wir die Zeilennummer des ausgewählten Datensatzes
    l0Zeile = 10 'Start in Zeile 2, Zeile 1 sind ja die Überschriftrn
    'Schleife solange etwas in der ersten Spalte in Tabelle 1 drin steht
    Do While Trim(CStr(Tabelle2.Cells(l0Zeile, 2).Value)) <> ""
     
    'Zum Löschen benötigen wir die Zeilennummer des ausgewählten Datensatzes
    l8Zeile = 18 'Start in Zeile 2, Zeile 1 sind ja die Überschriftrn
    'Schleife solange etwas in der ersten Spalte in Tabelle 1 drin steht
    Do While Trim(CStr(Tabelle2.Cells(l8Zeile, 2).Value)) <> ""
     
        'Datensatz ID Spalte mit selektiertem Eintrag der ListBox vergleichen
        If ListBox1.Text = Trim(CStr(Tabelle2.Cells(l0Zeile, 2).Value)) Then
         
        'Datensatz ID Spalte mit selektiertem Eintrag der ListBox vergleichen
        If ListBox1.Text = Trim(CStr(Tabelle2.Cells(l8Zeile, 2).Value)) Then
             
            'Eintrag gefunden, die ganze Zeile wird nun gelöscht
            Tabelle2.Rows(CStr(l0Zeile & ":" & l0Zeile)).Delete
             
            'Eintrag gefunden, die ganze Zeile wird nun gelöscht
            Tabelle2.Rows(CStr(l8Zeile & ":" & l8Zeile)).Delete
             
            'Die ListBox muss nun neu geladen werden!
            Call UserForm_Initialize
            If ListBox1.ListCount > 0 Then ListBox1.ListIndex = 0
             
             'Die ListBox muss nun neu geladen werden!
            Call UserForm_Initialize
            If ListBox1.ListCount > 0 Then ListBox1.ListIndex = 0
             
            Exit Do 'Vorzeitiges Ende, da der Datensatz schon gefunden ist
             
       End If
         
        l0Zeile = l0Zeile + 1 'Nächste Zeile bearbeiten
         
        
        l8Zeile = l8Zeile + 1 'Nächste Zeile bearbeiten
   
     
    Loop
     
End Sub
 
 
 
'Speichern Schaltfläche Ereignisroutine
Private Sub CommandButton2_Click()
  Dim l0Zeile As Long
   
    'Wenn kein Datensatz in der ListBox markiert wurde, wird die Routine beendet
    If ListBox1.ListIndex = -1 Then Exit Sub
     
    'Wir müssen prüfen, ob die ID Spalte auch gefüllt ist!!
    If Trim(CStr(TextBox1.Text)) = "" Then
        'Meldung ausgeben
        MsgBox "Sie müssen mindestens einen Namen eingeben!", vbCritical + vbOKOnly, "FEHLER!"
        'Abbrechen des Speicherroutine
        Exit Sub
    End If
    'Ausbauoption: Prüfen ob die ID in Tabelle1 Spalte 9 schon vorhanden ist!
     
    'Zum Speichern benötigen wir die Zeilennummer des ausgewählten Datensatzes
    l0Zeile = 10 'Start in Zeile 2, Zeile 1 sind ja die Überschriftrn
    'Schleife solange etwas in der ersten Spalte in Tabelle 1 drin steht
    Do While Trim(CStr(Tabelle2.Cells(l0Zeile, 2).Value)) <> ""
     
        'Datensatz ID Spalte mit selektiertem Eintrag der ListBox vergleichen
        If ListBox1.Text = Trim(CStr(Tabelle2.Cells(l0Zeile, 2).Value)) Then
             
            'Eintrag gefunden, TextBoxen in die Zellen schreiben
            Tabelle2.Cells(l0Zeile, 1).Value = Trim(CStr(TextBox1.Text))
            Tabelle2.Cells(10, 2).Value = TextBox16.Text
            Tabelle2.Cells(10, 3).Value = TextBox15.Text
            Tabelle2.Cells(10, 4).Value = TextBox12.Text
            Tabelle2.Cells(10, 5).Value = TextBox14.Text
            Tabelle2.Cells(10, 6).Value = TextBox7.Text
            Tabelle2.Cells(10, 7).Value = TextBox13.Text
            Tabelle2.Cells(10, 8).Value = TextBox6.Text
            Tabelle2.Cells(10, 9).Value = TextBox11.Text
            Tabelle2.Cells(10, 11).Value = TextBox5.Text
            Tabelle2.Cells(10, 12).Value = TextBox10.Text
            Tabelle2.Cells(10, 13).Value = TextBox4.Text
            Tabelle2.Cells(10, 14).Value = TextBox9.Text
            Tabelle2.Cells(10, 15).Value = TextBox3.Text
             
            'Zweite Zeile
             
            Tabelle2.Cells(18, 1).Value = TextBox8.Text
            Tabelle2.Cells(18, 2).Value = TextBox2.Text
            Tabelle2.Cells(18, 3).Value = TextBox23.Text
            Tabelle2.Cells(18, 4).Value = TextBox22.Text
            Tabelle2.Cells(18, 5).Value = TextBox21.Text
            Tabelle2.Cells(18, 6).Value = TextBox20.Text
            Tabelle2.Cells(18, 7).Value = TextBox19.Text
            Tabelle2.Cells(18, 8).Value = TextBox18.Text
            Tabelle2.Cells(18, 9).Value = TextBox17.Text
            Tabelle2.Cells(18, 10).Value = TextBox29.Text
            Tabelle2.Cells(18, 11).Value = TextBox28.Text
            Tabelle2.Cells(18, 12).Value = TextBox27.Text
            Tabelle2.Cells(18, 13).Value = TextBox26.Text
            Tabelle2.Cells(18, 14).Value = TextBox25.Text
            Tabelle2.Cells(18, 15).Value = TextBox32.Text
            Tabelle2.Cells(18, 16).Value = TextBox31.Text
             
            'Die ListBox muss nun neu geladen werden
            'allerdings nur wenn sich der Name (ID) geändert hat
            If ListBox1.Text <> Trim(CStr(TextBox1.Text)) Then
                Call UserForm_Initialize
                If ListBox1.ListCount > 0 Then ListBox1.ListIndex = 0
            End If
             
            Exit Do 'Vorzeitiges Ende, da der Datensatz schon gefunden ist
             
        End If
     
        l0Zeile = l0Zeile + 1 'Nächste Zeile bearbeiten
    Loop
     
End Sub
 
'Beenden Schaltfläche Ereignisroutine
Private Sub CommandButton4_Click()
    Unload Me
End Sub
 
 
 
'Klick auf die ListBox Ereignisroutine
Private Sub ListBox1_Click()
  Dim l0Zeile As Long
    'Wenn der Benutzer einen Namen anklickt, suchen wir
    'diesen in der Tabelle1 heraus und tragen die Daten
    'in die TextBoxen ein.
     
    'Wir löschen standardmäßig alle bisherigen TextBoxen-Inhalte
    TextBox1 = ""
    TextBox16 = ""
    TextBox15 = ""
    TextBox12 = ""
    TextBox14 = ""
    TextBox7 = ""
    TextBox13 = ""
    TextBox6 = ""
    TextBox11 = ""
    TextBox5 = ""
    TextBox10 = ""
    TextBox4 = ""
    TextBox9 = ""
    TextBox3 = ""
    TextBox8 = ""
    TextBox2 = ""
    TextBox23 = ""
    TextBox22 = ""
    TextBox21 = ""
    TextBox20 = ""
    TextBox19 = ""
    TextBox18 = ""
    TextBox17 = ""
    TextBox29 = ""
    TextBox28 = ""
    TextBox27 = ""
    TextBox26 = ""
    TextBox25 = ""
    TextBox32 = ""
    TextBox31 = ""
     
     
    'Nur wenn ein Eintrag selektiert/markiert ist
    If ListBox1.ListIndex >= 0 Then
     
        l0Zeile = 10 'Start in Zeile 2, Zeile 1 sind ja die Überschriftrn
        'Schleife solange etwas in der ersten Spalte in Tabelle 1 drin steht
        Do While Trim(CStr(Tabelle2.Cells(l0Zeile, 2).Value)) <> ""
         
            'Wenn wir den Namen aus der ListBox1 in der Tabelle1 Spalte 1
            'gefunden haben, übertragen wir die anderen Spalteninhalte
            'in die TextBoxen!
            If ListBox1.Text = Trim(CStr(Tabelle2.Cells(l0Zeile, 2).Value)) Then
             
                'TextBoxen füllen
                'Erste Zeile
                 
                 
                TextBox1 = Trim(CStr(Tabelle2.Cells(l0Zeile, 1).Value))
                TextBox16 = Tabelle2.Cells(l0Zeile, 2).Value
                TextBox15 = Tabelle2.Cells(l0Zeile, 3).Value
                TextBox12 = Tabelle2.Cells(l0Zeile, 4).Value
                TextBox14 = Tabelle2.Cells(l0Zeile, 5).Value
                TextBox7 = Tabelle2.Cells(l0Zeile, 6).Value
                TextBox13 = Tabelle2.Cells(l0Zeile, 7).Value
                TextBox6 = Tabelle2.Cells(l0Zeile, 8).Value
                TextBox11 = Tabelle2.Cells(l0Zeile, 9).Value
                TextBox5 = Tabelle2.Cells(l0Zeile, 10).Value
                TextBox10 = Tabelle2.Cells(l0Zeile, 11).Value
                TextBox4 = Tabelle2.Cells(l0Zeile, 12).Value
                TextBox9 = Tabelle2.Cells(l0Zeile, 13).Value
                TextBox3 = Tabelle2.Cells(l0Zeile, 14).Value
                 
                'Zweite Zeile
                 
               
                TextBox8 = Tabelle2.Cells(18, 1).Value
                TextBox2 = Tabelle2.Cells(18, 2).Value
                TextBox23 = Tabelle2.Cells(18, 3).Value
                TextBox22 = Tabelle2.Cells(18, 4).Value
                TextBox21 = Tabelle2.Cells(18, 5).Value
                TextBox20 = Tabelle2.Cells(18, 6).Value
                TextBox19 = Tabelle2.Cells(18, 7).Value
                TextBox18 = Tabelle2.Cells(18, 8).Value
                TextBox17 = Tabelle2.Cells(18, 9).Value
                TextBox29 = Tabelle2.Cells(18, 10).Value
                TextBox28 = Tabelle2.Cells(18, 11).Value
                TextBox27 = Tabelle2.Cells(18, 12).Value
                TextBox26 = Tabelle2.Cells(18, 13).Value
                TextBox25 = Tabelle2.Cells(18, 14).Value
                TextBox32 = Tabelle2.Cells(18, 15).Value
                TextBox31 = Tabelle2.Cells(18, 16).Value
                 
                 
                 
                 
                 
                 
                 
                
             
                Exit Do 'Vorzeitiges Ende, da der Datensatz schon gefunden ist
             
            End If
         
            l0Zeile = l0Zeile + 1 'Nächste Zeile bearbeiten
         
        Loop
         
    End If
     
End Sub
 
 
 
 
 
 
 
 
 
 
 
 
 
Private Sub UserForm_Activate()
    'Wenn die Eingabemaske angezeigt wird, markieren wir den ersten Namen
    'jedoch nur wenn auch Einträge in der Liste stehen
    If ListBox1.ListCount > 0 Then ListBox1.ListIndex = 0
End Sub
 
'Startroutine, wird ausgeführt bevor die Eingabemaske angezeigt wird
Private Sub UserForm_Initialize()
  Dim l0Zeile As Long
   
    'Alle TextBoxen leer machen
    TextBox1 = ""
    TextBox16 = ""
    TextBox15 = ""
    TextBox12 = ""
    TextBox14 = ""
    TextBox7 = ""
    TextBox13 = ""
    TextBox6 = ""
    TextBox11 = ""
    TextBox5 = ""
    TextBox10 = ""
    TextBox4 = ""
    TextBox9 = ""
    TextBox3 = ""
    TextBox8 = ""
    TextBox2 = ""
    TextBox23 = ""
    TextBox22 = ""
    TextBox21 = ""
    TextBox20 = ""
    TextBox19 = ""
    TextBox18 = ""
    TextBox17 = ""
    TextBox29 = ""
    TextBox28 = ""
    TextBox27 = ""
    TextBox26 = ""
    TextBox25 = ""
    TextBox32 = ""
    TextBox31 = ""
   
    'In dieser Routine laden wir alle vorhandenen
    'Einträge in die ListBox1
    ListBox1.Clear 'Zuerst einmal die Liste leeren
     
    l0Zeile = 10
    'Start in Zeile 2, Zeile 1 sind ja die Überschriftrn
    'Schleife solange etwas in der ersten Spalte in Tabelle 1 drin steht
    Do While Trim(CStr(Tabelle2.Cells(l0Zeile, 2).Value)) <> ""
         
        'Aktuelle Zeile in die ListBox eintragen
        ListBox1.AddItem Trim(CStr(Tabelle2.Cells(l0Zeile, 2).Value))
         
        l0Zeile = l0Zeile + 1 'Nächste Zeile bearbeiten
         
    Loop
     
End Sub

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:
WYSIWYG-Editor, ctl00_Content_editor1 Editor WerkzeugleistenDokument Quellcode VorschauZwischenablage/Rückgängig AusschneidenTastaturkürzel Strg+X KopierenTastaturkürzel Strg+C EinfügenTastaturkürzel Strg+V Als Klartext einfügenTastaturkürzel Strg+Alt+Umschalt+V Aus Word einfügen RückgängigTastaturkürzel Strg+Z WiederherstellenTastaturkürzel Strg+YEditieren Suchen Ersetzen Alles auswählenGrundstile FettTastaturkürzel Strg+B KursivTastaturkürzel Strg+I UnterstrichenTastaturkürzel Strg+U Durchgestrichen Formatierung entfernenAbsatz Nummerierte Liste einfügen/entfernen Liste Einzug verringern Einzug erhöhen Zitatblock Linksbündig Zentriert Rechtsbündig BlocksatzLinks Link einfügen/editierenTastaturkürzel Strg+K Link entfernen AnkerEinfügen Bild Tabelle Horizontale Linie einfügen Smiley Sonderzeichen einfügen Einen Quelltextabschnitt einfügen oder aktualisierenStileFormatFormatSchriftartSchriftartGrößeGrößeFarben Textfarbe HintergrundfarbeWerkzeuge Maximieren Blöcke anzeigenabout Über CKEditor 4 Drücken Sie ALT 0 für Hilfe

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema	Datum	Von Nutzer	Rating	Antwort
Werte aus Textbox untereinander in Zellen schreiben	22.07.2020 10:35:39	David Sprenger
Werte aus Textbox untereinander in Zellen schreiben	22.07.2020 19:25:26	Gast67014
Werte aus Textbox untereinander in Zellen schreiben	22.07.2020 19:54:06	ralf_b